code:

---

$Root = CreateObject("Outlook.Application")
$MailItem = $Root.CreateItem(0)	; olMailItem object
$MailItem.Importance=2
$MailItem.Subject = "Automation Test"
$MailItem.To = "Please edit me@I_really_want_it"		; Multiple element can be separated with ;
$MailItem.Body = "this is a test sample of a future SendMail UDF()"
$MailItem.Send

---

TIA

[ 31 December 2001: Message edited by: Alex.H ]

UPDATE: By every command who starts with $Mailitem. I get this error.

[ 31 December 2001: Message edited by: awinkel ]

Add this to be sure just after the createobject:
? "" + @serror

[ 31 December 2001: Message edited by: Alex.H ]

It prompted me with the "A program is trying to automaticall send e-mail on your behalf. Do you want to allow this? "
Yes/No/Help

It will sort of work...

Thanks guys

[ 31 December 2001: Message edited by: Alex.H ]

Does this work for you?

code:

---

BREAK ON CLS
; -- Ref - http://cwashington.netreach.net/depo/view.asp?Index=192&ScriptType=vbscript 
;Set theApp = WScript.CreateObject("Outlook.Application")
$Root = CreateObject("Outlook.Application")
$theNameSpace = $Root.GetNameSpace("MAPI")
$theNameSpace.Logon "profile", "password"
$theMailItem = $Root.CreateItem(0)
          
$theMailItem.Recipients.Add "dyerkb@myrealbox.com"
$theMailItem.Subject = "Your Subject Here"
$theMailItem.Body = "Your message here."
$theMailItem.Send
$theNameSpace.Logoff

---

HTH,

- Kent

kdyer,
Please do the same and retest.

Radimus and awinkel,
did you think to correct it when you tested the script ?

adding the @ to the address so that it is @@ works fine on my system.

Works great!

Couple of suggestions..

After the send piece, I added:
$Root.Quit
$Root = ""

To cleanly close out of Outlook.

Have a look at - http://www.mvps.org/word/FAQs/InterDev/SendMail.htm and there is a "test function" to see if Outlook is open and if not, it closes it otherwise, it remains open.

Thanks!

- Kent

MS will be pissed if you guys figure out how to send Anthrax through Outlook... as that is the only virus to not be propigated using MS software...

[ 06 January 2002: Message edited by: attiahia ]

But you should get a look to the link kdyer provide, the attachment part is at the end (in VB, but easy to transcribe).

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 ]