Belirli Gelen E-postaları Outlook'ta Özel Konu ve Gövde ile Otomatik Olarak İletme

Görünüm Çözümleri Eylül 29, 2025
Şimdi paylaş:

Belirli gelen e-postaları otomatik olarak yönlendirmek için önce Outlook'ta kurallar kullanmayı düşüneceksiniz. Ancak kural, yönlendirirken e-posta konusunu ve gövdesini özelleştirmenizi desteklemez. Özel konu ve gövdeye sahip belirli e-postaları otomatik olarak yönlendirmek istiyorsanız, bu makalede açıklanan yöntemi kullanabilirsiniz.

Hepimizin bildiği gibi, Outlook kuralları, kullanıcıların belirli gelen e-postaları otomatik olarak iletmelerini destekleyebilir. Bu sayede e-posta, konusu "FW: orijinal posta konusu" ve orijinal posta gövdesi şeklinde belirli kişilere otomatik olarak iletilecektir. Ancak birçok kullanıcı, özel konu ve gövdeye sahip e-postaları otomatik olarak iletmeyi umuyor. Görünüşe göre, kurallar bunu gerçekleştiremez. Bu nedenle, burada kolaylıkla elde etmek için bir yaklaşım sunacağız.

Belirli Gelen E-postaları Özel Konu ve Gövde ile Otomatik İlet

  1. En başta, star• Outlook programınız.
  2. Ardından, “ referansıyla VBA editörüne erişin.Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
  3. Ardından, aşağıdaki VBA kodunu kopyalayıp “ThisOutlookSession” projesine yapıştırın.
Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInbox.Items
End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objForward As Outlook.MailItem
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'If it is a specific new email
       If (objMail.SenderEmailAddress = "bob_black@datanumen.com") And (objMail.Importance = olImportanceHigh) And (objMail.Attachments.Count > 0) Then
 
           Set objForward = objMail.Forward
           'Customize the forward subject, body and recipients
           With objForward
                .Subject = "Custom Subject"
                .HTMLBody = "<HTML><BODY>Type body here. </BODY></HTML>" & objForward.HTMLBody
                .Recipients.Add ("boss@datanumen.com")
                .Recipients.Add ("john@datanumen.com")
                .Recipients.ResolveAll
                .Importance = olImportanceHigh
                .Send
           End With
       End If
    End If
End Sub

VBA Kodu - Belirli Gelen E-postaları Özel Konu ve Gövde ile Otomatik İlet

  1. Bundan sonra, belirtilen gelen e-postaların kriterlerini değiştirin. Ve koddaki belirli gövdeyi, konuyu ve alıcıları ihtiyaçlarınıza göre değiştirin.
  2. Sonunda, “Uygulama_S'ye tıklayıntartup” alt programını seçin ve “F5” tuşuna basın.
  3. O zamandan beri, varsayılan Gelen Kutusu klasörünüze belirli bir gelen geldiğinde, Outlook bunu otomatik olarak özel konu ve gövde ile önceden tanımlanmış alıcılara iletir.E-postaları Otomatik İlet

Outlook Sorunlarını Esnek Bir Şekilde Ele Alın

Outlook zengin özelliklere sahip olmasına rağmen, hatalardan ve diğer sorunlardan muaf olamaz. Örneğin, Outlook PST dosyası birden fazla faktör nedeniyle kolayca bozulabilir. Bunlara insan hataları, virüsler, büyük boyutlu PST dosyası ve zarar görmüş Outlook profilleri vb. dahildir. Bu nedenle, Outlook PST dosya boyutuna dikkat etmek, tüm virüsleri uzak tutmak ve sağlam bir dosya elde etmek gibi bazı önlemler almanız gerekir. Outlook kurtarma 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. SQL Server kurtarma ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com

Şimdi paylaş:

Yoruma kapalı.