Ms.Outlook'a gelen mailleri alıp ve yönlendirmek

[1903emre34@gmail.com]

Merhaba,

Belirlediğimiz kişilerden gelen mailleri, konu kısmında herhangi yine ayni şekilde belirleyeceğimiz kelime, mail adresine gönderebilmesi ve tekrar kendi adresimize gönderilmesi için nasıl kod oluşturabiliriz?

Örneğin, abc@abc.com (karşı taraftan gelen,belirlediğimiz mail adresi),
Nisan 2017 defter (seçenek defter kelimesi),
excel@abc.com (yönlendirdiğimiz adres)

excel1@abc.com (kendi mail adresimiz)

 

[Emir Hüseyin Çoban]

.

http://www.excel.web.tr/f48/outlook-gelen-email-kopyasini-ba-ka-bir-adrese-t164319.html

.

 

[1903emre34@gmail.com]

Linkteki yer alan kodları denedim bugün calismadi

 

[Asri]

Bu şekilde deneyin

Bu kodu Outlook da ThisOutlookSession bölümüne ekleyin.
Kodu ekleyip kaydedin. Daha sonra Outlook u kapatıp açın. Makrolar etkinleştirilmiş olmalı.

ilgili yerleri gerçek bilgilere göre değiştirin.

'Option Explicit
Public WithEvents myOlItems As Outlook.Items

Public Sub Application_Startup()
    Set myOlItems = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub myOlItems_ItemAdd(ByVal Item As Object)
    Dim myForward As MailItem
    If TypeName(Item) = "MailItem" Then
        If Item.SenderEmailAddress = "[COLOR=Red]abc@abc.com[/COLOR]" And instr(Item.Subject,"[COLOR=Red]defter[/COLOR]")>0 Then
            Set myForward = Item.Forward
            myForward.Recipients.Add "[COLOR=Red]excel@abc.com[/COLOR]"
            Item.Subject = Item.Subject
            Item.Save
            myForward.Send
        End If
    End If
End Sub

 

[1903emre34@gmail.com]

Merhaba,

Denedim; ama olmadı, karşı taraftan gelen ekte gelen pdf,word dosyaları, belirlediğimiz adrese göndermek, tekrar kendi adresimize gelmesi

 

[Asri]

Merhaba,

Denedim; ama olmadı, karşı taraftan gelen ekte gelen pdf,word dosyaları, belirlediğimiz adrese göndermek, tekrar kendi adresimize gelmesi

Bu noktada bir karışıklık var sanırım.

abc@abc.com siz mail gönderecek,
excel1@abc.com sizin mail adresiniz ve kodlar sizin outlook da yüklü.
excel@abc.com gelen mailin yönlendirileceği mail adresi.

kodlarda ek olarak mail konusunda küçük harfler ile defter yazması gerekiyor.

"tekrar kendi adresimize gelmesi " program bunu sağlayamaz. Karşı tarafın mail işlemlerine müdahale edemez.

Daha detaylı işlemleri için aşağıdaki konuyu inceleyiniz.
http://www.excel.web.tr/f52/outlook-zel-kurallar-uygulamasy-vba-t164412.html