Sending an email using ASP - Problem

[WaluigiCubed]

Hello everyone:

I've been working on making some changes to the website for the company that I am currently an intern for. There is a function that they have in one of their files that uses CDOSYS to allow visitors to our site to email us with a support request. I've been testing this functionality out, but the emails aren't actually being sent to our email addresses. I've looked all over the internet for how to send an email using ASP, and the code that is part of our file (which appears below) looks like it is doing everything I need it to. This is the function used to send an email:

function SendEmail(strEmailText, strEmailSubject, strEmailTo, strEmailFrom)
'*** Returns True if email was sent.
'*** Returns False if an error occurred.
 
    on error resume next
    Set objMail = Server.CreateObject("CDO.Message")
 
    objMail.From = strEmailFrom
    objMail.To = strEmailTo
    objMail.Subject = strEmailSubject
    objMail.TextBody = strEmailText
 
    objMail.Send
 
    Set objMail = Nothing
 
    if err.number then
        '*** error occurred while sending mail
        SendEmail = False
        Response.Write (err.Description)
    else
        SendEmail = True
    end if        
    On Error GoTo 0
 
end function
 

So, basically, I'm setting objMail equal to a CDO message, and I'm setting the From, To, Subject, and TextBody of the message equal to the appropriate parameters. Now while I've been doing tests, I've checked to see whether True or False has been returned by the function, and each time True has been returned. For some reason though, the emails aren't appearing in our Inbox (and they aren't appearing in our Spam filters either). I can't really see why this isn't working properly, so I thought I'd ask everyone here if there's anything I'm missing in this function that is causing the emails to not be sent.

I will greatly appreciate any help/input I receieve.

Thank you in advance!

[DrBunchman]

Hi WaluigiCubed,

You haven't configured a port or smtp server in your code so you're using the defaults (25 and localhost).

Have you got smtp configured in the IIS of the machine that is running this website?

If so have you tested it?

Dr B

[WaluigiCubed]

Hi WaluigiCubed,

You haven't configured a port or smtp server in your code so you're using the defaults (25 and localhost).

Have you got smtp configured in the IIS of the machine that is running this website?

If so have you tested it?

Dr B

Well, I asked my boss about this, and he said that Port 25 is OK, but he said that SMTP wasn't configured in the IIS of the machine running the website. He wants it to go through our Microsoft Exchange Server though. So, I did some searching on how to route the emails to an Exchange Server, but I have had no luck. Does anyone have any ideas of how to route the email to the Exchange Server before sending it out (if it is even possible)?

Thanks in advance!

[DrBunchman]

I don't know anything about Microsoft Exchange but to send mail via a remote mail server you can do the following. Include the following lines in your script before the objMail.send. These lines configure the port number and mail server to use so substitute the IP of your mail server where indicated and see if it works.

 
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
'Name or IP of Remote SMTP Server
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "name or IP of mail server"
'Server port (typically 25)
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objMail.Configuration.Fields.Update
 

Give it a go and let me know how you get on.

Dr B

[WaluigiCubed]

That works perfectly DrBrunchman. Thank you so very much! ^_^

[DrBunchman]

No problem Waluigi, glad to be of help.