Hvordan legge til notater effektivt i Outlook-e-poster via VBA og UserForm

Noen ganger håper du kanskje å redigere eller legge til notater til e-postene dine i Outlook. Denne artikkelen vil introdusere deg en effektiv måte å oppnå denne funksjonen på.

Fra "4 enkle metoder for å sette inn et notat i Outlook-meldingene dine", kan du lære å sette inn notater i e-poster via Outlook-innfødte funksjoner, for eksempel å bruke tilpassede flagg, skrive notat i emne eller brødtekst, eller legge ved eksisterende notatelementer til denne e-posten. Likevel er alle bare løsninger. Her skal vi lære deg en mye mer effektiv metode. Via den vil du kunne legge til notater i e-poster og redigere eller slette eksisterende notater etter eget ønske.

Legg til notater i Outlook-e-poster

1. Til å begynne med, få tilgang til VBA-redigering ved å trykke "Alt + F11" i Outlook.
2. Klikk deretter "Sett inn"> "Brukerskjema".
3. Deretter, i det nye brukerskjemaet, oppretter du en tekstboks som bildet nedenfor.
4. Deretter endrer du "Navn" på tekstboksen til "txtNotes", som skjermbildet.
5. Deretter oppretter du to kommandoknapper i skjemaet.
6. Deretter velger du "Kommandoknapp 1". Endre dens "Navn" til "btnOK" og endre "Caption" til "OK".
7. Etterpå endrer du "Navn" til "CommandVutton 2" til "btnCancel" og "Caption" til "Cancel".
8. Deretter velger du hele brukerskjemaet og endrer dets "Navn" til "frmAddNote" og "Caption" til "Skriv inn notatet ditt".
9. Deretter høyreklikker du på "fromAddNote" og velger "Se kode".
10. I den nye skjermen kopierer du følgende kode inn i den.

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. Sett VBA-koden nedenfor inn i en ubrukt modul senere.

Sub AddNote()
    frmAddNote.Show
End Sub

12. Gå til slutt til "Fil"> "Alternativer"> "Tilpass bånd" for å legge til denne makroen på båndet.
13. Nå kan du prøve. Velg en e-post og klikk på den nye "Legg til notat"-knappen på båndet.
14. I popup-dialogboksen kan du skrive inn notatet ditt og klikke "OK".
15. Umiddelbart vil et nytt notat bli lagt til den valgte e-posten.

Rediger eller slett eksisterende notater for Outlook-e-poster

Noen ganger kan det være lurt å redigere eller slette eksisterende notater i en e-post. Du kan følge trinnene nedenfor.

1. Først av, opprett et nytt brukerskjema og navngi det som "frmEditNote" og endre bildeteksten til "Rediger notatet ditt".
2. Deretter setter du inn en ny tekstboks i skjemaet og endrer "Navn" til "txtNotes".
3. Deretter legger du til to kommandoknapper - "OK" og "Avbryt".
4. Etter det, høyreklikk "frmEditNote" og velg "Vis kode".
5. I den nye kodesiden til "frmEditNote", legg inn følgende kode.

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. Deretter åpner du en modul og kopierer VBA-koden inn i den.

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. Til slutt kan du legge til makroene "EditNote" og "DeleteNotes" på båndet.
8. Til slutt, etter å ha klikket "OK" og gå tilbake til hovedvinduet, kan du prøve å redigere et notat.

• Velg et notat og klikk på "Rediger notat"-knappen.
• Deretter vil en ny dialogboks dukke opp, der du kan redigere det valgte notatet.
• Etter redigering, klikk "OK". Notatet vil bli oppdatert.

9. Du kan også prøve å slette eventuelle notater.

• Velg notatet du vil slette.
• Klikk på "Slett notater"-knappen på båndet.
• Dette notatet vil bli slettet med en gang.

Forhindre datatap i Outlook

Leter du etter en mektig løsning for å blokkere tap av Outlook-data? For å være ærlig, så lenge du tar regelmessige sikkerhetskopier av Outlook-data, kan du enkelt unngå tap av PST-data. For eksempel, selv om PST blir skadet, kan du fortsatt enkelt gjenopprette PST data fra den sikkerhetskopierte PST-filen som en lek.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med