ObjCreate("Outlook.Application")

[hendrikhe]

Hello AutoIt Community,

I am trying to send an email with a file attached. It works fine if Outlook is configured, but I am having issues when Outlook is not configured.

The Outlook configuration Wizard keeps popping up after cancelling it (5 times) until it gives up.

I would like to exit this funtion if Outlook is not configured. Tried with "If NOT @error Then" but it keeps starting the Outlook Setup Wizard

 

 

expandcollapse popup

Func CreateMailItem()

Local $olMailItem = 0

Local $olFormatRichText = 3

Local $olImportanceNormal = 1


$oOApp = ObjCreate("Outlook.Application")

If NOT @error Then

$oOMail = $oOApp.CreateItem($olMailItem)


With $oOMail

.To = ("test@test.com")

.Subject = ""

.Body = ""

.Attachments.Add(@MyDocumentsDir & '\test\' & "test.txt")

.Importance = $olImportanceNormal

.Display


EndWith

Else

    MsgBox($MB_SYSTEMMODAL, "", "Could not find Outlook")

EndIf

EndFunc

 

[Floops]

Maybe you could try checking if the configuration wizard popus up by using

If WinExists("") Then ; Put name of configuration wizard here

; Do something here

Endif

 

[hendrikhe]

Yeah, had this idea, but if I choose to close this Window for example, it will keep popping up a couple of times. I need somehow to cancel 

ObjCreate("Outlook.Application")

if Outlook is not configured

[Floops]

Hmm. Could this work?

$oOApp.Quit

 

[water]

You need to determine if Outlook has been configured. Search Google how to. It's either a file or a Regkey. 

I'm on vacation so can't check. 

[hendrikhe]

Thanks for the hint, To be honest I wanted to evade to work with registry keys, I am always so unlucky with them

 

$Outlookexist2007 = RegEnumKey("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Profiles",1)
If NOT @error Then
    $Outlookexist2007 = 1
EndIf

$Outlookexist2010 = RegEnumKey("HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Outlook\Profiles",1)
If NOT @error Then
    $Outlookexist2010 = 1
EndIf

$Outlookexist2013 = RegEnumKey("HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Outlook\Profiles",1)
If NOT @error Then
    $Outlookexist2013 = 1
EndIf


$Outlookexist2016 = RegEnumKey("HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Profiles",1)
If NOT @error Then
    $Outlookexist2016 = 1
EndIf