Hey All, I have MDaemon running locally on the server, and that is
what I want to send mail through. It's a normal mail server which
doesn't require an access list, I just have a list of trusted IP's to
accept mail from.
This is the code I use on my ASP page
<%
'Send email using CDO.
Public Function sendEMail( fromAddress, toAddress, subject, body )
Dim outgoingSMTPServer, smtpUserID, smtpPassword
Dim objMail
'Trim all the parameter values.
fromAddress = Trim( fromAddress )
toAddress = Trim( toAddress )
subject = Trim( subject )
outgoingSMTPServer = ""
smtpUserID = ""
smtpPassword = ""
'outgoingSMTPServer = Application( "OutgoingSMTPServer" )
'smtpUserID = Application( "SMTPUserID" )
'smtpPassword = Application( "SMTPPassword" )
'Correct COX SMTP address.
outgoingSMTPServer = "127.0.0.1"
'Make sure that we have from, to address and body.
If fromAddress = "" Or toAddress = "" Or body = "" Then
sendEMail = False
Exit Function
End If
'Create the object.
Set objMail = Server.CreateObject( "CDO.Message" )
objMail.From = fromAddress
objMail.To = toAddress
objMail.Subject = subject
objMail.HTMLBody = body
'Send using the specified SMTP server.
objMail.Configuration.Fields.Item _
( "http://schemas.microsoft.com/cdo/configuration/sendusing" ) =
2
'Name of the smtp server name.
objMail.Configuration.Fields.Item _
( "http://schemas.microsoft.com/cdo/configuration/smtpserver" )
= "localhost"
'Default port.
objMail.Configuration.Fields.Item _
( "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
) = 25
'Set the user ID and password if available.
If smtpUserID <> "" And smtpPassword <> "" Then
objMail.Configuration.Fields.Item _
( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
) = 1
'Your UserID on the SMTP server
objMail.Configuration.Fields.Item _
( "http://schemas.microsoft.com/cdo/configuration/sendusername"
) = smtpUserID
'Your password on the SMTP server
objMail.Configuration.Fields.Item _
( "http://schemas.microsoft.com/cdo/configuration/sendpassword"
) = smtpPassword
objMail.Configuration.Fields.Item _
( "http://schemas.microsoft.com/cdo/configuration/smtpusessl"
) = False
objMail.Configuration.Fields.Item _
( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
) = 60
End If
'Update the configuration.
Call objMail.Configuration.Fields.Update()
'Send the message
Call objMail.Send()
'Release the object.
Set objMail = Nothing
sendEMail = True
Exit Function
End Function
%>
That function is in it's own asp page. I just include it when
necessary.
when I call the function and pass it the appropriate parameters, it
seems to go through without erroring, but of course I never get the
email, and the MDaemon logs dont even show an attempted connection.
Any ideas?
