Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

werd bekloppt... sendmail

werd bekloppt... sendmail
17.08.2004 16:13:00
Silvie
Hallo!
wie geht'n das? Krieg es einfach nicht hin, daß ein Arbeitsblatt aus Excel mit einem Makro an mehrere Empfänger gesandt wird...
ActiveWorkbook.SendMail Recipients:= _
"empfänger1@server.de", "empfänger2@server.de", "empfänger3@server.de"), _
Subject:="Ein Test"
Kann mir jemand helfen (ganz schnell)?
Gruß
Silvie

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: werd lieber nicht bekloppt... ;-)
Klamsi
Also ich bin mir ja nicht sicher wie das in Office gehandhabt wird, aber eigentlich heißt es doch nicht "empfänger1@server.de","empfänger2@server.de" sondern
empfänger1@server.de, empfänger2@server.de
Vielleicht ist ja nur diese kleine Syntax falsch....?
AW: werd bekloppt... sendmail
17.08.2004 16:50:20
Roland
Hallo Silvie,
läuft das denn:

Sub Mailen()
Dim arr As Variant
arr = "empfänger1@server.de, empfänger2@server.de, empfänger3@server.de"
ActiveWorkbook.SendMail Recipients:=arr, Subject:="Ein Test"
End Sub

Gruß Roland
AW: werd bekloppt... sendmail
Willie
Hallo Silvie
Tausch mal die Kommas gegen strich-punkt also ; gegen ,
dann muß es gehen!
Hier noch ein anderes Beispiel..
Gruß
Willie

Sub AktiveTabelleAlsEMailVersenden()
Dim Empfänger As String
Empfänger = InputBox("Geben Sie den Empfänger des e-Mails ein!")
If Empfänger = "" Then Exit Sub
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A1").Value & ".xls"
ActiveWorkbook.SendMail Recipients:=Empfänger, _
Subject:=Range("A1").Value
ActiveWorkbook.Close savechanges:=False
End Sub

Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige