ich wüsste gerne, wie ich in einem Outlook Makro auf Daten, die in einer Excel Tabelle stehen, zugreifen kann.
Ich verwende ein Outlook Makro welches eine Excel-Datei als e-mail-Anhang an einen Empfänger sendet und wie folgt aussieht:
----------
Sub versand()
Dim myolMItem As Outlook.MailItem
Dim myolAtt As Outlook.Attachments
Dim empfänger, datei As String
Set myolMItem = Application.CreateItem(olMailItem)
myolMItem.Save
Set myolAtt = myolMItem.Attachments
empfänger = "lala@lala..de"
datei = "C:\Dokumente und Einstellungen\Christian\Eigene Dateien\test.xls"
myolAtt.Add datei
myolMItem.To = empfänger
myolMItem.Subject = "lalala"
myolMItem.Body = "lalala"
myolMItem.Send
End Sub
---------
Nun habe ich aber mehrere Emfängerkreise und für jeden Empfängerkreis eine bestimmte Datei.
Ich würde also gerne in das Outlook Makro eine Schleife einbauen, bei der die Liste der Empfänger Zeile für Zeile abgearbeitet wird. Nehmen wir also mal an, in einer Hilfsdatei in Excel stehen in Spalte A 30 e-mailadressen und in Spalte B die Pfade der Dateien / e-mail-Anhänge die den Empfänger geschickt werden sollen.
Dann würde ich eine Schleife benutzen die in etwa so aussieht:
For e = 1 To 30
empfänger = Cells(e, 1)
dateipfad = Cells(e,2)
myolAtt.Add dateipfad
myolMItem.To = empfänger
myolMItem.Subject = "lalala"
myolMItem.Body = "lalala"
myolMItem.Send
Next e
Wie ist der richtige Syntax für die beiden Zeilen "empfänger = Cells(e, 1)" und "datei = Cells(e,2)" so dass das Outlook Makro sich die Daten aus der Hilfsdatei in Excel zieht?
Besten Dank im Voraus und Grüße,
Christian