According to this Microsoft article: http://blogs.technet.com/b/msonline/archive/2009/09/02/using-smtp-relay-with-exchange-online.aspx - 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 - 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 - http://schemas.microsoft.com/cdo/configuration/smtpserver ") = "smtp.mail.microsoftonline.com"
objEmailMessage.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserverport - http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 587
objEmailMessage.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/sendusing - http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2
objEmailMessage.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate - http://schemas.microsoft.com/cdo/configuration/smtpauthenticate ") = 1
objEmailMessage.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpusessl - http://schemas.microsoft.com/cdo/configuration/smtpusessl ") = true
objEmailMessage.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout - http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout ") = 20
objEmailMessage.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/sendusername - http://schemas.microsoft.com/cdo/configuration/sendusername ") = "Valid MS Online Email Account"
objEmailMessage.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/sendpassword - http://schemas.microsoft.com/cdo/configuration/sendpassword ") = "Password"

objEmailMessage.Configuration.Fields.Update

objEmailMessage.Send

Set objEmailMessage = nothing

MsgBox "Done."