Make the following modifications to the script, and you should be good to go!

code:

---

$MailItem.Attachments.Add("C:\TEST\TEST.LNK")
$MailItem.Send

---

HTH,

- Kent

Can I place shortcut or URL in the e-mail?

Thanks

HTH,

- Kent

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

---

I tried: $MailItem.HTMLBody = "\\Server_name\Shared_Name\Program.exe"

But did not work.

Please Help

Thank you.

[ 04 February 2002: Message edited by: attiahia ]

Also, did you manage to get something with AD ? I completely lost (and forgot, i have to say) the thread about it.

$MailItem.HTMLBody = "\\Server_name\Shared_Name\Program.exe.lnk"
Did Not work, I received the e-mail but the shortcut was not active, it was just TXT.

According AD & LDA your first function worked excellent and it save me a lot.

But when I tried to use it to handle our internet user, it did not work.

I know that some time (maybe all time) my questions become boring, therefore I do not like to repeat my LDAP question/problem here again. Please extend your usual help and refer to it in the scripts forum http://kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=2&t=002711

I am waiting your or shawn help to answer my last question (in above link) which I posted on 21 January 2002

Thank you.

[ 05 February 2002: Message edited by: attiahia ]

[ 05 February 2002: Message edited by: attiahia ]

[ 05 February 2002: Message edited by: attiahia ]