E-Mail per Liste versenden
23.08.2006 16:05:41
Anton
ich möchte meine Arbeit automatisieren, und der E-Mail-Empfänger soll davon nicht merken:
In einem bestimmten Ordner wohnen Excel-Dateien, die gemeinsam an vier verschiedene Leute
(2x Empfänger, 2x Kopie-Empfänger) gehen sollen.
Die Empfänger und Kopie-Empfänger verwalte ich in einer anderen Datei.
Auch möchte ich eine betimmte Standartformulierung als E-Mail-Text verwenden.
Vielleicht kann ich noch ein paar Variablen einfügen.
Dieses Makro hier leistet leider nicht genug:
Sub S1_senden()
Dim Empfänger As String
Empfänger = Worksheets("info").Range("F3")
Sheets("S1").Copy
ActiveWorkbook.SendMail Empfänger, "Tägliche Auswertung"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End
Sub
Wer von Euch kann mir hier weiterhelfen?
Mein Dank geht schon jetzt in Eure Richtung.
Servus,
Anton