Paano Epektibong Magdagdag ng Mga Tala sa Mga Email sa Outlook sa pamamagitan ng VBA at UserForm

Sa mga oras, maaari kang umasa na mag-edit o magdagdag ng mga tala sa iyo ng mga email sa Outlook. Ipakilala sa iyo ng artikulong ito ang isang mabisang paraan upang makamit ang pagpapaandar na ito.

Mula sa4 Madaling Mga Paraan upang Magsingit ng isang Tandaan sa Iyong Mga Mensahe sa Outlook", Maaari mong malaman na magsingit ng mga tala sa mga mail sa pamamagitan ng katutubong pag-andar ng Outlook, tulad ng paggamit ng mga pasadyang watawat, pag-type ng tala sa paksa o katawan, o paglakip ng mga mayroon nang tala ng item sa email na ito. Gayunpaman, ang lahat sa kanila ay mga workaround lamang. Dito, tuturuan ka namin ng isang mas mabisang pamamaraan. Sa pamamagitan nito, magagawa mong magdagdag ng mga tala sa mga email at mai-edit o matanggal ang mayroon nang mga tala ayon sa gusto.

Magdagdag ng Mga Tala sa Mga Email sa Outlook

1. Upang magsimula, i-access ang VBA editor sa pamamagitan ng pagpindot sa "Alt + F11" sa Outlook.
2. Pagkatapos, i-click ang "Ipasok"> "UserForm".
3. Susunod, sa bagong UserForm, lumikha ng isang textbox tulad ng imahe sa ibaba.
4. Pagkatapos, palitan ang "Pangalan" ng textbox sa "txtNotes", tulad ng screenshot.
5. Pagkatapos nito, lumikha ng dalawang mga commandbutton sa form.
6. Pagkatapos, piliin ang "Commandbutton 1". Palitan ang "Pangalan" nito sa "btnOK" at baguhin ang "Caption" sa "OK".
7. Pagkatapos, baguhin ang "Pangalan" ng "CommandVutton 2" sa "btnCancel" at ang "Caption" sa "Kanselahin".
8. Susunod, piliin ang buong UserForm at baguhin ang "Pangalan" nito sa "frmAddNote" at "Caption" upang "Ipasok ang iyong tala".
9. Kasunod, mag-right click sa "fromAddNote" at piliin ang "View Code".
10. Sa bagong screen, kopyahin ang sumusunod na code dito.

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. Sa paglaon, ilagay ang VBA code sa ibaba sa isang hindi nagamit na module.

Sub AddNote()
    frmAddNote.Show
End Sub

12. Panghuli, magtungo sa "File"> "Mga Pagpipilian"> "Ipasadya ang Ribbon" upang idagdag ang macro na ito sa laso.
13. Ngayon, maaari kang magkaroon ng isang pagsubok. Pumili ng isang email at i-click ang bagong pindutang "Magdagdag ng Tandaan" sa laso.
14. Sa popup dialog box, maaari mong ipasok ang tala mo at i-click ang "OK".
15. Kaagad, idaragdag ang isang bagong tala sa napiling email.

I-edit o Tanggalin ang Mga Umiiral na Tala para sa Mga Email sa Outlook

Sa mga oras, baka gusto mong i-edit o tanggalin ang anumang mayroon nang mga tala sa isang email. Maaari mong sundin ang mga hakbang sa ibaba.

1. Una, lumikha ng isa pang form ng gumagamit at pangalanan ito bilang "frmEditNote" at baguhin ang caption nito sa "I-edit ang iyong tala".
2. Pagkatapos, maglagay ng bagong textbox sa form at palitan ang "Pangalan" nito sa "txtNotes".
3. Susunod, magdagdag ng dalawang mga commandbutton - "OK" at "Kanselahin".
4. Pagkatapos nito, i-right click ang "frmEditNote" at piliin ang "View Code".
5. Sa bagong pahina ng code ng "frmEditNote", ilagay ang sumusunod na code.

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. Pagkatapos nito, buksan ang isang module at kopyahin ang VBA code dito.

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. Sa wakas, maaari mong idagdag ang mga macros na "EditNote" at "DeleteNotes" sa laso.
8. Panghuli, pagkatapos i-click ang "OK" at bumalik sa pangunahing window, maaari mong subukang i-edit ang isang tala.

• Pumili ng tala at i-click ang pindutang "I-edit ang Tandaan".
• Pagkatapos, lalabas ang isang bagong dialog box, kung saan maaari mong i-edit ang napiling tala.
• Pagkatapos ng pag-edit, i-click ang "OK". Maa-update ang tala.

9. Gayundin, maaari mong subukang tanggalin ang anumang mga tala.

• Piliin ang tala na nais mong tanggalin.
• I-click ang pindutang "Tanggalin ang Mga Tala" sa laso.
• Ang tala na ito ay tatanggalin nang sabay-sabay.

Pigilan ang Outlook mula sa Pagkawala ng Data

Naghahanap ka ba ng isang malakas na solusyon upang harangan ang pagkawala ng data ng Outlook? Sa katapatan, basta gumawa ka ng regular na mga backup ng data ng Outlook, maiiwasan mong madali ang pagkawala ng data ng PST. Halimbawa, kahit nasira ang PST, madali mo pa rin bawiin ang PST data mula sa naka-back up na PST file tulad ng isang simoy.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang mabawi ang sql at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa