EMail an mehrere Empfänger in Excel Liste
03.09.2015 14:11:12
Marcel
bin nicht so gut mit VBA Codes, deshalb die Frage.
Möchte an x Personen die in jeder zweiten Spalte meiner Tabelle stehen, eine Mail mit dem Inhalt der Zeilen unter der EMail Adresse schicken.. sprich
AE5 Empfänger1@mail.com
AE6 Daten Empf1
AE7 Daten Empf1
AE50 Daten Empf1
AG5 Empfänger2@mail.com
AG6 Daten Empf2
AG7 Daten Empf2
AG50 Daten Empf2
usw...
etwa 50 verschiedene Empfänger mit jeweils verschiedenen Daten.
habe unten stehenden Code im Netz gefunden. Dieser ermöglicht mir eine Mail an eine festgelegte Email Adresse zu verschicken. Problem hierbei ist jedoch, dass ich die Adressen & den Bereich in dem die Daten stehen ja immer wieder neu eingeben muss.
Jemand ne Idee, wie man das vereinfachen könnte?
Sub Excel_Range_via_Outlook_Senden()
Dim OutApp As Object, Mail As Object, i
Dim Nachricht
'Verweis auf "Microsoft Forms 2.0 Object Library" aktivieren !!
'sonst geht es nicht
'Dataobject wird gebraucht wegen der Zwischenablage
Dim ClpObj As DataObject
For i = 1 To 1
Set ClpObj = New DataObject
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
'Excelbereich der versendet werden soll.
'Wenn kein Bereich versendet werden soll sondern
'der Bereich bereits kopiert wurde, können sie die
'nächsten beiden Zeilen auskommentieren
Range("AE5:AE20").Select
'Bereich wird in die Zwischenablage kopiert
Selection.Copy
With Nachricht
.Subject = "Arbeitspaket"
'Zwischenablage wird eingefügt
ClpObj.GetFromClipboard
.Body = ClpObj.GetText(1)
.To = "beispielmail@beispiel.com"
'Hier wird die Mail angezeigt
'.Display
'Hier wird die Mail gleich in den Postausgang gelegt
.Send
End With
Set OutApp = Nothing
Set Nachricht = Nothing
'Auf Outlook warten. Ist nicht schnell genug :-))
Application.Wait (Now + TimeValue("0:00:05"))
Next i
End Sub