mail没有name这个属性,是sendername.
过程名称与对象名称不能一致,过程名可改为mailtest
另外,sender方法中的pop3,应该改为smtp
Sub MailTest()
Set mail = CreateObject("WWSCommon.SmtpMail")
with mail
.SenderName = "中证期货南京客服中心"
.SenderAddress = "jason333@sina.com"
.Subject = "期货日报(长线)——终盘"
.Mailer = "(股指、商品)期货开户、行情咨询 QQ:80779898 电话:025-83282426"
end with
call mail.AddReceiver("test","253675026@qq.com")
call mail.AddTextContent("详细请见附件EXCEL")
'call mail.AppOctStrmContent("D:\mxrb\"&Date&".xls")
call mail.Sender("smtp.sina.com","jason333@sina.com","******")
End Sub
以上代码,本人经过测试,可以正常发送邮件,也能正常收到邮件。
[此贴子已经被作者于2012-7-22 12:30:20编辑过]