欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

关于邮件的有关问题,大神,多谢

更新时间: 2014-01-05 02:27:18 责任编辑: Author_N1

 

关于邮件的问题,请教各位大神,谢谢!
1、发邮件,我已经通过cdo实现了发邮件,但是有一个问题,就是我想把.rtf格式的内容以邮件正文的方式发出去,结果收到的是一大板乱码,请问是怎么回事?

ssl = 1
TRY
lcErr = ""
lcSchema = "http://schemas.microsoft.com/cdo/configuration/" 
loConfig =Createobject("CDO.Configuration")
With loConfig.Fields
   .Item(lcSchema + "smtpserver") = 'mail.gtjas.com' 
   .Item(lcSchema + "sendusing") = 2 
   .Item(lcSchema + "smtpauthenticate") = .T.
   IF ssl = 1 && 
.Item(lcSchema + "smtpserverport") = 465 && 
.Item(lcSchema + "smtpusessl") = .T.
   ELSE
.Item(lcSchema + "smtpserverport") = 25 
.Item(lcSchema + "smtpusessl") = .f.
   Endif
.Item(lcSchema + "sendusername") = 'chunguanghui@gtjas.com' 
.Item(lcSchema + "sendpassword") = 'chunghl511211' 
.Item("urn:schemas:mailheader:disposition-notification-to")  = mail_from &&设置“已读”回执
.Item("urn:schemas:mailheader:return-receipt-to") = mail_from && 设置“已送达”回执
.Update 
Endwith
loMsg =Createobject ("CDO.Message")
IF !EMPTY(cFile) 
loMsg.AddAttachment(cFile)
ENDIF
WITH loMsg 
.Configuration = loConfig
.From = mail_from 
.To = mail_to 
.Subject = ALLTRIM(&wjmc151 .name)+'&ylj'+'工资单' &&主题
.htmlBody = FILETOSTR('&cFile1')  &&正文   '&cFile1'是一个.rtf格式的文件,发给别人后,这个正文就全是乱码
.Send()
Endwith
Catch TO loError 



2、我需要以IMAP--SSL方式来收邮件,我在网上找了半天也没有找到相关的内容,请各位大神帮忙推荐一些这方面的内容和思路,谢谢!我已经脑袋都想破了,也无从下手!!
--参考方法--
关于收邮件,你可以用木瓜的MyFll.fll中的Pop3GetMail()函数等或
用VFP 5.0的MAPI控件收发邮件。 

  1. 插入MAPI控件的方法: 
  在VFP 5.0主菜单的“工具”项中选择“选项”,在弹出的控件栏中,双击“Microsoft MAPI Control 5.0”项,那么,在窗体工具箱中就有了上述控件。 

  2.建立含有如下控件的窗体: 
控件 NAME CAPTION 
窗体 frmMail 用VFP 5.0的MAPI控件收发邮件 
MAPISession控件 MailSess 
MAPIMessage控件 MailMess 
命令按钮 command1 发件箱 
命令按钮 command2 收件箱 
命令按钮 command3 退出 


输入“发件箱”按钮单击事件的程序代码: 

thisform.MailSess.SignOn 
thisform.MailMess.SessionID = thisform.MailSess.SessionID 
thisform.MailMess.MsgIndex = -1 
thisform.MailMess.RecipDisplayName = "zjport@public.jsinfo.com.cn" 
thisform.MailMess.MsgSubject = "信件" 
thisform.MailMess.MsgNoteText = "请给我发邮件!" 
thisform.MailMess.Send (.F.) 
thisform.MailSess.SignOff 


输入“收件箱”按钮单击事件的程序代码: 

thisform.MailSess.SignOn 
thisform.MailMess.SessionID = thisform.MailSess.SessionID 
thisform.MailMess.FetchSorted = .T. 
thisform.MailMess.FetchUnreadOnly = .T. 
thisform.MailMess.Action = 1 
xx='' 
for mm=0 to thisform.MailMess.MsgCount-1 
thisform.MailMess.MsgIndex = mm 
xx=xx+thisform.MailMess.MsgNoteText+chr(13)+chr(10) 
endf 
thisform.MailSess.SignOff 


输入“退出”按钮的程序代码: 

thisform.MailSess.SignOff 
release thisform 
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:27:18
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/9984/
本文WWW.DOC100.NET DOC100.NET版权所有。