Cum să inserați automat data sau ora curentă în subiectul sau corpul e-mailului cu Outlook VBA

Mulți utilizatori sunt obișnuiți să insereze data sau ora curentă în subiectul sau corpul e-mailului atunci când compun un nou e-mail. Acest articol vă va învăța cum să o obțineți în timp util.

În pag. precedentăost - "Cum să adăugați automat data curentă la subiectele e-mailurilor dvs. Outlook”, puteți afla cum să adăugați automat data sau ora curentă la subiect. Dar metoda din post este pur și simplu de a crea o formă personalizată de mesaj. Astfel, prin acest mijloc, de fiecare dată când doriți să creați un nou e-mail cu data sau ora curentă în subiect, trebuie să alegeți formularul personalizat în loc să creați un nou e-mail ca de obicei. Evident, va fi destul de greoi.

De fapt, Outlook ne-a oferit deja un câmp nativ pentru a introduce data sau ora. De asemenea, puteți aplica Outlook VBA pentru a insera automat data sau ora curentă în corpul sau subiectul noului e-mail. În ceea ce privește metoda pe care o selectați, depinde de cât de des trebuie să introduceți data sau ora.

Inserați manual după câmpul „Dată și oră”.

1. Pentru a starcu, lansați Outlook.
2. Apoi creați un mesaj nou făcând clic pe butonul „E-mail nou” din grupul „Nou” din fila „Acasă”.
3. Ulterior, în fereastra Mesaj nou, puteți face clic în corpul e-mailului și puteți accesa fila „Inserare”.
4. În continuare, puteți găsi și faceți clic pe câmpul „Dată și oră” din grupul „Text”.
5. După aceea, va apărea o nouă casetă de dialog. Puteți alege un format disponibil și apoi faceți clic pe butonul „OK”.
6. După revenirea la fereastra mesajului, puteți vedea data sau ora curentă în corpul e-mailului. În mod implicit, Outlook nu vă permite să aplicați câmpul „Dată și oră” subiectului.
7. Prin urmare, în sfârșit, dacă doriți să introduceți data sau ora în subiect, trebuie să le copiați din corp și să le lipiți manual în subiect.

Această metodă este mai recomandată dacă rareori trebuie să introduceți data sau ora curentă. Dar cu condiția ca frecvent sau întotdeauna să fie nevoie să inserați, ar fi bine să utilizați următoarele coduri VBA pentru a o realiza automat.

Inserare automată cu Outlook VBA

1. În primul rând, apăsați butoanele tastei „Alt + F11” pentru a accesa editorul VBA.
2. Apoi faceți dublu clic pe proiectul „ThisOutlookSession” din partea stângă pentru a-l deschide.
3. Apoi copiați următoarele coduri în el.

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

Notă: Codurile de mai sus vor funcționa pentru a introduce automat ora curentă în subiect și corp. Dacă doriți să introduceți data curentă, înlocuiți „objMail_Open” sub cu următoarele:

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. Ulterior, semnați acest cod ca de obicei.
5. Mai târziu, restart Outlook pentru a activa macrocomanda.
6. În sfârșit poți încerca.

• Faceți clic direct pe butonul „E-mail nou” pentru a deschide un e-mail nou.
• Veți descoperi că noul e-mail automat conține data sau ora curentă în subiect și corp, ca în imaginea de mai jos:

Nu aveți încredere în e-mailurile necunoscute

Trebuie să fi primit vreodată e-mailuri nedorite. Cum te descurci de obicei cu ei? Nu este recomandabil să descărcați atașamente sau să deschideți link-uri în acest tip de e-mailuri, deoarece acestea pot conține viruși. Odată ce datele dvs. Outlook sunt infectate, instrumentul de reparare a căsuței primite, Scanpst.exe, nu va produce efecte. În acest caz, nu ai de ales decât să apelezi la o persoană mai experimentată Remediere PST instrument, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv stricat SQL Server și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com