Forum
Bildirimler
Hepsini Temizle
Microsoft Office
2
Yazılar
2
Üyeler
0
Reactions
620
Görüntüleme
Konu başlatıcı
Merhaba Arkadaşlar,
Ben bir tablo hazırladım bu tabloda 1. stünda personellerin mail adresleri, diğer stündada verileri var. Bu tabloda herkesin kendi verisi mail yoluyla sadece kendine gitsin istiyorum. Elimde bir makro var ancak tek tek makro yazmak gerekebiliyor. Konu hakkında yardımcı olursanız beni inanılmaz mutlu edersiniz. Şimdiden teşekkürler. İyi çalışmalar.
Kullandığım makro:
| 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 |
Gönderildi : 28/11/2016 19:18
merhaba
mail merge olayını bir araştırın. excel ile güzel oluyordu :))
eski çalıştığım yerde personelin izinleri bu şekilde kendilerine mail atılıyordu (mail merge).
Gönderildi : 03/12/2016 22:23
