S
senn
In case the Library is not installed this one is an alternative.
Try to configure this with your server name.
The configuration.Fields.Item(.........../ sendusing should probably be
changed to 1 instead of 2. Depends on...... Try both.
It's not a good idea reguest.form("To")
I would put in: "youraddress" & "@" & "domain.com"
Because, If someone try to send to other than you. Even if
you plan this. It will not work as the server is another than
yours and hence have an other name.
You got to send a trial-mail to yourself.
/senn
%>
Dim mymail
set mymail = createobject("CDO.Message")
mymail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
mymail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mail.domain.com"
'this should be changed 'to the smtp server you have access to
mymail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
'or the port configured for smtp
mymail.Configuration.Fields.Update
With mymail
.To = request.Form("To")
.From = request.Form("From")
.Subject = request.Form("Subject")
.TextBody = request.Form("Body")
.Send()
End With
Response.Write("Mail Sent!")
Set mymail = nothing
%>
Try to configure this with your server name.
The configuration.Fields.Item(.........../ sendusing should probably be
changed to 1 instead of 2. Depends on...... Try both.
It's not a good idea reguest.form("To")
I would put in: "youraddress" & "@" & "domain.com"
Because, If someone try to send to other than you. Even if
you plan this. It will not work as the server is another than
yours and hence have an other name.
You got to send a trial-mail to yourself.
/senn
%>
Dim mymail
set mymail = createobject("CDO.Message")
mymail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
mymail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mail.domain.com"
'this should be changed 'to the smtp server you have access to
mymail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
'or the port configured for smtp
mymail.Configuration.Fields.Update
With mymail
.To = request.Form("To")
.From = request.Form("From")
.Subject = request.Form("Subject")
.TextBody = request.Form("Body")
.Send()
End With
Response.Write("Mail Sent!")
Set mymail = nothing
%>