Makro mit E-Mail aus Outlook

[ChiquiNiki]

Hallo zusammen,

Ich verzweifle hier gerade.   Kann mir jemand weiterhelfen?

Ich habe ein Makro erstellt, das automatisch eine vorbereitete E-Mail aus Outlook versendet. Dabei möchte ich die Empfänger aus dem Tabellenblatt ("Tabelle1") aus Spalte E ziehen. Damit würde es automatisch  gehen, wenn ich eine neue E-Mail hinzufügen würde. Es funktioniert jedoch nur mit einer Zelle aber nicht wenn ich z.B. ("E2:E") eingebe um alle Mail-Adressen aus der Spalte zu übernehmen. 

Danke im Voraus.

[Flotter Feger]

Hallo,

versuch es mal so ...

PHP-Code:

Sub EmailAbbruch41()

Dim objOutlook As Object
Dim objMail As Object
Dim i As Long
Dim WS As Worksheet

Set WS = Worksheets("Tabelle1")

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
    .Subject = "EMAILs"
    .Body = "Guten Morgen Kollegen/Kolleginnen,"
    .Display
    letzte = WS.Cells(Rows.Count, 5).End(xlUp).Row
    For i = 2 To letzte
        .Recipients.Add (WS.Range("E" & i).Value)
    Next i
End With

End Sub 


... ungetestet.

Sabina

[steve1da]

Scheint längst gelöst....
https://www.clever-excel-forum.de/Thread...us-Outlook