ProductCart E-Commerce Solutions Homepage
Forum Home Forum Home > ProductCart > Getting Started
  New Posts New Posts RSS Feed - Email Settings - remote smtp server
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Email Settings - remote smtp server

 Post Reply Post Reply
Author
Message
RaymondC View Drop Down
Newbie
Newbie


Joined: 22-February-2011
Status: Offline
Points: 0
Post Options Post Options   Thanks (0) Thanks(0)   Quote RaymondC Quote  Post ReplyReply Direct Link To This Post 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.

 
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
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.04
Copyright ©2001-2021 Web Wiz Ltd.

This page was generated in 0.047 seconds.