Outlook VBA ile Geçerli Tarih veya Saati E-posta Konusuna veya Gövdesine Otomatik Olarak Ekleme

Birçok kullanıcı, yeni bir e-posta oluştururken e-posta konusuna veya gövdesine geçerli tarih veya saati eklemeye alışkındır. Bu makale size bunu hızlı bir şekilde nasıl başaracağınızı öğretecek.

önceki sost - "Outlook E-postalarınızın Konularına Geçerli Tarihi Otomatik Olarak Ekleme”, konuya güncel tarih veya saati otomatik olarak nasıl ekleyeceğinizi öğrenebilirsiniz. Ancak bu p'deki yöntemost sadece özel bir mesaj biçimi oluşturmaktır. Bu nedenle, her zaman güncel tarih veya konuyla ilgili yeni bir e-posta oluşturmak istediğinizde, her zamanki gibi yeni bir e-posta oluşturmak yerine özel formu seçmelisiniz. Açıkçası, oldukça hantal olacak.

Aslında, Outlook zaten bize tarih veya saat eklemek için yerel bir alan teklif etti. Ayrıca, geçerli tarihi veya saati yeni e-postanın gövdesine veya konusuna otomatik olarak eklemek için Outlook VBA'yı uygulayabilirsiniz. Hangi yöntemi seçtiğinize gelince, tarih veya saati ne sıklıkta girmeniz gerektiğine bağlıdır.

“Tarih ve Saat” Alanına Göre Manuel Olarak Ekleyin

1. İçintart ile Outlook'u başlatın.
2. Ardından “Ana Sayfa” sekmesi altındaki “Yeni” grubundaki “Yeni E-posta” düğmesine tıklayarak yeni bir mesaj oluşturun.
3. Ardından Yeni Mesaj penceresinde e-posta gövdesine tıklayıp “Ekle” sekmesine dönebilirsiniz.
4. Ardından, “Metin” grubundaki “Tarih ve Saat” alanını bulabilir ve tıklayabilirsiniz.
5. Bundan sonra, yeni bir iletişim kutusu görünecektir. Kullanılabilir bir format seçebilir ve ardından “Tamam” düğmesine tıklayabilirsiniz.
6. Mesaj penceresine döndükten sonra, e-posta gövdesinde mevcut tarihi veya saati görebilirsiniz. Varsayılan olarak Outlook, "Tarih ve Saat" alanını konuya uygulamanıza izin vermez.
7. Bu nedenle, son olarak, konuya tarih veya saat eklemek isterseniz, bunları gövdeden kopyalayıp konuya manuel olarak yapıştırmanız gerekir.

Nadiren geçerli tarih veya saati girmeniz gerekiyorsa, bu yöntem daha çok önerilir. Ancak, sık sık veya her zaman eklemeniz gerekiyorsa, otomatik olarak elde etmek için aşağıdaki VBA kodlarını kullanmanız daha iyi olur.

Outlook VBA ile Otomatik Ekleme

1. İlk olarak “Alt + F11” tuşlarına basarak VBA editöre giriş yapın.
2. Ardından sol taraftaki “ThisOutlookSession” projesine çift tıklayarak açın.
3. Daha sonra içine aşağıdaki kodları kopyalayın.

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: Yukarıdaki kodlar, mevcut zamanı özneye ve gövdeye otomatik olarak eklemek için çalışacaktır. Geçerli tarihi eklemek istiyorsanız, “objMail_Open” aşağıdakilerle alt:

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. Ardından, bu kodu her zamanki gibi imzalayın.
5. Daha sonra restarMakroyu etkinleştirmek için Outlook.
6. Sonunda bir deneyebilirsin.

• Yeni bir e-posta açmak için doğrudan “Yeni E-posta” düğmesine tıklayın.
• Yeni e-postanın otomatik olarak konu ve gövde bölümünde, aşağıdaki resimdeki gibi geçerli tarihi veya saati içerdiğini göreceksiniz:

Bilinmeyen E-postalara Hemen Güvenmeyin

Daha önce istenmeyen e-postalar almış olmalısınız. Onlarla genellikle nasıl başa çıkarsınız? Bu tür maillerdeki ekleri indirmeniz veya linkleri açmanız virüs içerebileceği için önerilmez. Outlook verilerinize virüs bulaştığında, gelen kutusu onarım aracı Scanpst.exe herhangi bir etki yapmaz. Bu durumda, daha deneyimli bir uzmana başvurmaktan başka seçeneğiniz yoktur. PST düzeltmesi araç, örneğin DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. bozuk SQL Server ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com