topic-6754

driessen

Posts: 1467

Joined: Mon Oct 10, 2005 11:26 AM

Problem with OLE and Outlook 2007
Posted: Fri Apr 18, 2008 09:07 PM

Hello guys,

There is a much easier solution to get arround this problem with Outlook.

You can download it free at : www.mapilab.com/outlook/security

It works with all Outlook versions.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Wanderson

Posts: 332

Joined: Thu Nov 17, 2005 09:11 PM

Re: Problem with OLE and Outlook 2007
Posted: Wed Feb 02, 2011 04:46 PM

Hi, anyone have a solution about this error?

I have try:

oOutLook := CreateObject("Outlook.Application")
oNameSpace := oOutlook:GetNameSpace("MAPI")
oMail := oOutLook:CreateItem(0)
oMail:Subject := "test"
oMail:Body := "test"
oMail:Recipients:Add("myemail")
oMail:CC := ""
oMail:BCC := ""
oMail:Send()

and:

oOutLook := CreateObject("Outlook.Application")
oNameSpace := oOutlook:GetNameSpace("MAPI")
oMail := oOutLook:CreateItem(0)
oMail:Subject := "test"
oMail:Body := "test"
oMail:To := "myemail"
oMail:CC := ""
oMail:BCC := ""
oMail:Send()

and both gives the error: Error description: Error Outlook.Application:CREATEITEM/0 S_OK: RECIPIENTS

If i open outlook 2007 first thats ok. Any idea? Thanks in advance.

Wanderson

driessen

Posts: 1467

Joined: Mon Oct 10, 2005 11:26 AM

Re: Problem with OLE and Outlook 2007
Posted: Thu Feb 03, 2011 12:48 PM

Hello,

I use exactly the same code without having any problems.

But I noticed the you use

Code (fw): Select all Collapse

oMail:Recipients:Add("myemail")

Maybe you should try a real e-mail address with a @ in it.

Good luck.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Wanderson

Posts: 332

Joined: Thu Nov 17, 2005 09:11 PM

Re: Problem with OLE and Outlook 2007
Posted: Thu Feb 03, 2011 02:18 PM

driessen wrote:Hello,

I use exactly the same code without having any problems.

But I noticed the you use
Code (fw): Select all Collapse
oMail:Recipients:Add("myemail")
Maybe you should try a real e-mail address with a @ in it.

Good luck.

Hello driessen, "myemail" its just a exemple i have using a real email in this case, but if outlook2007 is not open show the error reported, what your fwh version?

Thanks in advance.

driessen

Posts: 1467

Joined: Mon Oct 10, 2005 11:26 AM

Re: Problem with OLE and Outlook 2007
Posted: Fri Feb 04, 2011 03:26 PM

Hello,

Sorry but I think I didn't understand your question very well.

This is the code I use to make a connection to Outlook to avoid the error you mentioned :

Code (fw): Select all Collapse

LOCAL cTasks

LOCAL OutlFound := .F.

cTasks := GetTasks()
FOR i=1 TO LEN(cTasks)
    IF AT("OUTLOOK",UPPER(cTasks[i])) <> 0
       OutlFound := .T.
       i := LEN(cTasks)
    ENDIF
NEXT
IF !OutlFound ; ShellExecute(,"Open","Outlook",,,3) ; 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

    // Your source to send your mail

ENDIF

Hope this can help you. It runs fine in my application.

Good luck.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

FiveTech Support Forums

Continue the discussion