Meine Frage: Wie kann ich mit den ganzen Email-Adressen eine Sammel-Email verschicken, d.h. eine Email an die ganzen Email-Adressen!
Hoffe jemand kann mir weiterhelfen!
Gruss Othmar
Hoffe jemand kann mir weiterhelfen!
Gruss Othmar
Private Sub CommandButton1_Click()
Dim rngSource As Range
Set rngSource = Range("A1:N40")
Application.ScreenUpdating = False
Workbooks.Add
rngSource.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWorkbook.SendMail "email@provider.de", Range("AG2")
ActiveWorkbook.SendMail Range("AG3"), Range("AG2")
ActiveWorkbook.Close savechanges:=False
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen