Makro kullanarak A hücresine yazılan mail adresine mail göndermesi diğer işlem

[istanbulcahan]

Aşağıdakii makroyu kullanarak, A1 hücresine yazılan mail adresine yazılan mail adresine gönderim yapıyor.

Ben buna bağlı olarak bazı işlemleri yapmasını istiyorum.
1- Burada A sutununda mail adreslerine tek tek tıklayınca mail gönderiyor. Ben bu mail gönderme işini buton koyarak;
A) HEPSİNE GÖNDER VE mesaja OTOMATİK KONU BAŞLIĞI D HÜCRESİNE girilen veriye göre,
mesaj yazması.
B) Mailinin yanındaki kutuda tik işareti olarak mail gönderme işlemi ayrı ayrı yapma.
Örnek dosya ektedir.

"Sub Excel_Serienmail_via_Outlook_Senden()
Dim OutApp As Object, Mail As Object
Dim i As Integer
Dim Nachricht
For i = 1 To 10
'Variablen müssen bei jeder Schleife neu initalisiert werden
Set OutApp = CreateObject(""Outlook.Application"")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Cells(i, 1)'Adresse
.Subject = Cells(i, 2) 'Betreffzeile
.Body = Cells(i, 3) 'Sendetext
'Hier wird die Mail gleich in den Postausgang gelegt
'und die Sicherheitsabfrage muss jedesmall bestätigt werden
'.Send
'Hier wird die Mail ""angezeigt""
'aber gleich versendet,... OHNE Sicherheitsabrage
.Display
SendKeys ""%s"",True
End With
'Variablen zurücksetzen sonst geht es nicht
Set OutApp = Nothing 'CreateObject(""Outlook.Application"")
Set Nachricht = Nothing 'OutApp.CreateItem(0)
Application.Wait (Now + TimeValue(""0:00:05""))
Next i
End Sub"

 

[kayra75]

cok kullanışlı..Emeğine sağlık

 

[istanbulcahan]

Makro zaten excelde vardı. Ben makroyu örnek dosya ya ekledim. Örnek dosyanın içinde bazı isteklerim vardı. İşinize yaraması da beni mutlu etti.

 

[istanbulcahan]

Günceldir.

 

[cruoizei]

Merhaba,
Bu kodların Lotus ile olanı bulunur mu ?