troubleshooting Question

Test VB Script Emailing

Avatar of SnowLapa
SnowLapa asked on
VB Script
1 Comment1 Solution255 ViewsLast Modified:
I am testing a VB Script that would normally be used in an environment that has an exchange server(See Below).  I am testing the same script at home but cant get the email to work.  Can someone give me an example of using the email function from a home pc?

Thanks
snowlapa
Set objEmail = CreateObject("CDO.Message")
 
objEmail.From = "AAA@AAAAA.AAA"
objEmail.To = "AAA@AAAAA.AAA"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Our SMTP Server"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objEmail.Configuration.Fields.Update
objEmail.Send
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 1 Comment.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 1 Comment.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros