'===========================================================
' NAME: EmailSend.vbs - using local server 
' AUTHOR: Neal Walters , Amerisoft Inc
' DATE  : 3/27/2005
' http://VBScript-Training.com 
'===========================================================

Set email = CreateObject("CDO.Message") 

   email.To   = "nwalters@sprynet.com;nwaltershm@hotmail.com" 
   email.From = "nwaltershm@hotmail.com" 
   email.Subject  = "Email from VB/Script Land"  
   
   email.TextBody = "Test email from VB/Script using CDO.Message." & VbCrLf & _ 
                    "This is line 2 " & VbCrLf & _ 
                    "This is line 3" & Vbclrf & _
                    VbCrLf & _ 
                    "Thanks," & Vbclrf & _
                    "Neal Walters" 
                    
   
   email.Send

WScript.Echo "Email has been sent " 


'===========================================================
' NAME: EmailSend2.vbs - with remote server logon/parameters 
' AUTHOR: Neal Walters , Amerisoft Inc
' DATE  : 3/27/2005
' http://VBScript-Training.com 
'===========================================================

Set email = CreateObject("CDO.Message") 

   email.To   = "nwalters@sprynet.com;nwaltershm@hotmail.com" 
   email.From = "nwaltershm@hotmail.com" 
   email.Subject  = "Email from VB/Script Land"  
   
   email.TextBody = "Test email from VB/Script using CDO.Message." & VbCrLf & _ 
                    "This is line 2 " & VbCrLf & _ 
                    "This is line 3" & Vbclrf & _
                    VbCrLf & _ 
                    "Thanks," & Vbclrf & _
                    "Neal Walters" 
                    
'Name or IP of Remote SMTP Server
   email.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "yourSMTPServer" 
     
     
'Type of authentication, NONE, Basic (Base64 encoded), NTLM 
Dim cdoBasic 
cdoBasic = 1
   email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
     
'Your UserID on the SMTP server
   email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "youruserid"

'Your password on the SMTP server
   email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpassword" 
              
email.Configuration.Fields.Update
                    
   'email.AddAttachment "file://c:/menu.doc"
   
   email.Send


WScript.Echo "Email has been sent "