ich habe folgendes Problem:
Ich möchte gerne dass ich per Excel eine E-Mail verschicken kann und die Adressaten aus einer Tabelle in Excel eingelesen werden.
Hier mein bisheriger Code:
Sub Email()
ThisWorkbook.SaveAs "P:...."
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
While ThisWorkbook.Worrksheets("E-Mail Adressaten").Cells(i, 2) ""
.To = ThisWorkbook.Worrksheets("E-Mail Adressaten").Cells(i,2)
i = i + 1
Wend
.Subject = "hier der Betreff"
.Body = "Mein Text"
.Attachments.Add "P:...."
.Display
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub
Das klappt alles bis auf das implementieren der While Schleife.
Jetzt schon mal vielen vielen Dank für eure Hilfe.
Gruß Dario