So fügen Sie mit Outlook VBA das aktuelle Datum oder die aktuelle Uhrzeit automatisch in den Betreff oder Text der E-Mail ein

Viele Benutzer sind es gewohnt, beim Verfassen einer neuen E-Mail das aktuelle Datum oder die aktuelle Uhrzeit in den Betreff oder Text der E-Mail einzufügen. In diesem Artikel erfahren Sie, wie Sie dies in kurzer Zeit erreichen.

In der vorherigen post - "So fügen Sie den Betreff Ihrer Outlook-E-Mails automatisch das aktuelle Datum hinzu”Können Sie lernen, wie Sie dem Thema automatisch das aktuelle Datum oder die aktuelle Uhrzeit hinzufügen. Aber die Methode in diesem post ist einfach, eine benutzerdefinierte Form der Nachricht zu erstellen. Auf diese Weise müssen Sie jedes Mal, wenn Sie eine neue E-Mail mit dem aktuellen Datum oder der aktuellen Uhrzeit im Betreff erstellen möchten, das benutzerdefinierte Formular auswählen, anstatt wie gewohnt eine neue E-Mail zu erstellen. Offensichtlich wird es ziemlich umständlich sein.

Tatsächlich hat Outlook uns bereits ein natives Feld zum Einfügen von Datum oder Uhrzeit angeboten. Sie können Outlook VBA auch anwenden, um das aktuelle Datum oder die aktuelle Uhrzeit automatisch in den Text oder Betreff der neuen E-Mail einzufügen. Welche Methode Sie auswählen, hängt davon ab, wie oft Sie Datum und Uhrzeit eingeben müssen.

Manuelles Einfügen nach Feld "Datum und Uhrzeit"

1. Zu starStarten Sie Outlook mit.
2. Erstellen Sie anschließend eine neue Nachricht, indem Sie in der Gruppe "Neu" auf der Registerkarte "Startseite" auf die Schaltfläche "Neue E-Mail" klicken.
3. Anschließend können Sie im Fenster "Neue Nachricht" in den E-Mail-Text klicken und zur Registerkarte "Einfügen" wechseln.
4. Als nächstes können Sie das Feld "Datum & Uhrzeit" in der Gruppe "Text" suchen und darauf klicken.
5. Danach wird ein neues Dialogfeld angezeigt. Sie können ein verfügbares Format auswählen und dann auf die Schaltfläche „OK“ klicken.
6. Nachdem Sie zum Nachrichtenfenster zurückgekehrt sind, können Sie das aktuelle Datum oder die aktuelle Uhrzeit im E-Mail-Text anzeigen. Standardmäßig können Sie in Outlook das Feld "Datum und Uhrzeit" nicht auf den Betreff anwenden.
7. Wenn Sie also das Datum oder die Uhrzeit für den Betreff einfügen möchten, müssen Sie sie aus dem Text kopieren und manuell in den Betreff einfügen.

Diese Methode wird empfohlen, wenn Sie selten das aktuelle Datum oder die aktuelle Uhrzeit eingeben müssen. Vorausgesetzt, Sie müssen häufig oder immer einfügen, sollten Sie die folgenden VBA-Codes verwenden, um dies automatisch zu erreichen.

Automatisches Einfügen mit Outlook VBA

1. Drücken Sie zunächst die Tasten „Alt + F11“, um auf den VBA-Editor zuzugreifen.
2. Doppelklicken Sie dann links auf das Projekt „ThisOutlookSession“, um es zu öffnen.
3. Kopieren Sie anschließend die folgenden Codes hinein.

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

Hinweis: Die obigen Codes dienen zum automatischen Einfügen der aktuellen Zeit in das Motiv und den Körper. Wenn Sie das aktuelle Datum einfügen möchten, ersetzen Sie das Feld „objMail_Open”Sub mit folgendem:

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. Unterschreiben Sie diesen Code anschließend wie gewohnt.
5. Später restart Outlook, um das Makro zu aktivieren.
6. Endlich können Sie es versuchen.

• Klicken Sie direkt auf die Schaltfläche "Neue E-Mail", um eine neue E-Mail zu öffnen.
• Sie werden feststellen, dass die neue E-Mail automatisch das aktuelle Datum oder die aktuelle Uhrzeit in Betreff und Text enthält, wie im Bild unten dargestellt:

Vertrauen Sie nicht schnell auf unbekannte E-Mails

Sie müssen jemals Junk-E-Mails erhalten haben. Wie gehst du normalerweise mit ihnen um? Es ist nicht ratsam, Anhänge oder offene Links in dieser Art von E-Mails herunterzuladen, da diese möglicherweise Viren enthalten. Sobald Ihre Outlook-Daten infiziert sind, hat das Posteingang-Reparatur-Tool Scanpst.exe keine Auswirkungen mehr. In diesem Fall haben Sie keine andere Wahl, als auf einen erfahreneren zurückzugreifen PST beheben Werkzeug, wie z DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich verdorben SQL Server und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX