Kako učinkovito dodati opombe v e-poštna sporočila v Outlooku prek VBA in UserForm

Včasih upate, da boste v Outlooku uredili ali dodali opombe svojim e-poštnim sporočilom. Ta članek vam bo predstavil učinkovit način za dosego te funkcije.

Od “4 enostavne metode za vstavljanje opombe v Outlookova sporočila“, Lahko se naučite vstavljati opombe v e-poštna sporočila prek izvornih funkcij Outlooka, na primer z uporabo zastavic po meri, vnašanjem opombe v predmet ali telo ali pripisovanjem obstoječih elementov opomb temu e-poštnemu sporočilu. Vseeno pa so le rešitve. Tu vas bomo naučili veliko učinkovitejše metode. Preko njega boste lahko e-poštnim sporočilom dodajali opombe in po želji urejali ali brisali obstoječe.

Dodajte opombe v e-poštna sporočila v Outlooku

1. Za začetek odprite urejevalnik VBA, tako da v Outlooku pritisnete »Alt + F11«.
2. Nato kliknite »Vstavi«> »Uporabniški obrazec«.
3. Nato v novem UserForm ustvarite polje z besedilom, kot je spodnja slika.
4. Nato spremenite "Ime" v besedilnem polju na "txtNotes", kot je posnetek zaslona.
5. Po tem v obrazcu ustvarite dva ukazna gumba.
6. Nato izberite “CommandButton 1”. Spremenite njegovo »Ime« v »btnOK« in spremenite njegovo »Napis« v »V redu«.
7. Nato spremenite “Name” v “CommandVutton 2” na “btnCancel” in “Caption” na “Cancel”.
8. Nato izberite celoten UserForm in spremenite njegovo »Name« v »frmAddNote« in »Caption« v »Enter your note«.
9. Nato z desno miškino tipko kliknite »fromAddNote« in izberite »View Code«.
10. Na novi zaslon vanj kopirajte naslednjo kodo.

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. Kasneje spodaj vstavite kodo VBA v neuporabljeni modul.

Sub AddNote()
    frmAddNote.Show
End Sub

12. Na koncu pojdite na »Datoteka«> »Možnosti«> »Prilagodi trak«, da dodate ta makro na trak.
13. Zdaj lahko poskusite. Izberite e-poštno sporočilo in na traku kliknite nov gumb »Dodaj opombo«.
14. V pojavno pogovorno okno lahko vnesete opombo in kliknete »V redu«.
15. Takoj bo izbranemu e-poštnemu sporočilu dodana nova opomba.

Urejanje ali brisanje obstoječih opomb za e-poštna sporočila v Outlooku

Včasih boste morda želeli v e-poštnem sporočilu urediti ali izbrisati vse obstoječe opombe. Sledite spodnjim korakom.

1. Najprej ustvarite nov uporabniški obrazec in ga poimenujte kot »frmEditNote« in spremenite njegov napis v »Uredi opombo«.
2. Nato v obrazec vstavite novo besedilno polje in spremenite njegovo »Ime« v »txtNotes«.
3. Nato dodajte dva ukazna gumba - »V redu« in »Prekliči«.
4. Po tem z desno miškino tipko kliknite »frmEditNote« in izberite »Prikaži kodo«.
5. Na novo kodno stran »frmEditNote« vnesite naslednjo kodo.

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. Po tem odprite modul in vanj kopirajte kodo VBA.

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. Na koncu lahko na trak dodate makra »EditNote« in »DeleteNotes«.
8. Nazadnje, ko kliknete »V redu« in se vrnete v glavno okno, lahko poskusite urediti opombo.

• Izberite opombo in kliknite gumb »Uredi opombo«.
• Nato se prikaže novo pogovorno okno, v katerem lahko uredite izbrano beležko.
• Po urejanju kliknite »V redu«. Opomba bo posodobljena.

9. Prav tako lahko poskusite izbrisati vse opombe.

• Izberite opombo, ki jo želite izbrisati.
• Na traku kliknite gumb »Izbriši opombe«.
• Ta opomba bo takoj izbrisana.

Preprečite izgubo podatkov v programu Outlook

Iščete mogočno rešitev za blokiranje izgube podatkov v Outlooku? Iskreno, dokler redno varnostno kopirate podatke v Outlooku, se lahko z lahkoto izognete izgubi podatkov PST. Na primer, tudi če se PST poškoduje, še vedno lahko obnoviti PST podatke iz varnostno kopirane datoteke PST kot pihljajo.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z obnoviti sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com