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
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