gespeichert. Jetzt möchte ich Mails an die Mitglieder versenden.
Wie kann ich eine Mail gleichzeitig an alle Adressen senden.
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