Sowie die Seite zu createObject kommt, gibt es einen Script time out (ASP 0113), er geht gar nicht bis zum Anmeldeversuch. Habe jetzt überall Rechte für IISWPG und IUSR vergeben. Die MSOUTL.OLB ist im Ordner Office11 enthalten und zur Sicherheit habe ich sie noch in WINDOWS und SYSTEM32 kopiert. Der Outlook selber ist auf einen Exchangeserver konfiguriert und funktioniert einwandfrei.
Was mache ich falsch?
dim objOutlk
dim objMail
const olMailItem = 0
Dim objNS 'Namespace Objekt
set objOutlk = CreateObject("Outlook.Application")
?
Set objNS = objOutlk.GetNamespace("MAPI")
objNS.Logon , , True
?
set objMail = objOutlk.CreateItem(olMailItem)
objMail.To = "xxx@xxx.de"
objMail.subject = "sSubject"
objMail.body = "sBody"
objMail.Recipients.Add("sTo")
'objMail.display '
objMail.Send 'to send without reviewing
set objMail = nothing
set objOutlk = nothing
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
