code:

---

;*************************************************************************************************************************
;example	Email("Wheelerc","Test of email","This will send an email to a valid ahca email address")
		
Function email($Recipient, $Subject, optional $Body, optional $Attachment)
	$Root = CreateObject("Outlook.Application")
	$MailItem = $Root.CreateItem(0)
	$MailItem.Importance	= 2
	$MailItem.Subject 	= "Automation Test"
	$MailItem.To 		= "$Recipient@@fdhc.state.fl.us"
	if $Body		$MailItem.Body = $Body				endif
	if $Attachment	 	$MailItem.Attachments.Add("$Attachment")	endif
	$MailItem.Send
	$Root = ""
	EndFunction

---