-----Messaggio Originale----- Da: "ToninhoFWi" <toninho...@yahoo.com.br>
A: "Harbour Project Main Developer List." <harbour@harbour-project.org>
Data invio: sabato 12 dicembre 2009 23.53
Oggetto: Re: Re: [Harbour] Adding MAPI to hbwin


Now mapi is working fine and testmapi.prg is tested under windows
vista with success,

The following sample still GPFs for me (works fine using xHarbour):

#include "FiveWin.ch"
#include "Mail.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

local oBar

DEFINE WINDOW oWnd TITLE "Using Windows MAIL Services"


SET MESSAGE OF oWnd TO "FiveWin - Windows MAIL support" CENTERED

ACTIVATE WINDOW oWnd ON INIT Test() ;
VALID MsgYesNo( "Want to end ?" )

return nil

//----------------------------------------------------------------------------//

function Test()

local oMail

DEFINE MAIL oMail ;
SUBJECT "Testing..." ;
TEXT "This is real xBase power at your fingertips!" ;
FROM USER ;
RECEIPT

ACTIVATE MAIL oMail

MsgInfo( oMail:nRetCode )

return nil

//----------------------------------------------------------------------------//

EMG

--
EMAG Software Homepage:     http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to