Outlook’ta ekleri yalnızca belirli kriterlere göre nasıl otomatik yönlendirebilirsiniz?

Normalde bir e-postayı iletirken, orijinal ileti gövdesi ve ekler otomatik olarak dahil edilir. Ancak bazen yalnızca ekleri — orijinal ileti gövdesi olmadan — belirli bir kişiye iletmek gerekebilir. Outlook’ta bu işlemi nasıl gerçekleştirebilirsiniz?

Belirli kriterlere göre yalnızca ekleri otomatik olarak bir kişiye VBA koduyla iletin

---

Belirli kriterlere göre yalnızca ekleri otomatik olarak bir kişiye VBA koduyla iletin

Örneğin, «kto feature» metnini içeren bir e-posta alındığında, bu e-postanın tüm ekleri ileti gövdesi olmadan otomatik olarak belirli bir kişiye iletilir. Aşağıdaki adımlar size yardımcı olabilir; lütfen aşağıdaki gibi uygulayın:

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.

2. Microsoft Visual Basic for Applications penceresinde, Project1(VbaProject.OTM) bölmesinden ThisOutlookSession öğesine çift tıklayarak modülü açın ve ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın.

VBA kodu: İleti gövdesi olmadan yalnızca ekleri içeren Otomatik Yönlendirme e-postası:

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
    Dim xForwardMail As Outlook.MailItem
    Dim xEmail As MailItem
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xEmail = Item
    If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub  'change subject text to your need
    If xEmail.Attachments.Count = 0 Then Exit Sub
    Set xForwardMail = xEmail.Forward
    With xForwardMail
        .HTMLBody = ""
        With .Recipients
            .Add "skyyang@addin88.com"    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

Not: Yukarıdaki kodda konu satırını ve alıcı e-posta adresini kendi bilgilerinizle güncellemelisiniz.

3. Ardından kodu kaydedin ve etkinleşmesi için Outlook'u yeniden başlatın.

4. Bundan sonra, posta kutunuzda belirli konu metnini içeren her yeni e-posta geldiğinde, Outlook ilgili kişinin istediği yere ileti gövdesi olmadan otomatik yönlendirme eklentilerini iletecektir.

Not: Bu kod yalnızca Varsayılan hesap için geçerlidir.