VBA kod destek

[ozgurpeh]

Arkadaşlar merhaba,

Aşağıdaki koda ilave yapmak istiyorum. Yardımınıza ihtiyacım var.

Kodun çalışma mantığı şu şekilde: Outlook a gelen bir mailin Konu başlığı aaa_1 olunca otomatik olarak mail "xxxx@xxx.com" adresini iletiliyor ve iletilen mailin konu satırı AAA 1 oluyor.

Ben buraya 1 koşul daha eklemek istiyorum konusu bbb_1 olarak gelen mailde bu sefer farklı bir mail adresine "ccc@ccc.com" konu satırı BBB 1 olarak gitsin istiyorum. kısacası 2 nci farklı bir senaryoyu çalıştırmak istiyorum.

Yardımlarınızı rica ederim.


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, "aaa_1") > 0 Then
Set myForward = Item.Forward
myForward.Recipients.Add "xxxx@xxx.com"
myForward.Subject = "AAA 1"
myForward.CC = "zzzz@zzz.com"
myForward.Body = "otomatik olarak gönderilmistir." & Chr(10) & Chr(10) & "" & Chr(13) & Chr(13) & "'LÜTFEN DIKKATE ALMAYINIZ...'"
myForward.Send
End If
End If
End Sub

 

[turist]

Aşağıdaki gibi deneyin.

Private Sub myOlItems_ItemAdd(ByVal Item As Object)
Dim myForward As MailItem
If TypeName(Item) = "MailItem" Then
If InStr(Item.Subject, "aaa_1") > 0 Then
Set myForward = Item.Forward
myForward.Recipients.Add "xxxx@xxx.com"
myForward.Subject = "AAA 1"
myForward.CC = "zzzz@zzz.com"
myForward.Body = "otomatik olarak gönderilmistir." & Chr(10) & Chr(10) & "" & Chr(13) & Chr(13) & "'LÜTFEN DIKKATE ALMAYINIZ...'"
myForward.Send
End If

If InStr(Item.Subject, "bbb_1") > 0 Then
Set myForward = Item.Forward
myForward.Recipients.Add "ccc@ccc.com"
myForward.Subject = "BBB 1"
myForward.CC = "zzzz@zzz.com"
myForward.Body = "otomatik olarak gönderilmistir." & Chr(10) & Chr(10) & "" & Chr(13) & Chr(13) & "'LÜTFEN DIKKATE ALMAYINIZ...'"
myForward.Send
End If


End If
End Sub

 

[ozgurpeh]

Aşağıdaki gibi deneyin.

Private Sub myOlItems_ItemAdd(ByVal Item As Object)
Dim myForward As MailItem
If TypeName(Item) = "MailItem" Then
If InStr(Item.Subject, "aaa_1") > 0 Then
Set myForward = Item.Forward
myForward.Recipients.Add "xxxx@xxx.com"
myForward.Subject = "AAA 1"
myForward.CC = "zzzz@zzz.com"
myForward.Body = "otomatik olarak gönderilmistir." & Chr(10) & Chr(10) & "" & Chr(13) & Chr(13) & "'LÜTFEN DIKKATE ALMAYINIZ...'"
myForward.Send
End If

If InStr(Item.Subject, "bbb_1") > 0 Then
Set myForward = Item.Forward
myForward.Recipients.Add "ccc@ccc.com"
myForward.Subject = "BBB 1"
myForward.CC = "zzzz@zzz.com"
myForward.Body = "otomatik olarak gönderilmistir." & Chr(10) & Chr(10) & "" & Chr(13) & Chr(13) & "'LÜTFEN DIKKATE ALMAYINIZ...'"
myForward.Send
End If


End If
End Sub

elinize sağlık,teşekkürler. sorunsuz çalıştı

 

[turist]

elinize sağlık,teşekkürler. sorunsuz çalıştı

Sağ olun, iyi çalışmalar.

 

[splashsmlt]

turist hocam konu benim istediğim ile neredeyse aynı onun çin buraya yolladım (KASIM çalışma sayfasında O sütünunda Kesin Randevu yazıyorsa P sütunundaki metni email listesi indeki C sütunundaki mail adreslerine otomatik olarak iletebilir mi? TEKRAR SÖYLÜYORUM AÇILAN KONU İSTEDİĞİME ÇOK BENZİYOR ONUN İÇİN BURAYA YAZDIM. YANLIŞ YAPTIYSAM AFFOLA.

 

[splashsmlt]

ŞAYET KASIM çalışma sayfasındaki B sütünundaki tarihe 3 gün kala atabilirse herhalde mutluluktan uçarım. saygılar

 

[turist]

turist hocam konu benim istediğim ile neredeyse aynı onun çin buraya yolladım (KASIM çalışma sayfasında O sütünunda Kesin Randevu yazıyorsa P sütunundaki metni email listesi indeki C sütunundaki mail adreslerine otomatik olarak iletebilir mi? TEKRAR SÖYLÜYORUM AÇILAN KONU İSTEDİĞİME ÇOK BENZİYOR ONUN İÇİN BURAYA YAZDIM. YANLIŞ YAPTIYSAM AFFOLA.

Kasım sayfasındaki "Kesin Randevu" olan Yetkili= "Seçil Özdemir".
"email listesi" sayfasında ise bu isim yok, Sadece "Cemil" ismi ve altında farklı"örnek" isimler var.
Soru:"Kesin Randevu"satırındaki bilgi hangi e-mail adresine gidecek?
Birden fazla isme gidecekse; "Kime" ve "Bilgi için" kimler olacak?
Açıklama yapabilirseniz, daha kolay ve hızlı cevaplar bulabilirsiniz.

 

[splashsmlt]

1. öncelikle Kesin Randevu yazıyorsa P sütünundaki BİRLEŞTİR işlevi çalışsın. Kesin Randevu dışında ne yazarsa yazsın BİRLEŞTİR işlevi çalışmasın yanı P sütüunundaki ilgili satır boş kalsın.

2. Sayın Yetkili kalıp olarak orada duracak. Yani birisi gelmesine gerek yok.

3. Kesin Randevu satırındaki metin email listesindeki B2 ye yani 1.sıradaki mail adresine gitsin.
Bilgi için :B3 ve sonrasındaki maillere gitsin
4. mail konusu: "Yakın tarihte okulumuza tanıtım için bir ziyaret gerçekleşecek." olsun.

 

[ozgurpeh]

Burdaki mail adreslerini mesela Sayfa2 nin E8 hücresinde yazan mail adresini alması için kodu nasıl düzenlemeliyiz ? bu konuda da destek alabilir miyim