用发送邮件,出现错误.(急,在线等待)
mailReturnCode mRet
if len(sle_1.text)<1 or pos(sle_1.text,"@")=0 or pos(sle_1.text,".")=0 then
messagebox("提示","请输入正确的邮件地址格式“xx@xxx.xxx”!")
setfocus(sle_1)
return
end if
if sle_2.text="" then
messagebox("提示","请输入邮件主题!")
return
end if
if mle_1.text="" then
messagebox("提示","请输入邮件内容!")
return
end if
msg.Subject=sle_2.Text //邮件主题
msg.NoteText=mle_1.Text //消息体
msg.Recipient[1].RecipientType=mailTo!
//指定收件人类型为mailTo!
msg.Recipient[1].Address='SMTP:' + sle_1.Text
//收件人地址,前面必须加上SMTP协议
For i=1 To plb_1.TotalItems()
//把选中的文件加到附件中
msg.AttachmentFile[i].FileType=mailAttach! //指定附件i的类型
msg.AttachmentFile[i].PathName=plb_1.text(i) //附件i的完整文件名
Next
mret=MyMail.mailSend(msg) //发送邮件
IF mRet <> mailReturnSuccess! THEN
MessageBox("提示", "发送失败!")
RETURN
END IF
end if
MyMail.mailLogoff()
DESTROY MyMail
在执行到mret=MyMail.mailSend(msg) //发送邮件时候,系统报错:"msg为空",但是我在检查msg各项时,返回的都不是空值.