Hallo,
ich habe es inzwischen geschafft, eine Email per Formular zu verarbeiten.
Dazu muss ich aber eine MAPI.Session mit einem bekannten Benutzer öffnen. Dann werden die Mails aber mit dessen Absender verschickt.
strserver = „SERVER“
strLogonID = „Administrator“
strMailbox = Right(strLogonID, Len(strLogonID) - InStr(strLogonID, „“))
’ Construct CDO profile
strProfileInfo = strServer + vbLF + strMailbox
’ Create CDO session
Set objSession = Server.CreateObject(„MAPI.Session“)
’ Logon with authenticated CDO profile
objSession.Logon „“, „“, False, True, 0, True, strProfileInfo
text = „Text“
set newmsg = objsession.Outbox.messages.add
newmsg.subject = „Subject“
newmsg.text= text
newmsg.update
set objrecip = newmsg.recipients.add
objrecip.name = „[email protected]“
objrecip.type = cdoto
objrecip.resolve
newmsg.update
newmsg.send
Wie kann ich Mails mit einem vom Benutzer eingegebenen Absender versenden ?
(IIS 5.0, Windows 2000 Server, Exchange Server 5.5)
Folgendes habe ich bereits probiert:
set xyz = server.createobject(„CDO.Newmail“)
xyz.from = „xyz“
xyz.to = „xyz“
…
xyz.send
oder:
set xyz = server.createobject.(„CDONTS.message“)
… (wie oben)
Beides geht nicht (Ohne Fehlermeldung, es kommt nur keine Mail an!)
Danke für jede Hilfe, Philip.