hej freud
Dette er stjålet fra nettet el. fra et spørgsmål herfra eksperten. Men sagen er at cdonts ikke er understøttet længere af windows server.
Derfor skal der bruges cdosys. Kig evt. efter cdosys på nettet.
For at være sikker på det virker skal du ledes efter en fil på Windows serveren (forstod det var en windows 2003). Her skal du søge efter < cdosys.dll > Ligger i c:/windows/system32.Hvis den gør det kan du køre løs.
Scriptet herunder (det første mener jeg virker, eller kan du søge inspiration i det sidste script)
//mcfly :-)
<%@ Language=VBScript %>
<%
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Dim strSmartHost
Const cdoSendUsingPort = 2
StrSmartHost = "smarthost"
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' build HTML for message body
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> This is the test HTML message body</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"
Set .Configuration = iConf
.To = "someone@<domain>.com"
.From = someone@<domain>.com"
.Subject = "This is a test CDOSYS message (Sent via Port 25)"
.HTMLBody = strHTML
.Send
End With
' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>
********************** script 2 ************************
set imsg = createobject("cdo.message")
set iconf = createobject("cdo.configuration")
Set Flds = iConf.Fields
With Flds
.Item("
http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("
http://schemas.microsoft.com/cdo/configuration/smtpserver") = "1.1.1.1"
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "yourid@yourdomain.com"
.From = "FromId@yourdomain.com"
.CC = "ACCId@meijer.com"
.Subject = "A Subject Line"
.TextBody = "A Text body message"
.fields.update
.Send
End With
set imsg = nothing
set iconf = nothing
