Email Settings - remote smtp server

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   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

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
RaymondC Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 22-February-2011 Status: Offline Points: 0	Post Options Post Reply Quote RaymondC Report Post Thanks(0) Quote Reply Topic: Email Settings - remote smtp server 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