Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Blatt senden

Forumthread: Blatt senden

Blatt senden
29.09.2005 09:23:59
miro
Hallo Forum,
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

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt senden
29.09.2005 10:39:17
Dr.
Hi,
Du musst die Empfänger als Array mitgeben:
Array("...", "...", "...")
AW: Blatt senden
29.09.2005 11:32:12
miro
hallo Dr.,
funktioniert perfekt,,,,vielen Dank.
Eine Frage noch kurz:
bei klicken Senden_Button hat der Benutzer die Möglichkeit auch diese Blatt nicht zu Senden, aber jedesmal bei auswahl NEIN bekomme ich diese Fehlermeldung:
Laufzeitfehler 1004
Allgemeiner Mailfehler, Beenden Sie MS Excel und starten sie Ihre Mail erneut ,,, so etwas.?
Weiss du "evtl" wie kann diese Meldung bei Nein klicken übersprungen.?
gruss
miro
Anzeige
AW: Blatt senden
29.09.2005 12:09:34
Matthias G
Hallo Miro,

On Error Resume Next
ActiveWorkbook.SendMail (....)
If Err.Number > 0 Then MsgBox "Mail wurde nicht versandt!"
On Error GoTo 0

Gruß Matthias
AW: Blatt senden
29.09.2005 12:32:12
miro
Super jetzt leuft alles wie ich mir vorgestellt habe..
Danke Dr. + Matthias
miro
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum