ProductCart Shopping Cart Software Forums : Email Settings

Author: RaymondC
Subject: 4328
Posted: 22-February-2011 at 4:32pm

Our company is using Microsoft's Exchange Online service as our email provider and I am unable to get ProductCart to send email through them.

According to this Microsoft article: http://blogs.technet.com/b/msonline/archive/2009/09/02/using-smtp-relay-with-exchange-online.aspx and this one: http://www.microsoft.com/online/help/en-us/helphowto/be25e53b-c841-45aa-8bc5-a035e466d543.htm they do support email relay.

I created a standalone VBScript that is essentially the same as what ProductCart uses in the "sendmail.asp" file. I tested the script with my gmail account—which like Microsoft, requires smtp authentication and TLS encryption—and it works perfectly. It will not work with Microsoft's Exchange Online!

I am working with MS's tech support on this but they haven't come up with anything yet so I thought maybe someone here might have a suggestion.

Thanks.

Ray

______________________

Dim objEmailMessage

Set objEmailMessage = CreateObject("CDO.Message")

objEmailMessage.From = "Sender Email"
objEmailMessage.To = "Recipient Email"
objEmailMessage.Subject = "Test Subject"
objEmailMessage.TextBody = "This is my test email message."

objEmailMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.microsoftonline.com"
objEmailMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
objEmailMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmailMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmailMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
objEmailMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 20
objEmailMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Valid MS Online Email Account"
objEmailMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Password"

objEmailMessage.Configuration.Fields.Update

objEmailMessage.Send

Set objEmailMessage = nothing

MsgBox "Done."

Edited by RaymondC - 22-February-2011 at 4:34pm]]>