VBA va UserForm orqali Outlook elektron pochtalariga eslatmalarni qanday qilib samarali qo'shish mumkin

Ba'zida Outlook-da elektron pochta xabarlaringizni tahrirlash yoki ularga eslatma qo'shish umidida bo'lishingiz mumkin. Ushbu maqola sizni ushbu funktsiyaga erishishning samarali usuli bilan tanishtiradi.

“DanOutlook xabarlaringizga eslatma kiritishning 4 ta oson usuli“, siz Outlook-ning mahalliy funksiyalari orqali xatlarga eslatma qoʻshishni oʻrganishingiz mumkin, masalan, maxsus bayroqlardan foydalanish, eslatmani mavzu yoki asosiy qismida yozish yoki ushbu xatga mavjud eslatma elementlarini biriktirish. Biroq, ularning barchasi faqat vaqtinchalik echimlardir. Bu erda biz sizga ancha samarali usulni o'rgatamiz. U orqali siz elektron xatlarga eslatma qo'shishingiz va mavjud eslatmalarni o'zingizning xohishingiz bilan tahrirlashingiz yoki o'chirishingiz mumkin bo'ladi.

Outlook elektron pochta xabarlariga eslatma qo'shing

1. Boshlash uchun Outlook-da "Alt + F11" tugmachalarini bosib VBA muharririga kiring.
2. Keyin, "Qo'shish" > "UserForm" ni bosing.
3. Keyin, yangi UserForm-da quyidagi rasmdagi kabi matn qutisini yarating.
4. Keyin matn maydonining "Nomi" ni skrinshot kabi "txtNotes" ga o'zgartiring.
5. Shundan so'ng, formada ikkita buyruq tugmachasini yarating.
6. Keyin, "Buyruqning 1" tugmachasini tanlang. Uning "Ismi" ni "btnOK" ga o'zgartiring va "Sarlavha" ni "OK" ga o'zgartiring.
7. Shundan so'ng, "CommandVutton 2" ning "Nomi" ni "btnCancel" ga va "Sarlavha" ni "Bekor qilish" ga o'zgartiring.
8. Keyin, butun UserFormni tanlang va uning “Ismi”ni “frmAddNote”ga va “Caption”ni “Eslatmani kiriting” ga o'zgartiring.
9. Keyinchalik, "fromAddNote" ni o'ng tugmasini bosing va "Kodni ko'rish" ni tanlang.
10. Yangi ekranda unga quyidagi kodni ko'chiring.

Private Sub btnOK_Click()
    Dim strNote As String
    Dim objMail As Outlook.MailItem
    Dim objNote As Outlook.NoteItem
 
    strNote = txtNotes.Text
 
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    Set objNote = Application.CreateItem(olNoteItem)
 
    objNote.Body = strNote
    objNote.Save
    objMail.Attachments.Add objNote
    objMail.Save
    objNote.Delete
    Unload Me
End Sub

Private Sub btnCancel_Click()
    Unload Me
End Sub

11. Keyinchalik, foydalanilmagan modulga quyidagi VBA kodini qo'ying.

Sub AddNote()
    frmAddNote.Show
End Sub

12. Nihoyat, ushbu makrosni lentaga qo'shish uchun "Fayl" > "Tanlovlar" > "Tasmani moslashtirish" ga o'ting.
13. Endi siz sinab ko'rishingiz mumkin. E-pochta manzilini tanlang va tasmadagi yangi "Eslatma qo'shish" tugmasini bosing.
14. Qalqib chiquvchi dialog oynasida siz eslatmani kiritishingiz va "OK" tugmasini bosishingiz mumkin.
15. Darhol tanlangan elektron pochtaga yangi eslatma qo'shiladi.

Outlook elektron pochta xabarlari uchun mavjud eslatmalarni tahrirlash yoki o'chirish

Ba'zida siz elektron pochtadagi mavjud eslatmalarni tahrirlashingiz yoki o'chirishingiz mumkin. Quyidagi amallarni bajarishingiz mumkin.

1. Birinchidan, boshqa foydalanuvchi shakli yarating va uni “frmEditNote” deb nomlang va uning sarlavhasini “Eslatmani tahrirlash” ga o'zgartiring.
2. Keyin shaklga yangi matn maydonini joylashtiring va uning "Ism" ni "txtNotes" ga o'zgartiring.
3. Keyin ikkita buyruq tugmachasini qo'shing - "OK" va "Bekor qilish".
4. Shundan so'ng, "frmEditNote" tugmasini o'ng tugmasini bosing va "Kodni ko'rish" ni tanlang.
5. "frmEditNote" ning yangi kod sahifasiga quyidagi kodni qo'ying.

Private Sub UserForm_Initialize()
    Dim objAttachNote As Outlook.Attachment
    Dim objTempNote As Outlook.NoteItem

    Set objAttachNote = ActiveExplorer.AttachmentSelection.Item(1)
    Set objMail = objAttachNote.Parent
 
    If Right(objAttachNote.FileName, 3) = "msg" Then
       strTempFolder = Environ("Temp")
       strFilePath = strTempFolder & "\" & objAttachNote.FileName
       objAttachNote.SaveAsFile strFilePath
    End If
 
    Set objTempNote = Session.OpenSharedItem(strFilePath)
    txtNotes.Text = objTempNote.Body

    objTempNote.Close olDiscard
End Sub

Private Sub btnOK_Click()
    Dim strNote As String
    Dim objMail As Outlook.MailItem
    Dim objAttachNote As Outlook.Attachment
    Dim objNewNote As Outlook.NoteItem
 
    strNote = txtNotes.Text
 
    Set objNewNote = Application.CreateItem(olNoteItem)
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    Set objAttachNote = ActiveExplorer.AttachmentSelection.Item(1)
    objAttachNote.Delete

    objNewNote.Body = strNote
    objNewNote.Save
    objMail.Attachments.Add objNewNote
    objMail.Save
    objNewNote.Delete
    Unload Me
End Sub

Private Sub btnCancel_Click()
    Unload Me
End Sub

6. Shundan so'ng, modulni oching va unga VBA kodini nusxalang.

Sub EditNote()
    frmEditNote.Show
End Sub

Sub DeleteNotes()
    Dim objSelectedAttachments As Outlook.AttachmentSelection
    Dim objAttachment As Outlook.Attachment
    Dim objMail As Outlook.MailItem
 
    Set objSelectedAttachments = Application.ActiveExplorer.AttachmentSelection
 
    For Each objAttachment In objSelectedAttachments
        If Right(objAttachment.FileName, 3) = "msg" Then
           objAttachment.Delete
        End If
    Next
 
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    objMail.Save
End Sub

7. Nihoyat, lentaga "EditNote" va "DeleteNotes" makroslarini qo'shishingiz mumkin.
8. Nihoyat, "OK" tugmasini bosib, asosiy oynaga qaytganingizdan so'ng, siz eslatmani tahrirlashga urinib ko'rishingiz mumkin.

• Eslatmani tanlang va "Eslatmani tahrirlash" tugmasini bosing.
• Keyin tanlangan eslatmani tahrirlashingiz mumkin bo'lgan yangi dialog oynasi paydo bo'ladi.
• Tahrirlashdan so'ng "OK" tugmasini bosing. Eslatma yangilanadi.

9. Bundan tashqari, har qanday eslatmani o'chirishga harakat qilishingiz mumkin.

• O'chirmoqchi bo'lgan eslatmani tanlang.
• Tasmadagi "Eslatmalarni o'chirish" tugmasini bosing.
• Bu eslatma birdaniga oʻchiriladi.

Outlook ma'lumotlarini yo'qotishdan saqlaning

Outlook ma'lumotlarini yo'qotishni blokirovka qilish uchun kuchli yechim qidiryapsizmi? Rostini aytsam, Outlook ma'lumotlarining muntazam zahira nusxalarini yaratsangiz, PST ma'lumotlarini yo'qotishdan osongina qochishingiz mumkin. Misol uchun, PST shikastlangan bo'lsa ham, siz baribir osongina qila olasiz PSTni tiklash zahiralangan PST faylidan ma'lumotlar shabada kabi.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql-ni tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com