Outlook

[Otto]

Hello Michael,
would you be so kind to post your code how you test if outlook is running and if not how you start Outlook.
Thanks in advance
Otto


>Which version of Outlook are you using ?

>I had a similar problem with Outlook 2007 but not with previous versions.

>The GPF disappeared after I added a test which checks if Outlook2007 has already been opened and if not, Outlook 2007 is >opened by using WinExec() before the CreateObject().

>Might this also be your problem ?

[driessen]

Otto,

Here is the code you asked for :

Code: Select all  Expand view

IF !EMPTY(US->UOUTPATH) .AND. FILE(ALLTRIM(US->UOUTPATH))
    cTasks := GetTasks()
    FOR i=1 TO LEN(cTasks)
        IF AT("OUTLOOK",UPPER(cTasks[i])) <> 0
            OutlFound := .T.
            i := LEN(cTasks)
        ENDIF
    NEXT
    IF !OutlFound ; WINEXEC(US->UOUTPATH,2) ; ENDIF
ENDIF

TRY
    oOutLook   := CreateObject("Outlook.Application")
    oNameSpace := oOutlook:GetNameSpace("MAPI")
    EmSend     := .T.
CATCH
    TRY
        oOutLook   := CreateObject("Outlook.Application")
        oNameSpace := oOutlook:GetNameSpace("MAPI")
        EmSend     := .T.
    CATCH
        EmSend   := .F.
    END
END

IF EmSend


... and then the rest of the code.

This is working very well.

US->UOUTPATH holds the complete pathname of the OUTLOOK.EXE. Especially for Outlook 2007, it is necessary that Outlook is started before an email is send.

Good luck.

[Otto]

Thank you, Michael.
>US->UOUTPATH holds the complete pathname of the OUTLOOK.EXE.

This was my problem. I tried with winexec(“outlook.exe”) but this does not work.
How do you find the outlook path.

Thanks in advance
Otto

[driessen]

Otto,

I have a dialogbox with parameters. One of them is the pathname of OUTLOOK.EXE which I search by using this function (which can be activated by pushing a button) :

Code: Select all  Expand view

FUNCTION SearchFile(FileZk,ArgZk,ZkRet)

   LOCAL ZkFile   := ""
   LOCAL ZkLen    := 0

   PRIVATE SpFile := ""
   PRIVATE SpPath := ""

   DEFAULT(ZkRet,.F.)

   IF ZkRet ; ZkLen := LEN(FileZk) ; ENDIF

   SplitsPath(FileZk)

   ZkFile := LFN2SFN(ALLTRIM(CGETFILE(IF(EMPTY(FileZk),ALLTRIM(ArgZk),ALLTRIM(SpFile)),"Make your choice",,IF(EMPTY(FileZk),"C:\",ALLTRIM(SpPath)))))

   IF EMPTY(ZkFile) ; ZkFile := FileZk ; ENDIF

   IF ZkRet .AND. ZkLen <> 0 ; ZkFile := LEFT(ALLTRIM(ZkFile) + SPACE(ZkLen),ZkLen) ; ENDIF

RETURN(ZkFile)


Good luck.

[Otto]

Hello Michel,

If I am right CGETFILE opens a dialog.
I thought of an automatism.
I found you can get the WINWORD path like that:

oWord := CREATEOBJECT( "Word.Application" )
cWordPath : =oword:path + "\WINWORD.EXE"

and hoped there is a path method also in the outlook-object.
Till now I didn’t found.
Maybe one could use the registry key?

What do you think?

Regards,
Otto

[driessen]

Otto,

I'm afraid I can't help you.

Indeed, there is no path method for Outlook.

But can you tell me where I can find al the methods which are possible for Word and Outlook ?

I am looking for more information because I want to build a synchronisation between my application and Outlook. Until now, the information I got was very little.

Thanks.

[Enrico Maria Giordano]

Search for vba*.chm in your hard disk or in the Office CD or consult the MSDN.

EMG

[Otto]

Hello Michel,
today I found this code in the FIVEWIN samples:
testreg3.prg
This code returns the Outlook path.
Regards,
Otto

Code: Select all  Expand view

#define  HKEY_LOCAL_MACHINE      2147483650

FUNCTION GetOutlookPath()
Local oReg, cOLPath

oReg := TReg32():New( HKEY_LOCAL_MACHINE, ;
    "Software\Microsoft\Windows\CurrentVersion\App Paths\Outlook.exe", .f. )
cOLPath := oReg:Get( Nil, "" )                // i.e. (Default) key
oReg:close()

MsgInfo( sfn2lfn(cOLPath ))

RETURN nil