how make to conect to smtp for send mail and pop3 to Recive(VFP)

[pregunton]

Hi i need add to my app the posibility of conect to a smtp to send mail and pop3 to recived i need make that with VFP and without use external resources(not see32.dll). Can anybody help me pls?
Tnx

 

[Guest_imported]

hi,
Iam using EasyMailObjects, I find very useful tool for sending and receiving mails thru VFP. u can have a look at

http://www.easymailobjects.com,,u

will find sample codes for VFP too.
regards

 

[pregunton]

tnx but i find to learn and free solution for my problem.
I know that can make with VFP but i dont know how.
Tnx Again

 

[Mike Gagnon]

Try this:
* Create an instance of a form, and then add the MSMAPI.MAPISession and
* MSMAPI.MAPIMessages OLE controls to that form:

oform = CreateObject("form&quot
oform.addobject("Session1","olecontrol","MSMAPI.mapiSession&quot
oform.addobject("Message1","olecontrol","MSMAPI.mapiMessages&quot

* Call the Signon method of the MAPISession control. If the user is not
* logged into mail, this will prompt the user to sign on. This also sets
* the SessionId property for the MAPIsession control:

oform.Session1.signon

* Set the SessionId of the MAPIMessage control to the SessionId of the
* MAPISession control, which was just obtained:

oform.Message1.sessionid = oform.Session1.sessionid

* Compose an e-mail message and set the subject line and Message text:

oform.Message1.compose
oform.Message1.msgsubject = "Memo from my FoxPro app"
oform.Message1.msgnotetext = "This works"

* Sends the e-mail message. The (1) is required to send the message.

oform.Message1.send(1)

* Optionally, sign off from mail:

oform.Session1.signoff

* Optionally, release the objects if they are no longer needed:

release oform

 

[Mike Gagnon]

Or this:

DECLARE INTEGER ShellExecute IN shell32.dll ; 
  INTEGER hndWin, STRING cAction, STRING cFileName, ; 
  STRING cParams, STRING cDir, INTEGER nShowWin

lcMail = "mailto:john@mycompany.com"+ ;
  "?CC= boss@mycompany.com&Subject= Meet for lunch"+ ;
   "&Body= Please join me for a sandwich at noon." 
ShellExecute(0,"open",lcMail,"","",1)