Outlook UDF

Wooltown · April 27, 2009

Capel - I have no idea of why this is happening - Are you displaying the result with _ArrayDisplay()?

CodeMaker - Can you explain more specific what you mean?

codemaker · April 28, 2009

Wooltown said:
CodeMaker - Can you explain more specific what you mean?

I want to read a specific note from Outlook and save it back as the same note

Wooltown · April 29, 2009

You can use: _OutlookModifyNote or is it something else you wish to have.

91firehawk · May 19, 2009

this is great! thanks for posting.

is there an ETA on "_OutlookCopyMail"? this would be very helpful in my current script.

mko · May 21, 2009

Hi

Thank you for your great work !!

Is it much work to implement a little funktion like

_OutlookCountUnreadMail($oOutlook,$olFolderInbox) ?

Because if you have a big Mailbox with many unread mails the whole funktion

_OutlookGetMail($oOutlook,$olFolderInbox,False,"","","","","","",True,"",0) needs a lot of time (because of _OutlookFindMailInTree)

if you only want to know if there are some new mail.

I want to check the count of unread mails in the loginscript....

Regards

Martin

want2learn · May 21, 2009

hey wooltown,

This is gr8 !!!!!

Now i can finally get my appointments from outlook and directly do my accounts...

Do you accept netteller?

Bam · May 22, 2009

Geting an error and ran out of ideas and was unable to find it in a search.

#include <Outlook.au3>
#include <Array.au3>

$oOutlook = _OutlookOpen()
$A = _OutlookGetMail($oOutlook)
_ArrayDisplay($A)
ConsoleWrite($A)

And when i run that, i get one of these.

Outlook.au3 (514) : ==> Error in expression.:

Local $oNamespace = $oOutlook.GetNamespace("MAPI")

Local $oNamespace = ^ ERROR

any ideas?

mko · May 22, 2009

Hi Bam

-Are you shure your actual useraccount has an correct configured outlook profile ?

-Did you answer the messagebox wich controls the access to the profile with yes ?

-Is your Autoit Version 3.1.1 or higher

-Check successfull open of the new Object:

$oOutlook = _OutlookOpen()
If $oOutlook <> 0 then 
   $A = _OutlookGetMail($oOutlook)
   _ArrayDisplay($A)
   ConsoleWrite($A)
EndIf

If you want to check the error please have a look in Outlook.au3, go to the funktion _OutlookGetMail and read the remarks

by the way

you do not need to include Array.au3 its already inluded in outlook.au3

Edited May 22, 2009 by mko

Bam · May 22, 2009

Well I tried it on this computer first and I dont get that error but $A returns 0.

The other computer has the default Outlook by xp so I went back to the computer that dosnt give the error.

-Are you shure your actual useraccount has an correct configured outlook profile ?

Yup I can send and recieve emails if thats what you mean.

-Did you answer the messagebox wich controls the access to the profile with yes ?

Not shure on this one, looked around in options and didn't find any thing.

<Edit> Hey just found a push and recieve COM thingy *restart outlook* and what do you know it works :party: ty </>

(Using Outlook 2007)

-Is your Autoit Version 3.1.1 or higher

Both are 3.3.0.0

And I saw that Array.au3 was already inluded in outlook.au3 but i thought id just leave it.

Edited May 22, 2009 by Bam

Wooltown · June 8, 2009

mko:

I will check if it is easy to do this function

_OutlookCountUnreadMail($oOutlook,$olFolderInbox) ?

But I think the function will take some time to run if you have many mail.

Done - And it is fast !!!!!

I changed the _OutlookGetMail() function and added a parameter $fCountMailOnly, setting this to True will return a small array displaying the total number of items and the number of unread items.

[0][0] - Total Number of items

[0][1] - Number of unread items

Edited June 8, 2009 by Wooltown

IQ9003 · July 1, 2009

Is it possible to read from another folder instead the defaultfolder from the default user? What what I mean is this:

- Mailbox_userX => Inbox => Accepted

I did manage to read mail via this solution: http://www.autoitscript.com/forum/index.ph...mp;#entry701901

Wooltown · July 2, 2009

Excerpt from Script:

; Function Name: _OutlookGetMail()

; Description: Get all email using Microsoft Outlook.

; Syntax.........: _OutlookGetMail($oOutlook, $sFolder = $olFolderInbox, $fSubFolder = False, $sFrom = "", $sTo = "", $sCc = "", $sBCc = "", $sSubject = "", $iImportance = "", $fOnlyReturnUnread = False, $sWarningClick = "", $iSetStatus = 0, $fCountMailOnly = False)

; Parameter(s): $oOutlook - Outlook object opened by a preceding call to _OutlookOpen()

; $sFolder - Optional: Folder, default = $olFolderInbox, add subfolders if wish to start search at a lower level, ex: $olFolderInbox & "\Archive"

; If you wish to access the root, use "\", Sent Items, write "\Sent Items"

Or was it some other way you want ?

IQ9003 · July 3, 2009

I'm having trouble to get to the lower level mailbox

In the picture I uploaded you can see that (it's in Dutch, but you'll understand) that RLB is the default mailbox.

I'm trying to read a subfolder from another Mailbox (Info==>Inbox==>Testfolder)

Wooltown · July 3, 2009

OK I understand, well I don't know really, maybe I have some time during next week and can have a look at it.

Wooltown · July 6, 2009

IQ9003, Here is a beta version, test if it works, I don't have the possibility to test to read another persons mailbox.

I tested towards a pst-file, but there I can't locate the standard inbox.

To access another mailbox, start with 2 \\, see the example file in the zip-file

OutlookBeta.zip

Edited July 6, 2009 by Wooltown

IQ9003 · July 7, 2009

I've tried the code however I can't get it to work.

I'm not sure what the problem is, but I beleive it's in the following piece of code.

(Iv'e checked all variables until this piece, I don't know how to check the rest of the code)

If $fOtherMailBox = True Then
        Local $oSession = $oOutlook.Session
        Local $oMailBox = $oSession.CreateRecipient($sOtherMailBox)
        $oMailBox.Resolve
        Local $oFolder = $oNamespace.GetSharedDefaultFolder($oMailBox,$olFolderInbox)
        Local $sFolderName = $oFolder.Parent
            For $idx = 1 To $sFolderName.Folders.Count
            If $sFolderName.Folders.Item($idx).Name = $sFolder Then $oFolder = $sFolderName.Folders.Item($idx)
        Next
    EndIf

IQ9003 · July 8, 2009

Hello,

I've made some progress on my own script in which I've managed to move a mail form mailbox1 to mailbox2 (including the subfolders I asked about).

With the code you made and some googl'ing I was able to construct the following code:

$teller=SaveAndMove("Mailbox User1\Inbox","Mailbox User2\Inbox\test")
msgbox(0,"Mail moved","I've moved " & $teller & " mail Items")

Func SaveAndMove($Postbus_old, $Postbus_new)
    $oOApp = ObjCreate("Outlook.Application")
    $myNamespace =$oOApp.GetNamespace("MAPI")
    ; Original folder
    $myarrayold=StringSplit ( $Postbus_old, "\")
    $myOldFolder = $myNamespace.Folders($myarrayold[1])
    For $i=2 to $myarrayold[0]
        $myOldFolder=$myOldFolder.Folders($myarrayold[$i])
    next
    ; Folder to put the mail in
    $myarraynew=StringSplit ( $Postbus_new, "\")
    $myNewFolder = $myNamespace.Folders($myarraynew[1])
    For $i=2 to $myarraynew[0]
        $myNewFolder=$myNewFolder.Folders($myarraynew[$i])
    next
    $teller=0
    ;Countback loop, this is because the mailitem index resets after each move
    For $a=$myOldFolder.Items.count to 1 Step -1
        If $myOldFolder.Items($a).flagicon=3 then
            $teller=$teller+1
            $iAttachCnt = $myOldFolder.Items($a).Attachments.Count
            If $iAttachCnt > 0 Then
                For $iAttachNum = 1 to $iAttachCnt
                    $oTemp = $myOldFolder.Items($a).Attachments.Item($iAttachNum)
                    $sFileName = $oTemp.FileName
                    $oTemp = $myOldFolder.Items($a).Attachments.Item($iAttachNum)
                    if stringinstr($sFileName,".pdf") > 0 then
                        $oTemp.SaveAsFile ("c:\temp\" & $sFileName)
                    endif
                Next
            EndIf
            ;Move mail after saving attachements
            $myoldfolder.Items($a).move ($myNewFolder)
        endif
    next
    return $teller
 endfunc

Edited July 8, 2009 by IQ9003

Wooltown · July 8, 2009

On 7/8/2009 at 11:58 AM, 'IQ9003 said:

Hello,

I've made some progress on my own script in which I've managed to move a mail form mailbox1 to mailbox2 (including the subfolders I asked about).

With the code you made and some googl'ing I was able to construct the following code:

$teller=SaveAndMove("Mailbox User1\Inbox","Mailbox User2\Inbox\test")
msgbox(0,"Mail moved","I've moved " & $teller & " mail Items")

Func SaveAndMove($Postbus_old, $Postbus_new)
    $oOApp = ObjCreate("Outlook.Application")
    $myNamespace =$oOApp.GetNamespace("MAPI")
    ; Original folder
    $myarrayold=StringSplit ( $Postbus_old, "\")
    $myOldFolder = $myNamespace.Folders($myarrayold[1])
    For $i=2 to $myarrayold[0]
        $myOldFolder=$myOldFolder.Folders($myarrayold[$i])
    next
    ; Folder to put the mail in
    $myarraynew=StringSplit ( $Postbus_new, "\")
    $myNewFolder = $myNamespace.Folders($myarraynew[1])
    For $i=2 to $myarraynew[0]
        $myNewFolder=$myNewFolder.Folders($myarraynew[$i])
    next
    $teller=0
    ;Countback loop, this is because the mailitem index resets after each move
    For $a=$myOldFolder.Items.count to 1 Step -1
        If $myOldFolder.Items($a).flagicon=3 then
            $teller=$teller+1
            $iAttachCnt = $myOldFolder.Items($a).Attachments.Count
            If $iAttachCnt > 0 Then
                For $iAttachNum = 1 to $iAttachCnt
                    $oTemp = $myOldFolder.Items($a).Attachments.Item($iAttachNum)
                    $sFileName = $oTemp.FileName
                    $oTemp = $myOldFolder.Items($a).Attachments.Item($iAttachNum)
                    if stringinstr($sFileName,".pdf") > 0 then
                        $oTemp.SaveAsFile ("c:\temp\" & $sFileName)
                    endif
                Next
            EndIf
            ;Move mail after saving attachements
            $myoldfolder.Items($a).move ($myNewFolder)
        endif
    next
    return $teller
 endfunc

OK, nice, but will it work if you have a folder that is on the same level as Inbox.

Wooltown · July 8, 2009

I got it to work with a little help from this topic

http://www.autoitscript.com/forum/index.php?showtopic=80131&st=0&p=576853&hl=outlook&fromsearch=1&#entry576853

I will continue my work of the UDF

This property would be useful, but it only works from Outlook 2007, we are using Outlook 2003.

http://msdn.microsoft.com/en-us/library/bb175607.aspx

Edited July 8, 2009 by Wooltown

IQ9003 · July 8, 2009

yes it also works for folders at the same level as the Inbox, but also to other users mailbox.

(We also have Outlook2003)

On 7/8/2009 at 12:06 PM, 'Wooltown said:
OK, nice, but will it work if you have a folder that is on the same level as Inbox.

Edited July 8, 2009 by IQ9003

Sign In

Outlook UDF

Recommended Posts

Wooltown

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

Wooltown

Posted Images

codemaker

Wooltown

91firehawk

mko

want2learn

Bam

mko

Bam

Wooltown

IQ9003

Wooltown

IQ9003

Wooltown

Wooltown

IQ9003

IQ9003

Wooltown

Wooltown

IQ9003

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta