ارسال ایمیل با vbscript

با سلام خدمت همه دوستان
منظور من از vbscript به این صورت هست که اون رو با فرمت .vbs روی دسکتاپ سیو کنیم و استفاده کنیم
من کلی سرچ کردم و به کد های زیر رسیدم اما با هیچ کدوم موفق نشدم ممنون میشم اگر در مورد کد هایی که میزارم راهنمایی کنید
1.This sample sends a simple text email that can be viewed in any email client.
-----------------------
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.From = "me@my.com"
objMessage.To = "test@paulsadowski.com"
objMessage.TextBody = "This is some sample message text."
objMessage.Send
---------------------------

2.Sending an HTML email.
=============================
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.From = "me@my.com"
objMessage.To = "test@paulsadowski.com"

'The line below shows how to send using HTML included directly in your script
objMessage.HTMLBody = "<h1>This is some sample message html.</h1>"

'The line below shows how to send a webpage from a remote site
'objMessage.CreateMHTMLBody "http://www.paulsadowski.com/wsh/"

'The line below shows how to send a webpage from a file on your machine
'objMessage.CreateMHTMLBody "file://c|/temp/test.htm"

objMessage.Bcc = "you@your.com"
objMessage.Cc = "you2@your.com"
objMessage.Send
=========================

3.Sending a text email with an attached file.
--------------------------------------------------------
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.From = "me@my.com"
objMessage.To = "test@paulsadowski.com"
objMessage.TextBody = "This is some sample message text."
objMessage.AddAttachment "c:\temp\readme.txt"
objMessage.Send
-------------------------------------------------------------

4.Sending a text email using a remote server.
5.Sending a text email using authentication against a remote SMTP server.


منبع : http://www.paulsadowski.com/wsh/cdo.htm

با تشکر - ممنون میشم راهنمایی کنید