Sådan indsættes automatisk aktuel dato eller tid i e-mail-emne eller -tekst med Outlook VBA

Mange brugere er vant til at indsætte den aktuelle dato eller tid i e-mail-emnet eller kroppen, når de komponerer en ny e-mail. Denne artikel vil lære dig, hvordan du opnår det på hurtig tid.

I den foregående sost - "Sådan tilføjes den aktuelle dato automatisk til emnerne i dine Outlook-e-mails”, Kan du lære, hvordan du automatisk tilføjer den aktuelle dato eller tid til emnet. Men metoden i den sost er simpelthen at oprette en brugerdefineret form for besked. Således skal du på den måde hver gang du vil oprette en ny e-mail med den aktuelle dato eller det aktuelle klokkeslæt vælge den brugerdefinerede form i stedet for at oprette en ny e-mail som normalt. Det vil naturligvis være ret besværligt.

Faktisk har Outlook allerede tilbudt os et oprindeligt felt til at indsætte dato eller klokkeslæt. Du kan også anvende Outlook VBA til automatisk at indsætte den aktuelle dato eller tid i den nye e-mail-krop eller emne. For hvilken metode du vælger, afhænger det af, hvor ofte du har brug for at indsætte dato eller klokkeslæt.

Indsæt manuelt efter feltet "Dato og tid"

1. Til starstart med Outlook.
2. Opret derefter en ny besked ved at klikke på knappen "Ny e-mail" i gruppen "Ny" under fanen "Hjem".
3. Derefter kan du i vinduet Ny besked klikke i e-mail-brødteksten og slå til "Indsæt" -fanen.
4. Dernæst kan du finde og klikke på feltet "Dato og tid" i gruppen "Tekst".
5. Derefter vises en ny dialogboks. Du kan vælge et tilgængeligt format og derefter klikke på “OK” -knappen.
6. Når du er vendt tilbage til meddelelsesvinduet, kan du se den aktuelle dato eller tid i e-mail-kroppen. Som standard tillader Outlook dig ikke at anvende feltet "Dato og tid" på emnet.
7. Derfor skal du endelig, hvis du vil indsætte datoen eller klokkeslættet til emnet, kopiere dem fra kroppen og indsætte dem manuelt i emnet.

Denne metode anbefales mere, hvis du sjældent har brug for at indsætte den aktuelle dato eller tid. Men forudsat at du ofte eller altid har brug for at indsætte, skulle du bedre bruge følgende VBA-koder til at opnå det automatisk.

Indsæt automatisk med Outlook VBA

1. For det første skal du trykke på “Alt + F11” -tasten for at få adgang til VBA-editor.
2. Dobbeltklik derefter på “ThisOutlookSession” -projektet i venstre side for at åbne det.
3. Kopier derefter følgende koder i den.

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

Bemærk: Ovenstående koder fungerer automatisk til at indsætte den aktuelle tid i motivet og kroppen. Hvis du vil indsætte den aktuelle dato, skal du udskifte “objMail_Open”Sub med følgende:

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. Underskriv derefter denne kode som normalt.
5. Senere, restart Outlook for at aktivere makroen.
6. Endelig kan du prøve.

• Klik direkte på knappen "Ny e-mail" for at åbne en ny e-mail.
• Du finder ud af, at den nye e-mail-auto indeholder den aktuelle dato eller tid i emnet og brødteksten, som billedet nedenfor:

Stol ikke på ukendte e-mails let

Du skal nogensinde have modtaget uønskede e-mails. Hvordan håndterer du normalt dem? Det anbefales ikke at downloade vedhæftede filer eller åbne links i denne type mails, da de kan indeholde vira. Når dine Outlook-data bliver inficeret, får reparationsværktøjet til indbakken, Scanpst.exe ikke effekter. I dette tilfælde har du intet andet valg end at ty til en mere erfaren PST-rettelse værktøj, såsom DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder beskadiget SQL Server og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com