Hallo,
in einem der hier veröffentlichten Artikel (Name siehe Betreffzeile) geht es um das versenden von emails über ein vbscript. Den im Artikel verwendeten Code hänge ich hier nochmal an. als ich einen Versuch gestartet habe, eine email damit zu versenden tauchte bei mir folgende Fehlermeldung auf:
>>
Skript: FMMAIL.vbs #so heißt die von mir benannte Skriptdatei
Zeile: 28 #im Code: oMsg.Send
Zeichen: 1
Fehler: The "SendUsing" configuration value is invalid.
Code: 80040220
Quelle: CDO.Message.1
Kann mir jemand sagen wo hier das Problem liegt? Es handelt sich bei dem Betriebssystem um Windows2000.
Der VBCode ist folgender:
>>
Option Explicit
Dim ArgObj
Set ArgObj = WScript.Arguments
if ArgObj.Count 3 then
DisplayHelpMessage
WScript.Quit
end if
Dim target, subject, body, from
target = ArgObj.Item(0)
subject = ArgObj.Item(1)
body = ArgObj.Item(2)
from = "otto@artus-biotech.de"
SendMail target, from, subject, body
function SendMail( strTo, strFrom, strSubject, strBody)
dim oMsg
set oMsg = CreateObject("CDO.Message")
oMsg.To = strTo
oMsg.From = strFrom
oMsg.Subject = strSubject
oMsg.TextBody = strBody
oMsg.Send
WScript.Echo "Mail von " & strFrom & " an " & strTo & " verschickt.."
set oMsg = Nothing
end function
sub DisplayHelpMessage()
WScript.Echo
WScript.Echo "Usage: sendmail To Subject Body"
WScript.Echo "... Subject und Body in doppelten Hochhaken"
end sub
thomas woelfer
Benjamin O.
