Jegyzetek hatékony hozzáadása az Outlook e-mailekhez a VBA és a UserForm segítségével

Időnként reménykedhet abban, hogy az Outlookban szerkesztheti vagy jegyzeteket adhat hozzá az e-mailekhez. Ez a cikk egy hatékony módszert mutat be e funkció elérésére.

Tól től "4 egyszerű módszer megjegyzések beszúrására az Outlook üzeneteibe", megtanulhatja, hogyan illeszthet be jegyzeteket a levelekbe az Outlook natív funkcióival, például egyéni jelzők használatával, jegyzet beírásával a tárgyba vagy törzsbe, vagy meglévő jegyzetelemek csatolását ehhez az e-mailhez. Mindazonáltal mindegyik csak megoldás. Itt megtanítunk egy sokkal hatékonyabb módszert. Ezen keresztül jegyzeteket fűzhet az e-mailekhez, és tetszés szerint szerkesztheti vagy törölheti a meglévő jegyzeteket.

Jegyzetek hozzáadása az Outlook e-mailekhez

1. Kezdésként nyissa meg a VBA-szerkesztőt az „Alt + F11” megnyomásával az Outlookban.
2. Ezután kattintson a „Beszúrás” > „Felhasználói űrlap” gombra.
3. Ezután az új UserForm-ban hozzon létre egy szövegdobozt, mint az alábbi képen.
4. Ezután módosítsa a szövegmező „Nevét” „txtNotes”-ra, mint a képernyőképen.
5. Ezután hozzon létre két parancsgombot az űrlapon.
6. Ezután válassza a „CommandButton 1” lehetőséget. Módosítsa a „Nevét” „btnOK”-ra, a „Feliratot” pedig „OK”-ra.
7. Ezt követően módosítsa a „CommandVutton 2” „nevét” „btnCancel”-re, a „Caption”-t pedig „Cancel”-re.
8. Ezután válassza ki a teljes felhasználói űrlapot, és módosítsa a „Név”-ét „frmAddNote”-ra, a „Caption”-t pedig „Enter your note”-ra.
9. Ezt követően kattintson a jobb gombbal a „fromAddNote” elemre, és válassza a „Kód megtekintése” lehetőséget.
10. Az új képernyőn másolja be a következő kódot.

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. Később helyezze be az alábbi VBA-kódot egy nem használt modulba.

Sub AddNote()
    frmAddNote.Show
End Sub

12. Végül lépjen a „Fájl” > „Opciók” > „Szala testreszabása” menüpontra, hogy hozzáadja ezt a makrót a szalaghoz.
13. Most kipróbálhatod. Válasszon ki egy e-mailt, és kattintson az új „Jegyzet hozzáadása” gombra a szalagon.
14. A felugró párbeszédpanelen beírhatja a megjegyzést, és kattintson az „OK” gombra.
15. A kiválasztott e-mailhez azonnal új megjegyzés kerül hozzáadásra.

Meglévő megjegyzések szerkesztése vagy törlése az Outlook e-mailekhez

Időnként érdemes lehet szerkeszteni vagy törölni az e-mailben található megjegyzéseket. Kövesse az alábbi lépéseket.

1. Először is hozzon létre egy másik felhasználói űrlapot, nevezze el „frmEditNote”-nak, és módosítsa a feliratát „Jegyzet szerkesztése”-re.
2. Ezután illesszen be egy új szövegmezőt az űrlapba, és módosítsa a „Név”-et „txtNotes”-ra.
3. Ezután adjon hozzá két parancsgombot – „OK” és „Mégse”.
4. Ezután kattintson a jobb gombbal a „frmEditNote” elemre, és válassza a „Kód megtekintése” lehetőséget.
5. Az „frmEditNote” új kódlapjára írja be a következő kódot.

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. Ezután nyisson meg egy modult, és másolja bele a VBA kódot.

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. Végül hozzáadhatja az „EditNote” és a „DeleteNotes” makrót a szalaghoz.
8. Végül, miután az „OK” gombra kattintott, és visszatért a főablakba, megpróbálhatja szerkeszteni a jegyzetet.

• Válasszon ki egy jegyzetet, és kattintson a „Jegyzet szerkesztése” gombra.
• Ezután egy új párbeszédpanel jelenik meg, amelyben szerkesztheti a kiválasztott jegyzetet.
• A szerkesztés után kattintson az „OK” gombra. A jegyzet frissül.

9. Ezenkívül megpróbálhatja törölni a jegyzeteket.

• Válassza ki a törölni kívánt jegyzetet.
• Kattintson a „Jegyzetek törlése” gombra a szalagon.
• Ez a jegyzet azonnal törlődik.

Megakadályozza az Outlook adatvesztést

Hatalmas megoldást keres az Outlook adatvesztés megakadályozására? Őszintén szólva, mindaddig, amíg rendszeresen készít biztonsági mentéseket az Outlook adatokról, könnyedén elkerülheti a PST-adatvesztést. Például, még ha a PST megsérül is, akkor is könnyen megteheti visszaállítani a PST-t a mentett PST-fájlból származó adatokat, mint egy szellő.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve SQL helyreállítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com