Datei automatisch anhängen und per E-Mail versenden - Wie Man

Datei automatisch anhängen und per E-Mail versenden

Mit diesem VB-Skript können Sie dies mit einer kleinen Anpassung durchführen

1 Schritte insgesamt

Schritt 1: Fügen Sie diese hinzu und ändern Sie die Serverparameter und andere Parameter nach Bedarf.

Setze fso = CreateObject ("Scripting.FileSystemObject")

strSMTP = "mail.server.com"
strSubject = "EnterSubject"
strSubject = "[email protected]}"
strSubject = "[email protected]}"
strBody = "EnterBodyText"
strAttach = "Verzeichnis des Anhangs"

Wenn fso.FileExists (strAttach) dann
Set iMsg = CreateObject ("CDO.Message")
Setze iConf = CreateObject ("CDO.Configuration")
iConf.Load -1 'Standardwerte für CDO-Quellen
Setze Flds = iConf.Fields
Mit Flds
.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Aktualisieren
Ende mit
Mit iMsg
Set .Configuration = iConf
.To = "[email protected]"
.CC = ""
.BCC = ""
.From = "[email protected]"
.Subject = strSubject
.TextBody = strBody
.AddAttachment strAttach
.Senden
Ende mit
Set iMsg = Nothing
Setze iConf = Nichts
Sonst
MsgBox "Die angegebene Anlage ist nicht vorhanden"
Ende wenn

als vbs-datei speichern

Aus einem Thread genommen habe ich dies in veröffentlicht

https://community.spiceworks.com/topic/69688-automatically-attach-file-and-send-email-ermöglich