Outlook VBA Destek

[ozgurpeh]

Son halide bu şekilde iş görür sanırım

'Kişiye ve konuya göre gelen maili yönlendirme
'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 InStr(Item.Subject, "test123") > 0 Then
            Set myForward = Item.Forward
            myForward.Recipients.Add "alicimail@gmail.com"
            myForward.Subject = "Sabit konu"
            myForward.CC = xxx@xx.com
            myForwar.Body = " deneme mailidir"
            myForward.Send
        End If
    End If
End Sub

sayın asri,

kimden (hangi mail adresinden göndermek isityorsak) seçeneğini nasıl uygularız, son olarak bu detay içinde yardımcı olabilirmisiniz. Teşekkürler

 

[Asri]

sayın asri,

kimden (hangi mail adresinden göndermek isityorsak) seçeneğini nasıl uygularız, son olarak bu detay içinde yardımcı olabilirmisiniz. Teşekkürler

Aşağıdaki şekilde gönderen adını değiştirebilirsiniz. Ancak sistemler bunu spam yada zararlı mail olarak tanımlayıp engelleyebilirler

'Kişiye ve konuya göre gelen maili yönlendirme
'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 InStr(Item.Subject, "test123") > 0 Then
            Set myForward = Item.Forward
            myForward.SentOnBehalfOfName = "adiilegonder@gmail.com"
            myForward.Recipients.Add "alicimail@gmail.com"
            myForward.Subject = "Sabit konu"
            myForward.CC = "bilgimail@gmail.com"
            myForward.Body = " deneme mailidir"
            myForward.Send
        End If
    End If
End Sub

 

[ozgurpeh]

Aşağıdaki şekilde gönderen adını değiştirebilirsiniz. Ancak sistemler bunu spam yada zararlı mail olarak tanımlayıp engelleyebilirler

'Kişiye ve konuya göre gelen maili yönlendirme
'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 InStr(Item.Subject, "test123") > 0 Then
            Set myForward = Item.Forward
            myForward.SentOnBehalfOfName = "adiilegonder@gmail.com"
            myForward.Recipients.Add "alicimail@gmail.com"
            myForward.Subject = "Sabit konu"
            myForward.CC = "bilgimail@gmail.com"
            myForward.Body = " deneme mailidir"
            myForward.Send
        End If
    End If
End Sub

teşekkürler sayın asri...