OutlookEX UDF

[rapt3r]

hi water,

thank you for you efforts and the outlookex udf.

i've insalled the outlookex udf and found the script _OL_ItemAttachmentGet. Unfortunately it seems like i dont really understand how the script works.

I want to select a specific inbox first. This inbox includes several mails where excel files can be found as attachments. I want to open the attachments sequentialy one after another, mail after mail and copy the complete contents of the excel files. When a excel attachment opens and the contents are copied i want to paste them into another excel file sheet after sheet.

Mybe you could help me to understand the code better.

thank you

[water]

Posted a reply in your other thread. 

[water]

Version 1.3.2.0 of the UDF has been released.

Please test before using in production!

For download please see my signature.

[water]

Version 1.3.3.0 of the UDF has been released.

Please test before using in production!

For download please see my signature.

[UEZ]

@water: the download file seems to be corrupt. Please update.

 

[Earthshine]

i just downloaded it, says there is stuff past the payload....

[water]

Replaced th corrupted ZIP-file with a newly created one! Hope this fixes those Windows problems  when creating a ZIP-file  

[Skysnake]

@water, a little advice please?

What is the correct way for testing if the object.Outlook exists before trying to access it with AutoIt?

ie Outlook not installed...

Skysnake

[water]

Try function

If IsObj($oOutlook) Then ...

 

[Cotino]

Hi,
I'm trying to make a custom mail notification.
I found your UDF (which is awesome btw) and it works nicely, except for one thing.
It doubles every CR LF

Here's a simple working example :

#include <OutlookEX\OutlookEX.au3>
#include <String.au3>
#include <Array.au3>

HotKeySet("{END}", "_Exit") ;END to Exit the script
MsgBox(64, "OutlookEX UDF Example Script", "Hotkey to exit the script: 'END'!")

Global $oOApp = ObjCreate("Outlook.Application")
Global $test = ObjEvent($oOApp, "oOApp_")

While 1
    Sleep(10)
WEnd

Func oOApp_NewMailEx($sOL_EntryId)

    Local $oOL_Item = $oOApp.Session.GetItemFromID($sOL_EntryId, Default)
    ConsoleWrite($oOL_Item.Body)
    Local $arr = _StringExplode($oOL_Item.Body, "")
    Local $arr2[3][UBound($arr)]
    For $i = 0 To UBound($arr)-1
        $arr2[0][$i] = $arr[$i]
        $arr2[1][$i] = Asc($arr[$i])
        $arr2[2][$i] = "0x" & Hex(Asc($arr[$i]), 2)
    Next
    _ArrayDisplay($arr2)

EndFunc

Func _Exit()
    Exit
EndFunc

Here the body of the mail i sent to myself :


And here's the result :


As you can see, the CR LF (0x0D/0x0A) appear twice, when they should only appear once.

This is using Outlook 2016 on Windows 10 Pro x64.

[water]

What is the value of $oOL_Item.BodyFormat?

[Cotino]

"2", whatever that is.

[water]

2 stands for HTML format.
I suggest to use StringReplace to replace two @CRLF with a single @CRLF.

[Cotino]

Good enough workaround.
Does this always happen if you try to access .body on a HTML mail ?

[Cotino]

I've got another problem, although i suppose it's more of a Microsoft issue.
.SenderEmailAddress doesn't return the email address, but instead this :
/O=COMPANY NAME/OU=EXCHANGE ADMINISTRATIVE GROUP (FYDIBOHF23SPDLT)/CN=RECIPIENTS/CN=8C32D83BCA9D43A18330B71CE2C585C4-BRUN

.SenderEmailType returns "EX" and .Sender doesn't return anything.

How can i get the sender's mail ?

Alternatively, same problem for Cc. It returns the Cc's name instead of mail address.

Edited March 28, 2018 by Cotino

[water]

On 27.3.2018 at 4:07 PM, Cotino said:

Good enough workaround.
Does this always happen if you try to access .body on a HTML mail ?

To access an HTML body you usually use property HTMLBody.

[water]

On 28.3.2018 at 10:13 AM, Cotino said:

How can i get the sender's mail ?

Will check as soon as I return to my office.

[water]

This returns the senders primary SMTP mail address:

#include <OutlookEX.au3>

HotKeySet("{END}", "_Exit") ;Shift-Alt-E to Exit the script
MsgBox(64, "OutlookEX UDF Example Script", "Hotkey to exit the script: 'End'!")

Global $oOApp = _OL_Open()
Global $test = ObjEvent($oOApp, "oOApp_")

While 1
    Sleep(10)
WEnd
_OL_Close($oOApp)

; Outlook 2007 - NewMailEx event - http://msdn.microsoft.com/en-us/library/bb147646%28v=office.12%29.aspx
Func oOApp_NewMailEx($sOL_EntryId)

    Local $oOL_Item = $oOApp.Session.GetItemFromID($sOL_EntryId, Default)
    Local $oOL_Sender = $oOL_Item.Sender
    If $oOL_Sender.AddressEntryUserType = $olExchangeUserAddressEntry Or $oOL_Sender.AddressEntryUserType = $olExchangeRemoteUserAddressEntry Then
        Local $oExchangeUser = $oOL_Sender.GetExchangeUser
        MsgBox(0, "Mail", $oExchangeUser.PrimarySmtpAddress)
    EndIf

EndFunc   ;==>oOApp_NewMailEx

Func _Exit()
    Exit
EndFunc   ;==>_Exit

 

[seadoggie01]

I'm sorry if this has been posted previously, I looked though

I'm logged in using my account (my.name@company.org) and trying to look at a shared Exchange account (company.dept@company.org). When I use:

$objOutlook = _OL_Open()
_OL_FolderAccess($objOutlook, "\\company.dept@company.org\Inbox\")

it returns an error 3 with extended info of -2147352567. Recognizing this from VBA I looked at the source for _OL_FolderAccess and recreated it in VBA...

Set myNamespace = Application.GetNamespace("MAPI")
Set dummy = myNamespace.CreateRecipient("=company.dept@company.org")
dummy.Resolve
Debug.Print myNamespace.GetSharedDefaultFolder(dummy, olFolderInbox)

This returns a 'Run-time error -2147221219' and suggests closing and restarting Outlook and possibly reinstalling.

What I don't understand is that as soon as I took out the equals sign, it ran just fine and printed the Inbox folder. What is strict resolve and did I do something wrong here?

 

Edit: This UDF is amazing though. Thank you soooooo much!

Edited November 21, 2018 by seadoggie01

[water]

Try:

_OL_FolderAccess($objOutlook, "company.dept@company.org\Inbox\")