Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Link to Mapi

Status
Not open for further replies.

ChrisK

Programmer
Mar 14, 2001
3
US
Has anyone linked to the mapi interface? I need to send email from a fox2.6 for windows program. Any Ideas as to where I can look for info? Chris
 
I managed to do it once, but it was under Windows 3.11
with a microsoft mail client, died as soon as people went to windows 95+..... (using the exchange client) dll changed or something... was along time ago....

I only had it basically sending a short e-mail from a users
machine, if they did a job, (for the next person) to then
send the fax & comms to our sites....

Anyway, if your still using Win 3.11 I maybe able to help
I think there was some demo e-mail client written in fox, that I looked at. would have to dig it up......

Zim
 
I wrote my own VB program that my fpw2.6 program could drive with DDE commands.

The VB prog used the standard MS MAPI controls and with combinations of DDEPOKE and DDEXECUTE i gave it the email address, subject line, message body and attachments followed up with a "SEND" command by ddeexecute.


 
Try Eudora, the program would be:
[tt]
report form xxx to file xxx.tif (assuming you set a tif printdriver as your default printer)
if you have blind faith in your operation system
lnFileNo=fopen("emm.msg",0)
else
lnFileNo=ascmake("emm.msg",0)
endif
=fputs(lnFileNo,"To: "+lower(alltrim(CUSTOMER.EM1_ADDR))+" ")
=fputs(lnFileNo,"From: "+lower(alltrim(COMPANY.EMADDRESS))
=fputs(lnFileNo,"Subject: "+alltrim(PROJECTS.PROJECT)
=fputs(lnFileNo,"Cc: "+lower(alltrim(CUSTOMER.EM2_ADDR))+" ")
=fputs(lnFileNo,"Bcc: "+lower(alltrim(CUSTOMER.EM3_ADDR))+" ")
=fputs(lnFileNo,"Attached: "+xxx.txt+"; ")
=fputs(lnFileNo,"X-Attachments: "+xxx.tif+"; ")
=fputs(lnFileNo,"") && Warning this must be a null for eudora to read the text
=fputs(lnFileNo,"If You Have Any Questions, Call 888-696-1427 and ask for Dave")
=fclose(lnFileNo)
run /n3 c:\program files\qualcomm\eudora\eudora.exe g:\e_mail\emm.msg
[/tt]
see
David W. Grewe
Dave@internationalbid.com
ICQ VFP ActiveList #46145644
 
Chris:

See FoxPro Advisor magazine Dec.1996 / Jan.1997 for articles by Tom DeMay on how to send/receive email from Foxpro 2.6 and VFP. If you are sending to a 32-bit email server (such as Microsoft Exchange), I think you have the 16-bit / 32-bit problem for parameters. if you have solved this problem, I would be interested in your solution. I am just now trying to figure out how Foxpro 2.6 can send to Micorsoft Exchange.

Fox Talk magazine for Feb.1996 had an article by Rick Strahl on how to use his CALL32.DLL to 'thunk' the parameters to call Win32 & 32-bit DLLs from 16-bit FoxPro 2.6. But he only deals with accessing the Registry.

Hope this helps.
 
Hi,

Does anyone have any further tips on how to send e-mails using a 32-bit client (MS Exchange) from FoxPro 2.6 for Windows?

cheers

Nathan
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top