pb 中直接发出E-MAIL的问题

[xue_feng]

每天系统作业完后都需要将数据（文本文件）作为附件发送到客户的邮箱内，请问如何让他自动发出。
急！！！！！

[yling]

我这里实现了，有个写好的函数

[yling]

oicq:206051

[abcn]

http://www.pcbyte.net/book/cui/u5.htm

[llitcwl]

mailsession mses
mailmessage mmsg
mailreturncode mreturn//产生邮件会话对象mses
mses = create mailsession
//邮件登录
mreturn = mses.maillogon(mailnewsession!)
if mreturn <> mailreturnsuccess! then
messagebox("邮件登录","邮件登录失败!")
return
end if
//弹出邮件地址窗口,获取邮件接收者的地址。地址及名字是放在mmsg中的一 个结构数组
mreturn = mses.mailaddress(mmsg)
if mreturn <> mailreturnsuccess! then
messagebox("邮件地址","邮件地址出错!")
return
end if
//把内容放到mmsg的notetext字段中
mmsg.notetext = 'sadfadsfsadfdsafadsf'//发送邮件，把文件中读出放入
mreturn = mses.mailsend(mmsg)
if mreturn <> mailreturnsuccess! then
messagebox("邮件发送","邮件发送失败!")
return
else
messagebox("邮件发送","邮件发送成功!")
end if
//退出登录
mses.maillogoff()//取消邮件会话
destroy mses

[xue_feng]

to yling:
能发给我吗？ 谢谢
[e-mail]

[xf_xuefeng]

我是指通过附件直接发出去

[xue_feng]

to yling:
能发给我吗？ 谢谢
[e-mail]