Mailversand mit Anhang

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Excel_Serienmail_via_Outlook_Senden() Dim OutApp As Object, Mail As Object Dim i As Integer Dim Nachricht For i = 1 To 10 'Anzahl der Mails '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 .AddAttachment "C:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder\ _ Geburtstag1.jpg" .Body = Cells(i, 3) & Chr$(10) & Chr$(10) & Cells(i, 4) & Chr$(10) & Chr$(10) & _ Cells(i, 5) '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:01")) Next i End Sub

Sub Excel_Serienmail_via_Outlook_Senden() Dim OutApp As Object, Mail As Object Dim i As Integer Dim Nachricht For i = 1 To 10 'Anzahl der Mails '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 .attachments.Add "C:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder\ _ Geburtstag1.jpg" .Body = Cells(i, 3) & Chr$(10) & Chr$(10) & Cells(i, 4) & Chr$(10) & Chr$(10) & _ Cells(i, 5) '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:01")) Next i End Sub

Hallo Tom,
das wundert mich allerdings auch. Probiere mal bitte folgende drei Sachen:
1. Verlinke die Zelle direkt mit der anzuhängenden Datei (Strg+k oder mit "Einfügen" und "Hyperlink...") und nutze .attachments.Add Cells(i, 6).Hyperlinks(1).Address
2. Ohne Hyperlink ".attachments.Add Cells(i, 6).Text" verwenden
3. Kontrolliere per Makro, ob der Dateipfad stimmt. Markiere die betreffende Zelle und starte folgendes Makro:


Sub Kontrolle_Dazteipfad()
If Dir(ActiveCell.Text) = "" Then
MsgBox "Der Dateipfad kann nicht gefunden werden!"
Else
MsgBox "Der Dateipfad stimmt!"
End If
End Sub

Oder falls Pfad als Hyperlink in die Zelle eingefügt ist:


Sub Kontrolle_Dazteipfad()
If Dir(ActiveCell.Hyperlinks(1).Address) = "" Then
MsgBox "Der Dateipfad kann nicht gefunden werden!"
Else
MsgBox "Der Dateipfad stimmt!"
End If
End Sub

Viel Erfolg.

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mailversand mit Anhang

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread