+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Makro mit E-Mail aus Outlook (/thread-17606.html)
Makro mit E-Mail aus Outlook - ChiquiNiki - 09.02.2021
Hallo zusammen,
Ich verzweifle hier gerade.
![[Bild: confused.gif]](https://www.clever-excel-forum.de/images/smilies/confused.gif)
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.
RE: Makro mit E-Mail aus Outlook - Flotter Feger - 09.02.2021
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
Sabina
RE: Makro mit E-Mail aus Outlook - steve1da - 09.02.2021
Scheint längst gelöst....
https://www.clever-excel-forum.de/Thread-Makro-mit-E-Mail-aus-Outlook