January 9, 2009 12:11am pst

1. RobSamp... 28,500
2. Krys_K 10,500
3. robberbaron 5,000
3. Shift-3 5,000
5. BlueDevilF... 4,500
6. omgang 4,000
6. tegmine_it 4,000
6. tigermatt 4,000
6. dstewartjr 4,000
10. yehudaha 3,600
11. pratima_... 3,500
12. hielo 3,200
13. purplepo... 2,500
13. b0lsc0tt 2,500
15. cyberweb... 2,400
16. third 2,000
16. Dgleich 2,000
16. andywing... 2,000
16. gyuksel 2,000
16. lodar123 2,000
16. mark_wills 2,000
16. rorya 2,000
16. chandru_... 2,000
16. saoirse1... 2,000
16. zabu99 2,000
16. dmang 2,000

1. RobSamp... 2,586,971
2. sirbounty 636,951
3. purplepo... 379,563
4. Shift-3 355,055
5. rorya 316,426
6. zorvek 314,869
7. BlueDevilF... 230,060
8. merowinger 202,629
9. chandru_... 191,813
10. weellio 169,295
11. Chris-Dent 158,572
12. saurabh726 157,085
13. sungenw... 154,191
14. matthews... 147,514
15. GrahamSkan 135,358
16. chris_bot... 130,559
17. hielo 125,460
18. AmazingT... 115,450
19. robberbaron 114,681
20. jeverist 111,596
21. amit_g 110,710
22. brettdj 106,250
23. rejoinder 101,810
24. byundt 101,546
25. Idle_Mind 99,490

08.13.2007 at 10:28AM PDT, ID: 22759523

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

7.8

How to use VBscript to send email with or without SMTP service?

Asked by richtree in VB Script, Email Software, Simple Mail Transfer Protocol (SMTP)

Tags: send, vbscript, email, smtp

Hi,
I like to send email from a host that may not have SMTP service installed. I try the following sample code from Microsoft website and it does not work. I may miss some configuration here. Please take a look and let me know how to make it work.
Here is my goal: I need to be able to send email from a workstation that has Internet connction. This action is either time-interval driven or event driven. I tried the following without success yet.

1. Send email from a script with SMTP service installed:
http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true
Set objEmail = CreateObject("CDO.Message")

objEmail.From = "monitor@mycorp.com"
objEmail.To = "admin@mycorp.com"
objEmail.Subject = "Atl-dc-01 down"
objEmail.Textbody = "Atl-dc-01 is no longer accessible over the network."
objEmail.Send
I save the above code as send-mail1.vbs and run it from a XP machine with SMTP service started. It did not run into any error but I did not receive this email either.
Q#1.1 Without specifying a real SMTP server, how does the script know how to send it out?
Q#1.2 How to 'trace' the test email so I know where the problem is?
2. Send email without SMTP service installed:
http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true
Set objEmail = CreateObject("CDO.Message")

objEmail.From = "monitor@mycorp.com"
objEmail.To = "admin@mycorp.com"
objEmail.Subject = "Server down"
objEmail.Textbody = "Server1 is no longer accessible over the network."
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smarthost"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
I save the above code as email-no-smtp.vbs and run it from the same XP workstation. It run into error on line#15: The transport failed to connect to the server.
Q#2.2: What kind of (remote) server do I need if I do not have SMTP service installed on the local machine?
Q#2.3: Any such servers available (for free)? I guess there should be very few. Otherwise the spammers could take advantage of them.

Q#3. Do you have any other solution to achieve my goal?
Thanks a lot.

Start Free Trial

Keywords: How to use VBscript to send email wit…

	Title
1	vbscript to send smtp mail
2	spammers
3	Smarthost for Exchange
4	SMTP Virtual Server - delayed deliver…
5	Smarthost config problem
6	Create SMTP entry as Firstname.Surn…

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

How to use VBscript to send email with or without SMTP service?

Asked by richtree in VB Script, Email Software, Simple Mail Transfer Protocol (SMTP)

Tags: send, vbscript, email, smtp

About this solution