topic-35351

Posts: 1195

Joined: Mon Oct 17, 2005 05:41 AM

Email problem
Posted: Tue Mar 06, 2018 04:17 PM

Hi,

Normaly I use tmail for sending email. And it's working fine.
Now I want to send a HTML email with attachement, so I want to use:

Code (fw): Select all Collapse

    LOCAL oOutlook, oMail
     #define olMailItem 0
        TRY
       oOutlook := GetActiveObject( "Outlook.Application" )
    CATCH
       TRY
       oOutlook := CreateObject( "Outlook.Application" )
       CATCH
         ?  "ERROR! Outlook not avialable. [" + Ole2TxtError()+ "]"
        RETURN
      END
    END


    oMail = oOutlook:CreateItem( olMailItem )

    oMail:Recipients:Add( "email@domain.com" )

    oMail:Subject = "Test"

    oMail:Attachments:Add( "c:\temp\Factuur  20170001.pdf" )

    oMail:HTMLBody = maakhtmlemail(adatum,aproject,auren)

    oMail:Display = .T.

But this is only working when outlook is open.
If it's closed, I get an error at the line

Code (fw): Select all Collapse

oMail:Recipients:Add( "email@domain.com" )

Is there a way to avoid this problem?
Thanks.

Jack

Posts: 300

Joined: Wed Jul 11, 2007 11:06 AM

Re: Email problem
Posted: Tue Mar 06, 2018 05:16 PM

Here is my code :
TRY
oOutLook := GetActiveObject( "Outlook.application" )
MsgWait("Outlook al open !","Info",2)
CATCH
TRY
oOutLook := CreateObject( "Outlook.application" )
MsgWait("Ouverture Outlook !!","Info",2)
CATCH
MsgAlert( "Outlook not installed" )
return .T.
END
END
*
*
oMailItem := oOutLook:Invoke("CreateItem", 0)
oMailitem:to:="test1@skynet.be"
oMailitem:CC:="test2t@skynet.be;test3@telenet.be"
oMailItem:Set("Subject","Mail test")
oMailItem:Set("Body","Mail")
if file("c:\excel\all.xls")
oMailItem:Attachments:Add("c:\all.xls")
endif
oMailItem:display(.F.)
*

Marc Vanzegbroeck

Posts: 1195

Joined: Mon Oct 17, 2005 05:41 AM

Re: Email problem
Posted: Tue Mar 06, 2018 06:19 PM

Thank you Jack,

Now it's working even when outlook in not running.

FiveTech Support Forums

Continue the discussion