如何用PB发邮件，并且带上附件？

[bluebearboy]

如何用PB发邮件，并且带上附件？

[killerdanny]

在CSDN中搜索邮件，答案多多呀！

[bluebearboy]

不好意思，我找过了，但有很多的文章都打不开。

[钟伟海]

建立邮件联系：
mailsession mses
//定义对象mses,以供在程序中引用
mailmessage mmsg
//定义结构mmsg,此结构用于描述邮件的内容
mailrecipient mrec
//定义结构mrec,它标识邮件的接收者和发送者
mailreturncode mreturn
//定义返回码,用于存放函数的返回值
int mnbr
//定义临时变量
//产生邮件会话对象mses
mses = create mailsession
//邮件登录。此处用户名,口令缺省
mreturn = mses.maillogon('','',mailNewSessionWithDownLoad!)
mses.mailGetMessages()
if mreturn <> mailreturnsuccess! Then
messagebox("邮件登录","邮件登录失败!")
return
end if

mreturn = mses.mailgetmessages(true)
if mreturn <> mailreturnsuccess! then
messagebox("邮件获取","邮件获取失败或无新邮件!")
return
end if
//获得接收到尚未读过的邮件数目
mnbr = upperbound(mses.messageid[])
//读取最后接收到的邮件内容。
//它被放在mmsg的notetext的字符串字段中
mses.mailreadmessage(mses.messageid[mnbr],mmsg,mailentiremessage!,true)
//把获得的邮件内容放到窗口w_mai1上的多行编辑器mle_1中
w_sg_mail.tab_1.tabpage_1.mle_1.text=mmsg.notetext
//退出登录
mses.maillogoff()
//取消邮件会话
destroy mses

//增加附件
String docName, Named
Integer Value
Value = GetFileOpenName("选择附件", docName, Named,"DOC","All Files(*.*),*.*")
if value = 1 Then
tab_1.tabpage_1.plb_1.AddItem(docName,1)
end if

[yuge1002]

有没有现成的程序呀！最好能给我提供[e-mail]