Hallo Zusammen,
ich möchte eine Serienmail Funktion zusammenstellen, die nacheinander jew. ein Tabellenblatt erzeugt und anschließend dieses Blatt als XLS Attachment versendet und das Blatt wieder löscht.
Ich habe mir eine Serienemail-Funktion zusammengesucht, die die entsprechenden Funktionen bereitstellt.
Der Versand der Mails funktioniert einwandfrei - bis auf die Einbindung des Attachments. Hier stehe ich auf dem Schlauch.
...
with createobject("outlook.application").createitem(0)
.To = Cells(i,3).Value 'Mail Adresse
.Subject = Cells(4,2).Value ' Betreff
.body = Cells(6,2).Value
' hier müsste ich doch irgendwie das aktuell geöffnete Workbook unterbekommen, ohne auf eine gespeicherte Datei hinzuweisen oder?
' .attachments.add ActiveWorkbook oder so ähnlich
.display
...
Wenn ich versuche meinen Serienbrief über ActiveWorkbook.sendmail zu erstellen, dann kann ich nur Empfänger, Attachment und Betreff versenden. Hierbei gelingt es mir nicht den Body Text mit zu integrieren. Es ist zum verrücktwerden.
Bin für jede Hilfe dankbar.
Pascal