how to send pop3 mail in VFP?

how to send pop3 mail in VFP?

Post by S2Ft » Fri, 04 Mar 2005 11:35:06


I would like to use VFP to automate to send the e-mail with the attachment.
How to do it?
 
 
 

how to send pop3 mail in VFP?

Post by Josh Assin » Fri, 04 Mar 2005 12:30:37

You could use west-wind's tools.
Or NetLib's tools
Or Blat.DLL
or ....

I use Blat.dll -- it's free & works well.





---
Remove x's to send.

 
 
 

how to send pop3 mail in VFP?

Post by S2Ft » Fri, 04 Mar 2005 12:57:02

Where can I find the details about Blat.DLL and NetLib
 
 
 

how to send pop3 mail in VFP?

Post by swdev » Fri, 04 Mar 2005 15:55:31

Kam -
I am a big fan of blat, but I will assume you want to SEND smtp and NOT pop3
email.
sending pop3 email is a bit of a misnomer.
start with http://www.yqcomputer.com/
there's some vfp guys there that can assist you .
regards [Bill]
 
 
 

how to send pop3 mail in VFP?

Post by Mike Gagno » Fri, 04 Mar 2005 19:39:24

POP3 refers to incomming mail, SMTP refers to the outgoing mail. So you
should send your e-mail via SMTP and not pop3
http://www.yqcomputer.com/
 
 
 

how to send pop3 mail in VFP?

Post by Georg » Fri, 04 Mar 2005 23:14:57

*---------------------------------------------------------------------
* SendMail.prg
*---------------------------------------------------------------------

* Test:
Text to content NoShow
- This is the test message
- Test sent using SendMail()
- FOX ROX !
EndText

sender = '"Tester" < XXXX@XXXXX.COM >'
receiver = '"George" < XXXX@XXXXX.COM >'
ccList = ''
bccList = ''
subject = 'Testing'
attachments = ''

SendMail(sender,receiver,ccList,bccList,subject,content,attachments)
Return
* End of test

Function SendMail
Lparameters cSender, cReceiver, cCopy, cBlank, cSubject, cContent, cAttachments

#Define cdoSendUsing 12
#Define cdoAccountName 13
#Define cdoTimeout 14
#Define cdoSmtpServer 15
#Define cdoServerPort 16

* Your settings
#DEFINE myMailServer "smtp.example.com"
#DEFINE myServerPort 25
#DEFINE myTimeout 10

oMessage = Createobject("CDO.Message")
oConfig = Createobject("CDO.Configuration")
oFields = oConfig.Fields

* Set the CDOSYS configuration fields to use port 25 on the SMTP server.
With oFields
.Item(cdoSendUsing) = 2 && 1: local SMTP pickup, 2: SMTP over the network
.Item(cdoSmtpServer) = myMailServer
.Item(cdoServerPort) = myServerPort
.Item(cdoTimeout) = myTimeout
.Update()
Endwith

* Apply settings to the message.
With oMessage
.Configuration = oConfig
.From = cSender
.To = cReceiver
.Cc = cCopy
.Bcc = cBlank
.subject = cSubject
.textBody = cContent
Endwith

* Add attachments
If Not Empty(cAttachments) Then
oMessage.AddAttachment(cAttachments)
Endif

* Send the message
oMessage.Send()

* Clean up variables.
oMessage = Null
oConfig = Null
oFields = Null

Return
EndFunc

* End of SendMail.prg
 
 
 

how to send pop3 mail in VFP?

Post by Josh Assin » Sat, 05 Mar 2005 01:21:25

www.netlib.com
www.blat.net







---
Remove x's to send.