ich möchte gerne mit einem Makro unterschiedliche Dateien an verschiedene Emailadressaten versenden. Die Emails inkl. Emailadresse, Betreff und Text sind in meinem Code bereits enthalten. Nun benötige ich jedoch noch einen Schleife, die mir zu jeder Emailadresse einen eigenen Anhang mit sendet. Bisher bekommen alle Emailempfänger den gleichen Anhang.
Hat hier jemand eine Idee? Alle Infos, die ich bisher gefunden habe, funktionieren bei mir nicht.
Vielen Dank!
Sub Excel_Serial_Mail()
Dim MyOutApp As Object, MyMessage As Object
Dim i As Long
Dim AWS As String
'Übergabe des Mappennames an die Variable
AWS = "G:\Verwaltung\XXX.xlsx"
'Start der Sendeschleife an 3 Empfänger, bei mehr Empfängern muss die Zahl entsprechend _
erweitert werden
For i = 1 To 3
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
'Die Empfänger stehen in Spalte A ab Zeile 1
.To = Cells(i, 1) 'E-Mail Adresse
'Der Betreff in Spalte B
.Subject = Cells(i, 2) '"Betreffzeile"
''Der zu sendende Text in Spalte C
.Body = Cells(i, 3) & vbCrLf
'Anhang einfügen
.attachments.Add AWS
.Send
End With
Next i
'Variablen leeren
Set MyOutApp = Nothing
Set MyMessage = Nothing
End
Sub