Blatt senden
29.09.2005 07:23:59
miro
ich hoffe Ihr könnt mir Helfen.
Meine situation;
Ich habe mit diesem Code versucht eine bestimmte Tabelle aus eine Datei kopiert und gesendet als separates Datei, soweit alles OK. Mit nur einem Empfänger hat das funkioniert aber ich brauche momentan sieben Empfänger zu deffiniere.
Frage1 - wie kann ich mnehrere Emails_Empfänger einflanzen in unten stehende Code.?
Sub Blatt_senden()
'Die Routine kopiert Tabelle in eine neue Arbeitsmappe,
'versendet diese und schließt sie anschließend ohne Speicherung'
Sheets("EMail_Blatt").Copy
ActiveWorkbook.SendMail "rr.bb@aol.de", "Bestellung xxxxx"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
Besten Dank
miro
End Sub