Emailversand Schleife mit verschiedenen Anhängen

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