- Katılım
- 13 Eylül 2015
- Mesajlar
- 201
- Excel Vers. ve Dili
- 2010 VBA
- Altın Üyelik Bitiş Tarihi
- 04-08-2023
Merhaba Arkadaşlar,
Aşağıda otomatik mail atan bir makrom var. Şöyle bir şey istiyorum.
Bir Userform üzerinde;
Ahmet
Mehmet
Kemal
Hasan
Arzu
Yelda
Samet
isimlerinde 7 checkbox olacak. Ben yukarıda sadece seçtiğim checkboxları bir buton yardımıyla çalıştırmak istiyorum. Tabi her seçtiğim checkbox için aşağıdaki maili hazırlayıp gönderecek. Burda amacım seçtiğim checkboxlardaki isimlere aşağıdaki maili atmak. Ayrıca her oluşturduğu mailin gövde kısmında maili atacağı kişinin isimi hitap şeklinde yazılsın. Örneğin sadece Ahmet ve Hasan checkboxlarını seçip çalıştırdığımda hazırladığı iki mailin gövdesine "Sn. Ahmet Bey" ve "Sn. Hasan Bey" ayrı ayrı yazsın. Sonrasında ise örneğin yine ahmet ve hasan checkboxlarımı seçtiğimde mailin to ve cc kısmına o isme ait mail adreslerini eklesin. Biraz karmaşık anlattım kusura bakmayın. ilginiz için şimdiden teşekkür ederim.
Aşağıda otomatik mail atan bir makrom var. Şöyle bir şey istiyorum.
Bir Userform üzerinde;
Ahmet
Mehmet
Kemal
Hasan
Arzu
Yelda
Samet
isimlerinde 7 checkbox olacak. Ben yukarıda sadece seçtiğim checkboxları bir buton yardımıyla çalıştırmak istiyorum. Tabi her seçtiğim checkbox için aşağıdaki maili hazırlayıp gönderecek. Burda amacım seçtiğim checkboxlardaki isimlere aşağıdaki maili atmak. Ayrıca her oluşturduğu mailin gövde kısmında maili atacağı kişinin isimi hitap şeklinde yazılsın. Örneğin sadece Ahmet ve Hasan checkboxlarını seçip çalıştırdığımda hazırladığı iki mailin gövdesine "Sn. Ahmet Bey" ve "Sn. Hasan Bey" ayrı ayrı yazsın. Sonrasında ise örneğin yine ahmet ve hasan checkboxlarımı seçtiğimde mailin to ve cc kısmına o isme ait mail adreslerini eklesin. Biraz karmaşık anlattım kusura bakmayın. ilginiz için şimdiden teşekkür ederim.
Kod:
Sub KOD()
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Dim SM As Worksheet: Set SM = Sheets("MAİL")
Dim SA As Worksheet: Set SA = Sheets("AYARLAR")
Dim xlOutlook As Object
Dim xlMail As Object
Set xlOutlook = CreateObject("Outlook.Application")
Set xlMail = xlOutlook.CreateItem(0)
With xlMail
.sentonbehalfofname = ""
.to = ""
.Cc = ""
.Subject = ""
.HTMLBody = "<BODY style=font-size:11pt;font-family:Arial>" & SM.Range("A4") & "," & "<BR><BR>" & _
"<B>" & Format(SM.Range("A1"), "dd.mm.yyyy") & " " & SM.Range("B1") & "</B> " & "günü " & _
"Saat " & "<B>" & Format(SM.Range("A2"), "hh:mm") & "</B>" & SM.Range("B2") & " " & " Toplantı yapılacaktır." & "<BR><BR>" & _
"Katılımlarınız hususunu bilgilerinize arz ederiz." & "<BR><BR>" & _
"Saygılarımızla,"
.Save
.Display
'.Send
End With
Set xlMail = Nothing
Set xlOutlook = Nothing
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub