Makro mit E-Mail aus Outlook

[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