Az aktuális dátum vagy idő automatikus beszúrása az e-mail tárgyába vagy törzsébe az Outlook VBA segítségével

Sok felhasználó hozzászokott ahhoz, hogy új e-mail írásakor beszúrja az aktuális dátumot vagy időt az e-mail tárgyába vagy törzsébe. Ebből a cikkből megtudhatja, hogyan érheti el ezt gyorsan.

Az előző post - "Az aktuális dátum automatikus hozzáadása az Outlook e-mailek tárgyaihoz”, megtudhatja, hogyan adhatja hozzá automatikusan az aktuális dátumot vagy időt a tárgyhoz. De a módszer abban post egyszerűen egy egyéni üzenetformát kell létrehozni. Így tehát minden alkalommal, amikor új e-mailt szeretne létrehozni az aktuális dátummal vagy időponttal a tárgyban, a megszokott módon új e-mail létrehozása helyett az egyéni űrlapot kell választania. Nyilvánvalóan elég nehézkes lesz.

Valójában az Outlook már felajánlott nekünk egy natív mezőt a dátum vagy az idő beszúrásához. Az Outlook VBA alkalmazással az aktuális dátumot vagy időt automatikusan beillesztheti az új e-mail törzsébe vagy tárgyába. A választott módszer attól függ, hogy milyen gyakran kell beszúrnia a dátumot vagy az időt.

Manuális beszúrás a „Dátum és idő” mező alapján

1. A start és indítsa el az Outlookot.
2. Ezután hozzon létre egy új üzenetet az „Új e-mail” gombra kattintva az „Új” csoportban a „Főoldal” fül alatt.
3. Ezt követően az Új üzenet ablakban kattintson az e-mail törzsére, és lépjen a „Beszúrás” fülre.
4. Ezután megkeresheti és rákattinthat a „Dátum és idő” mezőre a „Szöveg” csoportban.
5. Ezt követően egy új párbeszédpanel jelenik meg. Kiválaszthat egy elérhető formátumot, majd kattintson az „OK” gombra.
6. Miután visszatért az üzenetablakba, láthatja az aktuális dátumot vagy időt az e-mail törzsében. Alapértelmezés szerint az Outlook nem engedélyezi a „Dátum és idő” mező alkalmazását a tárgyra.
7. Ezért végül, ha a dátumot vagy az időt szeretné beszúrni a tárgyba, másolja ki őket a törzsből, és illessze be kézzel a tárgyba.

Ez a módszer inkább akkor ajánlott, ha ritkán kell beszúrnia az aktuális dátumot vagy időt. De feltéve, hogy gyakran vagy mindig be kell szúrnia, jobb, ha a következő VBA-kódokat használja az automatikus eléréshez.

Automatikus beszúrás az Outlook VBA-val

1. Először is nyomja meg az „Alt + F11” billentyűket a VBA-szerkesztő eléréséhez.
2. Ezután kattintson duplán a „ThisOutlookSession” projektre a bal oldalon a megnyitásához.
3. Ezután másolja be a következő kódokat.

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

Jegyzet: A fenti kódok automatikusan beillesztik az aktuális időt a tárgyba és a törzsbe. Ha az aktuális dátumot szeretné beszúrni, cserélje ki a „objMail_Open” al a következőkkel:

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. Ezt követően a szokásos módon írja alá ezt a kódot.
5. Később, restart Outlook a makró aktiválásához.
6. Végre egy próbát tehetsz.

• Új e-mail megnyitásához kattintson közvetlenül az „Új e-mail” gombra.
• Látni fogja, hogy az új e-mail automatikusan tartalmazza az aktuális dátumot vagy időt a tárgyban és a törzsben, mint az alábbi képen:

Ne bízzon könnyen az ismeretlen e-mailekben

Biztosan kapott már kéretlen e-maileket. Általában hogyan bánsz velük? Nem tanácsos az ilyen típusú levelekhez csatolmányokat letölteni vagy linkeket megnyitni, mert vírusokat tartalmazhatnak. Ha az Outlook-adatai megfertőződnek, a beérkező levelek javítóeszköze, a Scanpst.exe nem fejti ki hatását. Ebben az esetben nincs más dolgod, mint egy tapasztaltabbhoz folyamodni PST javítás eszköz, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sérült SQL Server és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com