code:

---

$Root = CreateObject("Outlook.Application")
$MailItem = $Root.CreateItem(0)
$MailItem.Importance=2
$MailItem.Subject = "Automation Test"
$MailItem.To = "bla@@bla.com"
$MailItem.Body = "KiXtart sending mail test"
$MailItem.Attachments.Add("E:\kix\text.txt")
$MailItem.Send

---

quote:

---

WindowState Property

Returns or sets the window state of an explorer or inspector window. Can be any of the following OlWindowState values: olMaximized(1), olMinimized(2), or olNormal(3).

Read/write Long.

Syntax

object.WindowState

object Required. An expression that returns an Explorer or Inspector object.

---

• Open dialogues about unsaved messages / autoarchiving / calendar reminders
• Timing - you don't want to close the application until the message has actually been sent
• Your sent message will linger in the users sent items folder
• Your users may get a little peeved if you keep closing Outlook while they are using it

code:

---

if outlook = open 
  runscript
  dont close
Else
  start outlook
  run script
  close
endif

---

code:

---

Function FindPROC($PROC,optional $COMPUTER, optional $terminate)
	Dim $GetObject, $Select
	If NOT $computer	$computer=@wksta	EndIf
	$GetObject="winmgmts:{impersonationLevel=impersonate}!//$COMPUTER"
	$Select="select * from Win32_Process where Name='$PROC'"
	For Each $Process in GetObject("$GetObject").ExecQuery("$select")
		If $terminate		$Process.Terminate	EndIf
		$FindPROC=$Process.ProcessId
		Next
EndFunction

---

code:

---

FindPROC("outlook.exe",,0)
....
If $Process.ProcessId = "0"
FindPROC("outlook.exe",,0)
Else
FindPROC("outlook.exe",,1)
EndIf

---

it suprised me that there were no errors but outlook still closes.. i think im on the right track.. (or am i really derailed now?)