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