'/*
' *  ATLMail by Gavin W Landon (aka Chizl) ( Winsock Internet mail delivery component )
' *  Copyright (C) 1999, ..., 2002  Gavin W. Landon (aka Chizl)
' *
' *  This program is free software; you can redistribute it and/or modify
' *  it under the terms of the GNU General Public License as published by
' *  the Free Software Foundation; either version 2 of the License, or
' *  (at your option) any later version.
' *
' *  This program is distributed in the hope that it will be useful,
' *  but WITHOUT ANY WARRANTY; without even the implied warranty of
' *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' *  GNU General Public License for more details.
' *
' *  You should have received a copy of the GNU General Public License
' *  along with this program; if not, write to the Free Software
' *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
' *
' *  Gavin W. Landon (aka Chizl) <chizl@chizl.com>
' *
' */

set o = CreateObject("ATLMail.Init")
on error resume next

o.MailServer = "mail.yourmailserver.com"
o.MailPort = 25

o.SMTPUserName = "YourUserName"
o.SMTPPassword = "YourPassword"

o.From = "Your Name <your@email.com>"
o.ReplyTo = "Your Name<your2@email.com>"
o.BounceTo = "YourBounceCatch@email.com"

' Priorities
' (1,2,3,4,5) 
' 1 = Highest, 3 = Normal, 5 = Lowest. (3 is default)
o.Priority = 1

o.Receipt = true

o.AddTo "To1 <to1@email.com>"
o.AddTo "To1 <to2@email.com>"

o.AddHeader "MYOwnHeader1: check out www.chizl.com!"
o.AddHeader "MYOwnHeader2: check out www.chizl.com!"

o.ResetAddedHeaders

o.AddHeader "MYOwnHeader3: check out www.chizl.com!"

o.AddCC "CC1 <cc1@email.com>"
o.AddCC "CC2 <cc2@email.com>"
o.AddCC "CC3 <cc3@email.com>"

o.AddBCC "BCC1 <bcc1@email.com>"
o.AddBCC "BCC2 <bcc1@email.com>"
o.AddBCC "BCC3 <bcc1@email.com>"

o.Subject = "Subject Here"

o.IsHTML = True 'Default is False
o.Body = "Email me here: <a href=""mailto:chizl@chizl.com"">Here</b>"

o.Connect
if o.ErrNum then 
	msgbox o.ErrNum & " - " & o.ErrText
else
	' SendAsync function is more for VB or C++ application 
	' that can create new threads then monitor it, not VBScript
	'o.SendAsync 
	'if o.ErrNum then msgbox o.ErrNum & " - " & o.ErrText
	'
	'do while o.Active
	'loop
	
	o.Send
	if o.ErrNum then msgbox o.ErrNum & " - " & o.ErrText
end if

o.Disconnect
set o = nothing