OLE, Word and Outlook

[driessen]

Hello,

I use this code to position Word on my screen:

Code: Select all  Expand view  RUN

oWord:Top    := US->UWORDTOP
oWord:Left   := US->UWORDLEF
oWord:Width  := US->UWORDWID
oWord:Height := US->UWORDHEI

I also us this code to make Word visible:

Code: Select all  Expand view  RUN

oWord:Visible := .T.

This is also working likewise for Excel.

But why isn't it working for Outlook? How can I postion my Outlook on my screen in FWH?

Thanks a lot in advance.

[driessen]

Nobody?

[gkuhnert]

There simply is no Application.Visible property implemented by Microsoft. You just have to define an explorer. For example, if you want to show the inbox folder in Outlook you could implement:

Code: Select all  Expand view  RUN

static function ShowInbox()
local oNameSpace, oInbox
local oExplorer
    oOutlook := GetOutlookObject()
    IF oOutlook == nil
        return {}
    ENDIF
    oNameSpace := oOutlook:Get( "GetNameSpace", "MAPI" )
    oInbox := oNameSpace:Get( "GetDefaultFolder", 6 ) // Enumeration: https://msdn.microsoft.com/en-us/vba/ou ... on-outlook
    oExplorer := oOutlook:Explorers():Add(oInbox, 0) // Enumeration: https://msdn.microsoft.com/en-us/librar ... ymode.aspx
    oExplorer:Activate()
return nil

static function GetOutlookObject()
local oOutlook
    TRY
        oOutlook := GetActiveObject ( "Outlook.Application" )
    CATCH
        TRY
        oOutlook := CREATEOBJECT( "Outlook.Application" )
        CATCH
                MsgStop("Cannot start outlook!")
                return .f.
            END
        END
    ENDIF
return oOutlook
 

Properties Top, Left, Height and Width are available to the explorer-object:
https://msdn.microsoft.com/VBA/Outlook- ... ct-outlook