I've UDF'ed this, since it works in my work environment...

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

_________________________
How to ask questions the smart way <-----------> Before you ask