Met Outlook kunnen gebruikers e-mails markeren met een aangepaste follow-upherinnering en vervaldatum. Maar u moet het handmatig selecteren en inschakelen. In dit artikel leer je hoe je dit automatisch kunt bereiken via VBA.
Outlook biedt ons de "Vlag" -functie, waarmee we de kritieke e-mails veel gemakkelijker kunnen opvolgen. Het stelt ons niet alleen in staat om een e-mail te maken, maar het stelt ons ook in staat om een vlagpictogram van voorkeur te selecteren, een specifieke vervaldatum toe te wijzen en zelfs een aangepaste herinnering aan de e-mail te specificeren. Het is zonder enige twijfel erg handig.
Maar veel gebruikers hebben nog een andere wens. Ze hopen dat Outlook automatisch een relatief vaste aangepaste vervaldatum en herinneringstijd kan specificeren voor de gemarkeerde e-mails, zoals 3 dagen na vandaag, 1 week na vandaag, enz. Eerlijk gezegd heeft Outlook niet zo'n native functie. Daarom moet u terugkeren naar andere middelen, bijvoorbeeld VBA. Hier zullen we u leren hoe u Outlook VBA kunt gebruiken om deze vereiste te realiseren. Lees verder om het in detail te krijgen.
Stel automatisch een herinnering en vervaldatum in bij het markeren van een Outlook-e-mail
- Start vanaf het begin uw Outlook-programma.
- Vervolgens kunt u op de sneltoetsen "Alt + F11" drukken om toegang te krijgen tot de VBA-editor.
- Vervolgens moet u in het volgende “Microsoft Visual Basic for Applications” -venster dubbelklikken op het “ThisOutlookSession” -project aan de linkerkant.
- Kopieer en plak vervolgens de onderstaande VBA-codes erin.
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
Dim objMail As Outlook.MailItem
If TypeOf Item Is MailItem Then
Set objMail = Item
If (objMail.IsMarkedAsTask = True) And (objMail.FlagStatus <> olFlagComplete) Then
'You can change the following lines as per your actual needs
With objMail
.FlagRequest = "Type the custom follow-up notes here"
.MarkAsTask olMarkNextWeek
'Set a custom due date
.TaskDueDate = Now + 7
.ReminderSet = True
'Set a custom reminder time
.ReminderTime = Now + 6.5
.Save
End With
End If
End If
End Sub
- Daarna moet u deze code zoals gewoonlijk ondertekenen.
- Verlaat later de VBA-editor en ga verder met het wijzigen van uw Outlook-macro-instellingen om alleen de digitaal ondertekende macro's in te schakelen.
- Tot slot moet u Outlook opnieuw opstarten om de nieuwe macro te activeren. Daarna kunt u het uitproberen.
- Klik op het vlagpictogram aan de achterkant van een e-mailitem.
- De vlag wordt onmiddellijk automatisch gewijzigd in het pictogram "Vlag volgende week".
- En de vervaldatum en herinneringstijd worden ingesteld overeenkomstig uw voorinstellingen in de codes.
Raak niet in paniek als u een Outlook-crash tegenkomt
Wanneer Outlook onverwacht vastloopt, raken de meeste mensen in paniek omdat ze bang zijn dat hun Outlook-gegevens beschadigd raken. Maar als u voldoende voorzorgsmaatregelen hebt genomen, hoeft u zich geen zorgen te maken. De belangrijkste maatregel is om regelmatig een back-up te maken van uw PST-bestanden. Bovendien kunt u ook een uitstekende tool gebruiken om uw gegevens te herstellen. beschadigde Outlook gegevens, zoals DataNumen Outlook Repair.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder sql-oplossing en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com