Si të futni automatikisht datën ose orën aktuale në subjektin ose trupin e emailit me Outlook VBA

Shumë përdorues janë mësuar të fusin datën ose orën aktuale në subjektin ose trupin e emailit kur hartojnë një email të ri. Ky artikull do t'ju mësojë se si ta arrini atë në kohë të shpejtë.

Në fq të mëparshmeost - "Si të shtoni automatikisht datën aktuale te subjektet e emaileve tuaja të Outlook”, mund të mësoni se si të shtoni automatikisht datën ose orën aktuale në temë. Por metoda në atë post është thjesht krijimi i një forme mesazhi të personalizuar. Kështu, në këtë mënyrë, sa herë që dëshironi të krijoni një email të ri me datën ose orën aktuale në temë, duhet të zgjidhni formën e personalizuar në vend që të krijoni një email të ri si zakonisht. Natyrisht, do të jetë mjaft e rëndë.

Në fakt, Outlook tashmë na ka ofruar një fushë origjinale për të futur datën ose orën. Gjithashtu, mund të aplikoni Outlook VBA për të futur automatikisht datën ose orën aktuale në trupin ose subjektin e emailit të ri. Sa për metodën që zgjidhni, varet nga sa shpesh duhet të futni datën ose orën.

Futni manualisht sipas fushës "Data dhe Ora".

1. Të start me, nisni Outlook.
2. Më pas krijoni një mesazh të ri duke klikuar butonin "Email i ri" në grupin "I ri" nën skedën "Home".
3. Më pas, në dritaren e Mesazhit të Ri, mund të klikoni në trupin e emailit dhe të ktheheni te skeda "Fut".
4. Më pas mund të gjeni dhe klikoni në fushën "Data dhe Ora" në grupin "Tekst".
5. Pas kësaj, do të shfaqet një kuti e re dialogu. Ju mund të zgjidhni një format të disponueshëm dhe më pas klikoni butonin "OK".
6. Pas kthimit në dritaren e mesazhit, mund të shihni datën ose orën aktuale në trupin e emailit. Si parazgjedhje, Outlook nuk ju lejon të aplikoni fushën "Data dhe Ora" në subjekt.
7. Prandaj, më në fund, nëse dëshironi të futni datën ose orën e subjektit, duhet t'i kopjoni ato nga trupi dhe t'i ngjisni manualisht në subjekt.

Kjo metodë rekomandohet më shumë nëse rrallë keni nevojë të vendosni datën ose orën aktuale. Por me kusht që të keni nevojë të futni shpesh ose gjithmonë, është më mirë të përdorni kodet e mëposhtme VBA për ta arritur atë automatikisht.

Futja automatike me Outlook VBA

1. Në radhë të parë, shtypni butonat "Alt + F11" për të hyrë në redaktuesin VBA.
2. Pastaj klikoni dy herë projektin "ThisOutlookSession" në anën e majtë për ta hapur atë.
3. Më pas kopjoni kodet e mëposhtme në të.

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

Shënim: Kodet e mësipërme do të funksionojnë për të futur automatikisht kohën aktuale në subjekt dhe në trup. Nëse dëshironi të futni datën aktuale, zëvendësoni "objMail_Open” nën me sa vijon:

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. Më pas, nënshkruani këtë kod si zakonisht.
5. Më vonë, restart Outlook për të aktivizuar makro.
6. Më në fund mund të provoni.

• Klikoni drejtpërdrejt në butonin "Email i ri" për të hapur një email të ri.
• Do të zbuloni se automatiku i ri i postës elektronike përmban datën ose orën aktuale në subjekt dhe në trup, si imazhi më poshtë:

Mos u besoni lehtësisht emaileve të panjohura

Ju duhet të keni marrë ndonjëherë emaile të padëshiruara. Si silleni zakonisht me to? Nuk këshillohet shkarkimi i bashkëngjitjeve ose hapja e lidhjeve në këtë lloj emaili, pasi ato mund të përmbajnë viruse. Sapo të dhënat tuaja të Outlook të infektohen, mjeti i riparimit të kutisë hyrëse, Scanpst.exe nuk do të bëjë efekte. Në këtë rast, nuk keni zgjidhje tjetër veçse t'i drejtoheni një më me përvojë Rregullim PST mjet, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë i korruptuar SQL Server dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com