Hoe u de huidige datum of tijd automatisch invoegt in het onderwerp of de hoofdtekst van een e-mail met Outlook VBA

Veel gebruikers zijn gewend om de huidige datum of tijd in het onderwerp of de hoofdtekst van de e-mail in te voegen bij het opstellen van een nieuwe e-mail. In dit artikel leert u hoe u dit in korte tijd kunt bereiken.

In de vorige post - "Hoe u de huidige datum automatisch toevoegt aan de onderwerpen van uw Outlook-e-mails”, Kunt u leren hoe u automatisch de huidige datum of tijd aan het onderwerp toevoegt. Maar de methode in die post is gewoon om een ​​aangepast bericht te maken. Dus elke keer dat u een nieuwe e-mail wilt maken met de huidige datum of tijd als onderwerp, moet u het aangepaste formulier kiezen in plaats van zoals gewoonlijk een nieuwe e-mail te maken. Het zal duidelijk omslachtig zijn.

Outlook heeft ons eigenlijk al een native veld aangeboden om de datum of tijd in te voegen. U kunt ook Outlook VBA toepassen om de huidige datum of tijd automatisch in de hoofdtekst of het onderwerp van de nieuwe e-mail in te voegen. Welke methode u selecteert, hangt af van hoe vaak u de datum of tijd moet invoeren.

Handmatig invoegen op veld "Datum en tijd"

1. Aan starStart Outlook.
2. Maak vervolgens een nieuw bericht door te klikken op de knop "Nieuwe e-mail" in de groep "Nieuw" onder het tabblad "Home".
3. Vervolgens kunt u in het venster Nieuw bericht in de hoofdtekst van de e-mail klikken en naar het tabblad "Invoegen" gaan.
4. Vervolgens kunt u het veld "Datum en tijd" in de groep "Tekst" zoeken en erop klikken.
5. Daarna zal een nieuw dialoogvenster verschijnen. U kunt een beschikbaar formaat kiezen en vervolgens op de knop "OK" klikken.
6. Nadat u bent teruggekeerd naar het berichtenvenster, ziet u de huidige datum of tijd in de hoofdtekst van de e-mail. Standaard staat Outlook u niet toe om het veld "Datum en tijd" op het onderwerp toe te passen.
7. Dus als u de datum of tijd in het onderwerp wilt invoegen, moet u deze dus uit de hoofdtekst kopiëren en handmatig in het onderwerp plakken.

Deze methode wordt meer aanbevolen als u zelden de huidige datum of tijd hoeft in te voeren. Maar op voorwaarde dat u vaak of altijd moet invoegen, kunt u beter de volgende VBA-codes gebruiken om dit automatisch te bereiken.

Automatisch invoegen met Outlook VBA

1. Druk in de eerste plaats op de toetsen "Alt + F11" om de VBA-editor te openen.
2. Dubbelklik vervolgens op het "ThisOutlookSession" -project aan de linkerkant om het te openen.
3. Kopieer vervolgens de volgende codes erin.

Public WithEvents objInspectors As Inspectors
Public WithEvents objMail As MailItem

Private Sub Initialize_handlers()
    Set objInspectors = Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim strTime As String
 
    'the current time
    strTime = Now
 
    'insert to subject
    'If you don't want to insert to subject, remove the following line
    objMail.Subject = strTime
    'insert to body
    'If you don't want to insert to body, remove the following line
    objMail.Body = strTime & objMail.Body
End Sub

Opmerking: De bovenstaande codes werken om de huidige tijd automatisch in het onderwerp en de hoofdtekst in te voegen. Als u de huidige datum wilt invoegen, vervangt u de “objMail_Openen”Sub met het volgende:

Private Sub objMail_Open(Cancel As Boolean)
    Dim strDate As String
 
    'the current date
    strDate = Date
 
    'insert to subject
    objMail.Subject = strDate
    'insert to body
    objMail.Body = strDate & objMail.Body
End Sub

4. Onderteken deze code vervolgens zoals gewoonlijk.
5. Later, onderzoektart Outlook om de macro te activeren.
6. Eindelijk kun je het proberen.

• Klik direct op de knop "Nieuwe e-mail" om een ​​nieuwe e-mail te openen.
• U zult zien dat de nieuwe e-mail automatisch de huidige datum of tijd in het onderwerp en de hoofdtekst bevat, zoals in de onderstaande afbeelding:

Vertrouw niet gemakkelijk op onbekende e-mails

U moet ooit ongewenste e-mails hebben ontvangen. Hoe ga je daar meestal mee om? Het is niet raadzaam om bijlagen te downloaden of links in dit soort mails te openen, aangezien deze virussen kunnen bevatten. Zodra uw Outlook-gegevens zijn geïnfecteerd, heeft de reparatietool voor de inbox, Scanpst.exe, geen effecten. In dit geval heb je geen andere keuze dan je toevlucht te nemen tot een meer ervaren persoon PST-oplossing tool, 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 corrupt SQL Server en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com