用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

耶罗

当成对象，直接拿来引用就行了 :-)

会飞的鱼

我到现在也没有弄清楚PAINET.MAILM是个什么东西，好象是一个对象吧。不过我现在换用了另外一个对象CDO.Message之后乱码问题居然解决了。

耶罗

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