请哪位提供一个邮件自动发送和接收的例子 - VFP论坛

楼主

已结贴√ 问题点数：20 回复次数：9

请哪位提供一个邮件自动发送和接收的例子

现在网上下载、复制都不可以。看那位能提供一下。谢谢！myfll做的更好。

搜索更多相关主题的帖子: 邮件　自动　例子　发送　接收　

第 2 楼

得分:5

印象中，十几年前用过。
别人用VFP写的，很短的一段代码。
群发！拼命群发！开心死我老人家了！！………………………………………………结果没过几天，我用于发电邮的账号就被各大邮件服务器列入了“黑名单”——因为从此再也无法正常发出电邮了。

第 3 楼

得分:5

以前用旧版本的outlook的ocx做过,现在好多电脑上没有那个ocx了.
还有一种是用cdo对象来说的,可以不依赖outlook, 代码一时找不到,
你不如直接用木瓜老师的库来做吧.

第 4 楼

得分:0

找到一个用outlook的ocx收邮件的代码,发送的未找到, 将就着看:

程序代码：

FUNCTION  SendEmailByOutlook(cHtmlBody as string ,cAttchFile as String ,cReceiver as String,ccc as String,cTITLE as String) as Boolean 
* 生成带附件的邮件(这个函数,假定用户的Outlook已经配置好:账户[color=#808080]/密码/smtp/pop3服务器等规则)[/color]
* 并且邮件的页面内容要粘贴指定的表格,插入指定的文字.
* 参数：Html格式正文全名，附件文件全名，收件人在Outlook地址簿中的名字.最好是名字[color=#808080]+邮箱:"奋斗<chu.zha@hg.com>"[/color]

 #DEFINE MAILITEM 0                && 邮件对象（供Outlook.application生成 邮件对象/联系人对象...时必需的参数)

 #DEFINE IMPORTANCELOW 0        && 邮件紧急程度--低
 #DEFINE IMPORTANCENORMAL 1        && 邮件紧急程度--普通
 #DEFINE IMPORTANCEHIGH 2         && 邮件紧急程度--高

LOCAL lRetu as Boolean 
IF FILE(cHtmlBody) AND FILE(cAttchFile) AND LEN(cReceiver) > 0 THEN 
    IF VARTYPE(cTITLE) <>'C' THEN   &&  邮件标题
     cTITLE= JUSTSTEM(cAttchFile)        
    ELSE 
        IF EMPTY(cTITLE) THEN 
         cTITLE= JUSTSTEM(cAttchFile)            
        ENDIF 
    ENDIF 

     wait WINDOW  '现在开始往 ' + cReceiver + ' 发送邮件文件...' NOWAIT 
     TRY 
         oOutLookObject = CreateObject("Outlook.Application")
         oEmailItem = oOutLookObject.CreateItem(MAILITEM)

         WITH oEmailItem
          .Recipients.Add(cReceiver)  &&  收件人,也可以直接改写to属性,如:.To='user@'这种方式.
          IF NOT EMPTY(ccc) THEN         &&  抄送,
          .cc = ccc 
          ENDIF 
          .Subject = cTITLE       &&  邮件标题
          .Importance = IMPORTANCENORMAL
          .BodyFormat= 2  && 0=olFormatUnspecified (实际上不行,会报错) ;1=olFormatPlain ;2=olFormatHTML ;3=olFormatRichText
          .HTMLBody = FILETOSTR(cHtmlBody)   && html格式的邮件正文
    *     .Body = FILETOSTR("c:\xssr1.txt")
          .Attachments.Add(cAttchFile)        &&  附件
          .Send
         ENDWITH

         lRetu = .t. 
     CATCH TO verr
         MESSAGEBOX(verr.message) 
     lRetu = .f. 
     FINALLY 
         RELEASE oEmailItem
         RELEASE oOutLookObject     
     ENDTRY 
     
     RETURN lRetu
ELSE   &&  正文/附件/收件人等为空.
    RETURN .f. 
ENDIF      
ENDFUNC

第 5 楼

得分:5

现在都是用手机微信，还有谁来打开一个邮箱的？
我已经好多年不用邮箱了。

第 6 楼

得分:5

Power by 木瓜 MyFLL
*示例1:发送一封纯文本的邮件给 gates@

Set Library To myFll

Local hSmtp
hSmtp = SmtpCreate() &&创建句柄
SmtpNewMail(hSmtp,"abc@,"gates@,"邮件主题","这是邮件内容啦")&&创建邮件
if not SmtpSend(hSmtp,"smtp.,"abc","password ") &&开始发送
    ?"发送失败，错误信息为："
    ??SmtpGetLastError(hSmtp)
endif
SmtpClose(hSmtp) &&断开句柄

Set Library To

*示例2:发送一封html格式的邮件，同时发送给两个人，带两个附件

Set Library To myFll

Local hSmtp,cHtmlBody

hSmtp = SmtpCreate(.T.) &&创建句柄,指定要使用html格式
cHtmlBody="<html><body>这是个html格式的邮件<b>Hello world!</b></body></html>" &&这是邮件内容
SmtpNewMail(hSmtp,"abc@,"gates@,abc@,"邮件主题",cHtmlBody,"myfll.fll|c:\boot.ini")&&邮件发送给了两个人，带了两个附件。
if not SmtpSend(hSmtp,"smtp.,"abc","password ") &&开始发送
    ?"发送失败，错误信息为："
    ??SmtpGetLastError(hSmtp)
endif
SmtpClose(hSmtp) &&断开句柄

Set Library To