Outlook ta mail gönderirken makro kullanımı

[programer]

Arkadaşlar herkese merhaba. Outlook ta mail gönderirken giden maili bide bakşa bir adrese otomatik olarak gönderiyorum. Yapmak istediğim maili gönderirken gidecek kişi adının içerisinde belirli bir sözcük varsa ikinci maili göndermesin mesela alıcı adı "@mail.local" içeriyorsa ikinci adrese mail atmasın.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim outlookapp As Application
Dim outlookmessage As Object
Dim objMe As Object


Set outlookapp = CreateObject("Outlook.Application")
Set outlookmessage = outlookapp.CreateItem(olMailItem)

Set objMe = Item.Recipients.Add("mail@mail.com")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub

 

[hamitcan]

Bu şekilde deneyin.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If InStr(1, Item.To, "@mail.local") > 0 Then
'.... kodlarınız.
end if
End Sub

 

[programer]

sayın hamitcan yardımınız için teşekkür ederim şimdi istediğim gibi çalışıyor