Email über Excel verschicken Schleife
09.03.2018 12:11:38
Daniel
hab folgendes Problem: der fett markierte Bereich funktioniert nicht, weil ich möchte das in der Empfängerliste alle Namen drinnen stehen die in der Spalte drinnen sind, z.B Hermann.maier@muster.at und wenn nichts mehr in der Spalte steht. soll er aufhören, Werner hat mir vorhin schon bisschen ausgeholfen, aber er hatte nicht den wichtigen Code, der ist dabei, vielen Dank für Eure Hilfe.
LG Daniel
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
loLetzte = .Cells(.Rows.Count, 5).End(xlUp).Row
For i = 2 To loLetzte
.To = Cells(i, 5)
Next i
.Subject = "BI: AGA " & bu & " : " & sd & " (AWP Demand ID: " & awp & " / ProblemID: " & op & " )"
.Body = " "
.display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
End With