VBA və UserForm vasitəsilə Outlook e-poçtlarına qeydləri necə effektiv əlavə etmək olar

Bəzən Outlook-da e-poçtlarınızı redaktə etmək və ya qeydlər əlavə etmək ümidi ola bilər. Bu məqalə sizə bu funksiyanı yerinə yetirməyin effektiv yolunu təqdim edəcək.

“Outlook mesajlarınıza qeyd daxil etməyin 4 asan üsulu“, siz xüsusi bayraqlardan istifadə etmək, mövzuda və ya mətndə qeyd yazmaq və ya mövcud qeyd elementlərini bu e-poçta əlavə etmək kimi Outlook yerli funksiyaları vasitəsilə məktublara qeydlər daxil etməyi öyrənə bilərsiniz. Bununla belə, bunların hamısı sadəcə həll yoludur. Burada sizə daha təsirli bir üsul öyrədəcəyik. Onun vasitəsilə siz e-poçtlara qeydlər əlavə edə və istədiyiniz qeydləri redaktə edə və ya silə biləcəksiniz.

Outlook e-poçtlarına qeydlər əlavə edin

1. Başlamaq üçün Outlook-da “Alt + F11” düyməsini basaraq VBA redaktoruna daxil olun.
2. Sonra "Daxil et" > "UserForm" düyməsini basın.
3. Sonra, yeni UserForm-da aşağıdakı şəkildəki kimi mətn qutusu yaradın.
4. Sonra mətn qutusunun "Adını" ekran görüntüsü kimi "txtNotes" olaraq dəyişdirin.
5. Bundan sonra formada iki komanda düyməsi yaradın.
6. Sonra "CommandButton 1" seçin. Onun “Adını” “btnOK” olaraq dəyişdirin və “Başlıq”ı “OK” olaraq dəyişdirin.
7. Daha sonra “CommandVutton 2” proqramının “Adını” “btnCancel” və “Başlıq”ı “Ləğv et” olaraq dəyişdirin.
8. Sonra, bütün İstifadəçi Formunu seçin və onun “Adını” “frmAddNote” və “Başlıq”ı “Qeydinizi daxil edin” olaraq dəyişdirin.
9. Sonra, “fromAddNote” üzərinə sağ klikləyin və “View Code” seçin.
10. Yeni ekranda aşağıdakı kodu ona kopyalayın.

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. Daha sonra aşağıdakı VBA kodunu istifadə olunmamış modula qoyun.

Sub AddNote()
    frmAddNote.Show
End Sub

12. Nəhayət, bu makronu lentə əlavə etmək üçün “Fayl” > “Seçimlər” > “Lenti fərdiləşdirin” bölməsinə keçin.
13. İndi cəhd edə bilərsiniz. E-poçt seçin və lentdəki yeni "Qeyd əlavə et" düyməsini basın.
14. Açılan informasiya qutusunda qeydinizi daxil edib “OK” düyməsini sıxa bilərsiniz.
15. Dərhal seçilmiş e-poçta yeni qeyd əlavə olunacaq.

Outlook e-poçtları üçün mövcud qeydləri redaktə edin və ya silin

Bəzən siz e-poçtdakı mövcud qeydləri redaktə etmək və ya silmək istəyə bilərsiniz. Aşağıdakı addımları izləyə bilərsiniz.

1. Əvvəlcə başqa bir istifadəçi forması yaradın və onu “frmEditNote” adlandırın və başlığını “Qeydinizi redaktə et” olaraq dəyişdirin.
2. Sonra formada yeni mətn qutusu daxil edin və onun “Adını” “txtNotes” olaraq dəyişdirin.
3. Sonra, iki komanda düyməsi əlavə edin - "OK" və "Ləğv et".
4. Bundan sonra, "frmEditNote" üzərinə sağ klikləyin və "Koda bax" seçin.
5. “frmEditNote” proqramının yeni kod səhifəsində aşağıdakı kodu daxil edin.

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. Bundan sonra modulu açın və VBA kodunu ona kopyalayın.

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. Nəhayət, lentə “EditNote” və “DeleteNotes” makrolarını əlavə edə bilərsiniz.
8. Nəhayət, “OK” düyməsini sıxdıqdan və əsas pəncərəyə qayıtdıqdan sonra qeydi redaktə etməyə cəhd edə bilərsiniz.

• Qeydi seçin və "Qeyi redaktə et" düyməsini basın.
• Sonra, seçilmiş qeydi redaktə edə biləcəyiniz yeni bir dialoq qutusu görünəcək.
• Redaktə etdikdən sonra "OK" düyməsini basın. Qeyd yenilənəcək.

9. Həmçinin, istənilən qeydi silməyə cəhd edə bilərsiniz.

• Silmək istədiyiniz qeydi seçin.
• Lentdəki "Qeydləri Sil" düyməsini basın.
• Bu qeyd dərhal silinəcək.

Outlook-u məlumat itkisindən qoruyun

Outlook məlumat itkisinin qarşısını almaq üçün güclü bir həll axtarırsınız? Düzünü desəm, müntəzəm Outlook məlumatlarının ehtiyat nüsxəsini çıxardığınız müddətdə PST məlumatlarının itirilməsinin qarşısını asanlıqla ala bilərsiniz. Məsələn, PST zədələnsə belə, yenə də asanlıqla edə bilərsiniz PST bərpa edin ehtiyat nüsxələnmiş PST faylından məlumatları bir meh kimi.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com