ich möchte aus einer Tabelle, worin E-Mail Adressen aufgelistet sind eine automatische E-Mail mit vorgeschrieben Text und Betreff schreiben lassen.
Beispielsweise steht in der Spalte C3 bis C100 oder Tabellenspalte "E-Mail" die jewiligen E-Mails.
Ich habe es bis jetzt so gelöst:
Sub Test()
Dim objOutlook As Object
Dim objMail As Object
Dim i As Integer
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
For i = 3 To 100
With objMail
.To = Cells(i, 3)
.Subject = Range("G3")
.body = Range("H3")
.Display
End With
Next
Set objOutlook = Nothing
Set objMail = Nothing
End Sub
Damit bekomme ich aber nur die letzte E-Mail Adresse angezeigt.
Für mich ist VBA absolutes Neuland und ich hoffe, dass mir trotzdem geholfen werden kann.
Testdatei:
https://www.herber.de/bbs/user/127269.xlsx