Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

werd bekloppt... sendmail

Betrifft: werd bekloppt... sendmail von: Silvie
Geschrieben am: 17.08.2004 16:13:00

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

  


Betrifft: AW: werd lieber nicht bekloppt... ;-) von: Klamsi
Geschrieben am: 17.08.2004 16:24:46

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....?


  


Betrifft: AW: werd bekloppt... sendmail von: Roland Hochhäuser
Geschrieben am: 17.08.2004 16:50:20

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


  


Betrifft: AW: werd bekloppt... sendmail von: Willie
Geschrieben am: 17.08.2004 17:17:26

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