OutlookEX UDF - Help & Support (II)

[water]

This little script gives you an overview of the installed add ins. For each add in you find the Object to access the add in, if connected to Outlook (True/False), the description, GUID and ProgId.

#include <OutlookEX.au3>
Opt("TrayIconDebug", 1)
Global $oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

Global $iIndex = $oOutlook.COMAddIns.Count
Global $aCOMAddIns[$iIndex + 1][5] = [[$iIndex, 5]]
$iIndex = 1
For $oCOMAddIn In $oOutlook.COMAddIns
    $aCOMAddIns[$iIndex][0] = $oCOMAddIn.Object
    $aCOMAddIns[$iIndex][1] = $oCOMAddIn.Connect
    $aCOMAddIns[$iIndex][2] = $oCOMAddIn.Description
    $aCOMAddIns[$iIndex][3] = $oCOMAddIn.GUID
    $aCOMAddIns[$iIndex][4] = $oCOMAddIn.ProgID
    $iIndex = $iIndex + 1
Next
_ArrayDisplay($aCOMAddIns)
_OL_Close($oOutlook)

[shaime]

Welcome to AutoIt and the forum!

I've never used it before but it looks like you can access the installed add ins.

I'm not in my office at the moment. I will try again tomorrow.

Can you post the name of the add in and - if possible - which methods and properties the add in provides?

Hey water,

First of all thank you for the warm welcome.

My company (watchdox) is providing some outlook add-in and i'm looking to test it.

Generally i'm first of all looking to see that the add-in is really identified by outlook, meaning if at the new email window the add-in is visible and usable.

Then i want to config some of the email properties (To, CC, etc..) and "click" on the add-in itself or use its features (some kind of "sub-menu" for the add-in).

That's will be a great start for me, but again - i cant find a way to get access to the add-in itself.

thanks!

[water]

I'm not too familiar with add-ins at the moment. But if demand is there I wil have a look into the subject.

To get an overview of all available add-ins please try the script I provided above. The second column is set to True if the add-in is activated.

[water]

Outlook provides the object of each add-in. So if the add-in provides methods and properties it should be possible to access them without the need to click on a ribbon etc.

At least this is how I understand it so far

Do you know how your add-in works and if it can be accessed by COM?

Edited March 20, 2013 by water

[shaime]

yes i can see that objects your'e talking about. i have a small question about that - where did u find the model describes the .COMaddins and his members? i cant find it in Microsoft object model references

[water]

COMAddIns is a property of the application object and can be found here for Outlook 2007.

[shaime]

Hey water,

Thank's a lot for the help so far...

it seems like that in order to validate that the button is really exist, access to the ribbon is needed. do you have some idea of gettin the ribbon object out of the outlook application?

i searched over and all of the solutions refer to some 'Global' variable which is part of office.. do you know him?

Tnx again

[water]

Isn't it sufficient to check if the add-in has been loaded?

[water]

Unfortunately the CommandBar property of the Inspector object was deprecated in Outlook 2007.

In Outlook 2010 it has become way more complex to access a Ribbon. Haven't found a way yet to do it from non managed code.

Some more investigation is needed ...

[shaime]

Isn't it sufficient to check if the add-in has been loaded?

It might be enough.. that came into my mind while considering ways to verify it.. but still its only saying that its loaded with outlook, not that the button is loaded into the GUI of new mail...

Another thing is that maybe through accessing the ribbon i could have access to the button and his events...

I'm still checking it all out and trying to figure it (find some ways to check that it's been loaded through the registry and stuff...)..

Edited March 20, 2013 by shaime

[water]

I searched the web but couldn't find anything how to access the plugin using Visual Basic (because VB is so similar to AutoIt).

[lolipop]

Has any one try using this UDF for outlook to do something like the Windows 8 Live Tiles for mail. To shows number of unread mail and their subject header?

[water]

You can do this either by searching for unread mails every x minutes/seconds or by waiting for a new mail to arrive and then handling this event.

What do you prefer?

[Alexandre]

Are you trying to look for this

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer

If Number($IPPort) = 0 then $IPPort = 25

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort

;Authenticated SMTP

If $s_Username <> "" Then

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/postuserreplyemailaddress ") = $s_Replyaddress

[Alexandre]

Are you trying to get this?

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer

If Number($IPPort) = 0 then $IPPort = 25

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort

;Authenticated SMTP

If $s_Username <> "" Then

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password

$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/postuserreplyemailaddress ") = $s_Replyaddress

You need i allready write a script that pick file from directori and attach to mail and send it

[water]

The OP wants something completely different.

Edited April 11, 2013 by water

[Alexandre]

with the program that i made you use the variable %username%

[Alexandre]

Full code

expandcollapse popup

;##################################
; Include
;##################################
#Include<SendMailFileInclude.au3>
;##################################
; Variables
;##################################
$FileAttach = FileOpen("FileAttach.lst")        ;File location path for list of file to attach - REQUIRED
$Fileconfig = FileOpen("config.ini")        ;File location path for list of file to attach - REQUIRED
$Filebody = FileOpen("body.txt")
$SmtpServer = FileReadLine($Fileconfig)                                 ; address for the smtp-server to use - REQUIRED
$FromName = FileReadLine($Fileconfig)                                                   ; name from who the email was sent
$FromAddress = FileReadLine($Fileconfig)                                ; address from where the mail should come
$Replyaddress =""
$ToAddress = FileReadLine($Fileconfig)                                  ; destination address of the email - REQUIRED
$Subject = ""                                               ; subject from the email - can be anything you want it to be
$Body = FileRead($Filebody)
$AttachFiles = FileReadLine($FileAttach)                                ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed
$CcAddress =""                                                      ; address for cc - leave blank if not needed
$BccAddress =""                                                     ; address for bcc - leave blank if not needed
$Importance ="Normal"                                               ; Send message priority: "High", "Normal", "Low"
$Username =""                                   ; username for the account used from where the mail gets sent - REQUIRED
$Password =""                                               ; password for the account used from where the mail gets sent - REQUIRED
$IPPort =465                                                            ; port used for sending the mail
$ssl =1                                                             ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465                                                      ; GMAIL port used for sending the mail
;~ $ssl=1                                                           ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS


;##################################

;##################################
; Script
;##################################
While 1
     $AttachFiles = FileReadLine($FileAttach)
     If @error = -1 Then ExitLoop
   Sleep(2000) ;Wait 2 seconds
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $Replyaddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
    MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
EndIf
WEnd
;
; The UDF
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_Replyaddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.replyto = '"' & $s_Replyaddress & '" <' & $s_Replyaddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_AttachFiles
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
;~        ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
                $objEmail.AddAttachment($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                SetError(1)
                Return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/sendusing"]http://schemas.microsoft.com/cdo/configuration/sendusing"[/url]) = 2
    $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/smtpserver"]http://schemas.microsoft.com/cdo/configuration/smtpserver"[/url]) = $s_SmtpServer
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/smtpserverport"]http://schemas.microsoft.com/cdo/configuration/smtpserverport"[/url]) = $IPPort
    ;Authenticated SMTP
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"]http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"[/url]) = 1
        $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/sendusername"]http://schemas.microsoft.com/cdo/configuration/sendusername"[/url]) = $s_Username
        $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/sendpassword"]http://schemas.microsoft.com/cdo/configuration/sendpassword"[/url]) = $s_Password
        $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/postuserreplyemailaddress"]http://schemas.microsoft.com/cdo/configuration/postuserreplyemailaddress[/url] ") = $s_Replyaddress
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item ("[url="http://schemas.microsoft.com/cdo/configuration/smtpusessl"]http://schemas.microsoft.com/cdo/configuration/smtpusessl"[/url]) = True
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail=""
EndFunc   ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description, 3)
    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
    MsgBox(0,"SendMail Completed","Mails enviados com sucesso")
Exit
EndFunc   ;==>MyErrFunc
Exit

;End funcion to create and send mail with attach.
Exit

Edited April 11, 2013 by Alexandre

[water]

Why do you wont to use the outllok if can connect directly to the smtp server and send the mail?

The OP wants the the number of unread mails plus the subject of all unread mails. I refer to post #152.

How do you retrieve the content of %username%?

Edited April 11, 2013 by water

[Alexandre]

Config. ini

smtp.gmail.com

%username%