Send attachments via mapi

[Marco Turco]

Hi all,
do you have a working sample to send emails with attachments using mapi ?
I made this sample but I receive the email without the attachment.

function DirectMessage()

local oMail

AFILES:={}
AADD(AFILES,"K:\FWH\SAMPLES\TESTMAIL.PRG")

DEFINE MAIL oMail ;
SUBJECT "FiveWin Mail-control power" ;
TEXT "This is real xBase power at your fingertips!" ;
TO "xxx@test.co.uk";
FILES AFILES

ACTIVATE MAIL oMail

MsgInfo( oMail:nRetCode )

return nil

[Marc Vanzegbroeck]

Marco,

Try

Code: Select all  Expand view

DEFINE MAIL oMail ;
SUBJECT "FiveWin Mail-control power" ;
TEXT "This is real xBase power at your fingertips!" ;
TO "xxx@test.co.uk";
FILES "K:\FWH\SAMPLES\TESTMAIL.PRG","TESTMAIL.PRG"

ACTIVATE MAIL oMail

[James Bott]

Marco,

I don't see anything wrong with your test. Maybe you had the attachment open in an editor? Also try a ZIP file, maybe the server doesn't recognize the extension.

James

[TimStone]

This has been working fine for me:

FUNCTION SendMAPIMail2( MailTo, cSndFile, cText, cSubj )
LOCAL oMail

DEFINE MAIL oMail ;
SUBJECT cSubj ;
TEXT cText ;
FILES cSndFile, cSndFile ;
FROM USER ;
TO MailTo

ACTIVATE MAIL oMail

RETURN( .t. )

[Marco Turco]

Hi all,
thank you for the support.
Anyway I solved using the MapiSendMail function and it runs well.