51Testing软件测试论坛

标题: 用VB写的一段发送邮件的程序 [打印本页]

作者: 会飞的鱼 时间: 2006-5-19 14:29
标题: 用VB写的一段发送邮件的程序
下面是一段用VB写的一段发送邮件的程序,但是在接受邮件时,会出现乱码,为什么,另外问一下,"PAINET.MAILM"是个歌什么东东,请高手指教,谢谢!

Dim mailmsg

Set mailmsg = CreateObject("PAINET.MAILMSG")

if Err.Number <> 0 then

Msg = "Error creating email object. Your transaction
has completed without any problems." & vbCrLf & _

"Error Description = " & Err.Description

MsgBox Msg, , "Email Error"

Exit Sub

end if

作者: 耶罗 时间: 2006-5-19 16:18
没玩过这个, 个人猜测: PAINET.MAILM是一个ole对象.
"接受邮件时,会出现乱码",发邮件的内容是双字节的,还是单字节的 ? 如果邮件内容是双字节的,受到后出现乱码,应当是这个ole对象的问题, 找个中文版的VB试试.

作者: 会飞的鱼 时间: 2006-5-31 15:13
我到现在也没有弄清楚PAINET.MAILM是个什么东西，好象是一个对象吧。不过我现在换用了另外一个对象CDO.Message之后乱码问题居然解决了。

作者: 耶罗 时间: 2006-5-31 20:16
当成对象，直接拿来引用就行了 :-)

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)