Need help to create script for outlook task

[water]

Sorry, mistake on my side. I updated the code in post #34 (parameter $iOL_ObjectClass is needed).

[lolipop]

same error. I don't think the object class for my sample is $olMail. It's not exactly a mail attachment I think.

What I do is drag and drop the au3 file from desktop to the outlook shared folder. It automatically create a item list for me in the shared folder with the au3 file. If you look at it carefully, outlook doesn't list that as a mail attachment. Does that consider a mail?

[water]

Got it! Please replace $olMail with $oldocument.

[lolipop]

_OL_ItemSave($oOutlook, $aItems[1][0], Default, "D:test", $olHTML, 1)

Thank you very much. The script works perfectly. I have also change the $olHTML type to $olMSG instead so I can save the to MSG instead of HTML. Another question, how can I import the msg file back to a specific outlook folder I want. I have try searching in the forum but can't find any information. As far as I know, the only way is to drag and drop the msg file to the outlook folder.

Edited April 3, 2012 by lolipop

[water]

You call _OL_ItemCreate and pass the MSG as 4th parameter ($sOL_Template).

[lolipop]

ShellExecute("Outlook", "/profile test2", "", "", @SW_HIDE)
If @error Then Exit MsgBox(16, $sTitle, "Error returned by ShellExecute: " & @error & ", @extended: " & @extended)
Sleep(5000)
$oOutlook = _OL_Open()
If @error Then Exit MsgBox(16, $sTitle, "Error returned by _OL_Open: " & @error & ", @extended: " & @extended)
$aFolder = _OL_FolderAccess($oOutlook, "*ImportFolder")
If @error Then
    MsgBox(16, $sTitle, "Error returned by _OL_FolderAccess: " & @error & ", @extended: " & @extended)
    _OL_ItemCreate($oOutlook, $olMailItem, $aFolder, "D:testOutSwitch.au3.msg")
    If @error Then MsgBox(16, $sTitle, "Error returned by _OL_ItemCreate: " & @error & ", @extended: " & @extended) 
Endif
_OL_Close($oOutlook, True)
If @error Then MsgBox(16, $sTitle, "Error returned by _OL_Close: " & @error & ", @extended: " & @extended)

I try using _OL_ItemCreate but it doesn't seems to create the item base on the MSG file. Is the code wrong?

[water]

Try this line please:

_OL_ItemCreate($oOutlook, $olMailItem, $aFolder[1], "D:testOutSwitch.au3.msg")

[lolipop]

I have try with $aFolder[1] before but doesn't work.

[water]

Do you get an error code?

[lolipop]

no error code. the script run perfectly. Could it be MSG file cannot be used this case?

[lolipop]

_OL_ItemCreate=($oOutlook, $olMailItem, "*Shared Folder", "D:testOutSwitch.au3.msg")

I have also try this but it doesn't create the item as well

Edited April 3, 2012 by lolipop

[water]

No problem here (Outlook 2010) to create the item.

Could you please add

$iOL_Debug = 2

at the top of your script after "#include <OutlookEx.au3>"?

[lolipop]

Added.

What should I be seeing after adding that? There is no error or dialog message.

[water]

Then no error occurres

[lolipop]

yup...no error at all....

The whole script below.

expandcollapse popup

#include <OutlookEx.au3>
$iOL_Debug = 2
$sTitle = "Outlook Test Script"
Global $oOL
; Close all Outlook instances
While 1
    $oOL = ObjGet("", "Outlook.Application")
    If $oOL = 0 Then ExitLoop
    _OL_Close($oOL, True)
WEnd
; Start Outlook with the specified profile
ShellExecute("Outlook", "/profile Outlook", "", "", @SW_HIDE)
If @error Then Exit MsgBox(16, $sTitle, "Error returned by ShellExecute: " & @error & ", @extended: " & @extended)
Sleep(5000)
$oOutlook = _OL_Open()
If @error Then Exit MsgBox(16, $sTitle, "Error returned by _OL_Open: " & @error & ", @extended: " & @extended)
$aFolder = _OL_FolderAccess($oOutlook, "*Shared Folder")
If @error Then
    MsgBox(16, $sTitle, "Error returned by _OL_FolderAccess: " & @error & ", @extended: " & @extended)
Else
    $aItems = _OL_ItemFind($oOutlook, $aFolder[1], $olDocument, "", "Subject", "OutSwitch.au3", "EntryID")
    If @error Then
        MsgBox(16, $sTitle, "Error returned by _OL_ItemFind: " & @error & ", @extended: " & @extended)
    Else
        If $aItems[0][0] = 0 Then
            MsgBox(16, $sTitle, "No mail items found!")
        Else
            _OL_ItemSave($oOutlook, $aItems[1][0], Default, "D:test", $olMSG, 1)
  If @error Then MsgBox(16, $sTitle, "Error returned by _OL_ItemSave: " & @error & ", @extended: " & @extended)
        EndIf
    EndIf
Endif
_OL_Close($oOutlook, True)
If @error Then MsgBox(16, $sTitle, "Error returned by _OL_Close: " & @error & ", @extended: " & @extended)
Sleep(5000)
; Start Outlook with the next specified profile
ShellExecute("Outlook", "/profile test1", "", "", @SW_HIDE)
If @error Then Exit MsgBox(16, $sTitle, "Error returned by ShellExecute: " & @error & ", @extended: " & @extended)
Sleep(5000)
$oOutlook = _OL_Open()
If @error Then Exit MsgBox(16, $sTitle, "Error returned by _OL_Open: " & @error & ", @extended: " & @extended)
$aFolder = _OL_FolderAccess($oOutlook, "*Shared Folder")
If @error Then
    MsgBox(16, $sTitle, "Error returned by _OL_FolderAccess: " & @error & ", @extended: " & @extended)
    _OL_ItemCreate($oOutlook, $olMailItem, $aFolder[1], "D:testOutSwitch.au3.msg")
    If @error Then MsgBox(16, $sTitle, "Error returned by _OL_ItemCreate: " & @error & ", @extended: " & @extended) 
Endif
_OL_Close($oOutlook, True)
If @error Then MsgBox(16, $sTitle, "Error returned by _OL_Close: " & @error & ", @extended: " & @extended)

[water]

Can you check that the item isn't created in a different folder (like Inbox or drafts folder)?

[lolipop]

checked....no item created in all the folder available within the profile.

Is there anything wrongly written in my code?

[water]

If you go to folder "*Shared Folder", right click and select "Properties" what do you get for the "Type" (translated form german - I hope it will be the same in english).

[lolipop]

it wrote "Folder containing Mail and Post items"

Edited April 3, 2012 by lolipop

[water]

I'm soon running out of ideas

The item we currently play with is a DocumentItem.

Could you please test with a mail item? That means using the current script and search/save/create a (test) email.