gehe auf Recherche und gib EMAIL ein da findest du alles
gruss geri
Wenn in Spalte A die E-Mail-Adressenund in Spalte B die Anrede steht, dann kannst Du für Dein "Sammel-Mail" folgendes MAkro verwenden:
Application.DisplayAlerts = False Open "d:\Eigene Dateien\Brief.txt" For Input As #1Sub SammelemailErstellen()
Code eingefügt mit Syntaxhighlighter 1.14
Sheets("Verteiler").Activate
Range("A2").Select
Dim outl, Mail As Object
Dim textzeile
Sub SammelemailErstellen()
Sheets("Verteiler").Activate
Range("A2").Select
Dim outl, Mail As Object
Dim textzeile
Dim s
Set outl = CreateObject("Outlook.Application")
Do Until ActiveCell.Value = ""
Set Mail = outl.CreateItem(0)
Mail.Subject = "Projektbesprechung"
Do While Not EOF(1)
Line Input #1, textzeile
s = s & Chr(13) & textzeile
Loop
Mail.Body = "Liebe(r) " & ActiveCell.Offset(0, 1).Value _
& Chr(13) & s
Mail.To = ActiveCell.Value
Mail.Attachments.Add "d:\Eigene Dateien\Brief.txt"
Mail.Display
'Mail.Send
Set Mail = Nothing
ActiveCell.Offset(1, 0).Select
Loop
Close #1
Set outl = Nothing
End Sub