Soms hoopt u misschien in Outlook uw e-mails te bewerken of notities aan uw e-mails toe te voegen. Dit artikel introduceert een effectieve manier om deze functie te bereiken.
Van "4 eenvoudige methoden om een notitie in uw Outlook-berichten in te voegen“, Kunt u leren notities in e-mails in te voegen via de native Outlook-functies, zoals het gebruik van aangepaste vlaggen, het typen van een notitie in onderwerp of hoofdtekst, of het toevoegen van bestaande notitie-items aan deze e-mail. Toch zijn ze allemaal slechts tijdelijke oplossingen. Hier leren we je een veel effectievere methode. Hiermee kunt u notities aan e-mails toevoegen en bestaande notities naar believen bewerken of verwijderen.
Voeg notities toe aan Outlook-e-mails
- Om te beginnen opent u de VBA-editor door in Outlook op "Alt + F11" te drukken.
- Klik vervolgens op "Invoegen"> "UserForm".
- Maak vervolgens in het nieuwe UserForm een tekstvak zoals de afbeelding hieronder.
- Verander vervolgens de "Naam" van het tekstvak in "txtNotes", zoals het screenshot.
- Maak daarna twee opdrachtknoppen in het formulier.
- Selecteer vervolgens "CommandButton 1". Verander zijn "Naam" in "btnOK" en verander zijn "Bijschrift" in "OK".
- Verander daarna de "Naam" van "CommandVutton 2" in "btnCancel" en het "Caption" in "Annuleren".
- Selecteer vervolgens het volledige gebruikersformulier en wijzig de "Naam" in "frmAddNote" en "Caption" in "Enter your note".
- Klik vervolgens met de rechtermuisknop op "fromAddNote" en kies "Bekijk code".
- Kopieer in het nieuwe scherm de volgende code erin.
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
- Plaats later de onderstaande VBA-code in een ongebruikte module.
Sub AddNote()
frmAddNote.Show
End Sub
- Ga ten slotte naar "Bestand"> "Opties"> "Lint aanpassen" om deze macro aan het lint toe te voegen.
- Nu kunt u het proberen. Selecteer een e-mail en klik op de nieuwe knop "Notitie toevoegen" in het lint.
- In het pop-upvenster kunt u uw notitie invoeren en op "OK" klikken.
- Er wordt onmiddellijk een nieuwe notitie aan de geselecteerde e-mail toegevoegd.
Bewerk of verwijder bestaande notities voor Outlook-e-mails
Soms wilt u bestaande notities in een e-mail bewerken of verwijderen. U kunt de onderstaande stappen volgen.
- Maak eerst een ander gebruikersformulier en noem het "frmEditNote" en wijzig het bijschrift in "Bewerk uw notitie".
- Voeg vervolgens een nieuw tekstvak in het formulier in en verander de "Naam" in "txtNotes".
- Voeg vervolgens twee opdrachtknoppen toe - "OK" en "Annuleren".
- Klik daarna met de rechtermuisknop op "frmEditNote" en selecteer "Bekijk code".
- Plaats de volgende code in de nieuwe codepagina van "frmEditNote".
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
- Open daarna een module en kopieer de VBA-code erin.
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
- Ten slotte kunt u de macro's "EditNote" en "DeleteNotes" aan het lint toevoegen.
- Ten slotte, nadat u op "OK" hebt geklikt en bent teruggekeerd naar het hoofdvenster, kunt u proberen een notitie te bewerken.
- Selecteer een notitie en klik op de knop "Notitie bewerken".
- Vervolgens verschijnt een nieuw dialoogvenster waarin u de geselecteerde notitie kunt bewerken.
- Klik na het bewerken op "OK". De notitie wordt bijgewerkt.
- U kunt ook proberen eventuele notities te verwijderen.
- Selecteer de notitie die u wilt verwijderen.
- Klik op de knop "Notities verwijderen" in het lint.
- Deze notitie wordt onmiddellijk verwijderd.
Voorkom dat Outlook gegevens verliest
Bent u op zoek naar een krachtige oplossing om gegevensverlies in Outlook te blokkeren? Eerlijk gezegd, zolang u regelmatig Outlook-gegevensback-ups maakt, kunt u gemakkelijk PST-gegevensverlies voorkomen. Zelfs als PST bijvoorbeeld beschadigd raakt, kunt u dat nog steeds gemakkelijk herstel PST gegevens uit het PST-bestand waarvan een back-up is gemaakt, als een eitje.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstel sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com