Kuidas VBA ja UserFormi kaudu Outlooki meilidele tõhusalt märkmeid lisada

Mõnikord võite loota, et saate Outlookis oma e-kirju redigeerida või neile märkmeid lisada. See artikkel tutvustab teile tõhusat viisi selle funktsiooni saavutamiseks.

Alates4 lihtsat meetodit märkme lisamiseks oma Outlooki sõnumitesse“, saate õppida Outlooki algfunktsioonide kaudu meilidesse märkmeid sisestama, näiteks kohandatud lippe kasutades, teemasse või kehasse märkuse tippimist või olemasolevate märkmeüksuste lisamist sellele meilile. Ometi on need kõik vaid lahendused. Siin õpetame teile palju tõhusamat meetodit. Selle kaudu saate meilidele märkmeid lisada ja olemasolevaid märkmeid oma äranägemise järgi muuta või kustutada.

Lisage Outlooki meilidele märkmeid

1. Alustuseks avage VBA redaktor, vajutades Outlookis "Alt + F11".
2. Seejärel klõpsake "Sisesta" > "Kasutajavorm".
3. Järgmisena looge uues UserFormis tekstikast nagu alloleval pildil.
4. Seejärel muutke tekstikasti "Nimi" nimeks "txtNotes", nagu ekraanipilt.
5. Pärast seda looge vormile kaks käsunuppu.
6. Seejärel valige "CommandButton 1". Muutke selle "Nimi" väärtuseks "btnOK" ja muutke selle pealdis "OK".
7. Seejärel muutke "CommandVutton 2" nimeks "btnCancel" ja "Caption" väärtuseks "Cancel".
8. Järgmisena valige kogu kasutajavorm ja muutke selle "Nimi" väärtuseks "frmAddNote" ja "Caption" väärtuseks "Sisestage oma märkus".
9. Seejärel paremklõpsake nuppu "fromAddNote" ja valige "View Code".
10. Uuel ekraanil kopeerige sellele järgmine kood.

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. Hiljem pange allolev VBA kood kasutamata moodulisse.

Sub AddNote()
    frmAddNote.Show
End Sub

12. Lõpuks minge jaotisse "Fail" > "Valikud" > "Kohanda linti", et see makro lindile lisada.
13. Nüüd saate proovida. Valige e-kiri ja klõpsake lindil uut nuppu "Lisa märkus".
14. Hüpikaknas saate sisestada oma märkuse ja klõpsata "OK".
15. Kohe lisatakse valitud meilile uus märge.

Redigeerige või kustutage Outlooki meilide jaoks olemasolevaid märkmeid

Mõnikord soovite meilis olemasolevaid märkmeid muuta või kustutada. Saate järgida alltoodud samme.

1. Kõigepealt looge uus kasutajavorm ja nimetage see "frmEditNote" ja muutke selle pealkirjaks "Muuda märkust".
2. Seejärel sisestage vormi uus tekstikast ja muutke selle "Nimi" väärtuseks "txtNotes".
3. Järgmisena lisage kaks käsunuppu - "OK" ja "Tühista".
4. Pärast seda paremklõpsake "frmEditNote" ja valige "View Code".
5. Sisestage "frmEditNote" uuele koodilehele järgmine kood.

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. Pärast seda avage moodul ja kopeerige VBA kood sinna.

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. Lõpuks saate lindile lisada makrod "EditNote" ja "DeleteNotes".
8. Lõpuks võite proovida märget redigeerida pärast "OK" klõpsamist ja peaaknasse naasmist.

• Valige märge ja klõpsake nuppu "Muuda märkust".
• Seejärel kuvatakse uus dialoogiboks, kus saate valitud märget redigeerida.
• Pärast redigeerimist klõpsake nuppu "OK". Märkust värskendatakse.

9. Samuti võite proovida kustutada kõik märkmed.

• Valige märge, mille soovite kustutada.
• Klõpsake lindil nuppu "Kustuta märkmed".
• See märge kustutatakse kohe.

Vältige Outlooki andmete kadumist

Kas otsite võimsat lahendust Outlooki andmete kadumise blokeerimiseks? Ausalt öeldes, nii kaua, kui teete regulaarselt Outlooki andmete varukoopiaid, saate hõlpsalt vältida PST-andmete kadu. Näiteks, isegi kui PST saab kahjustatud, saate seda siiski kergesti teha taastada PST andmed varundatud PST-failist nagu imelihtne.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql-i taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom