主题：邮箱

邮箱的问题吧？你可以尝试填这个账号，看是否能发

 

Dim m As New MailSender
m.Host = "smtp.126.com"
m.Account = "lin_hailun@126.com"
m.Password = "6849338."
m.From = "lin_hailun@126.com"
m.To = "Spring.me@qq.com,Spring.me123@qq.com"
m.Title = "主题"
m.Send
msgbox("发送完毕")

 测试15楼的账号，可以发送啊。

 回复17楼，不是叫你改代码啊，代码没有问题，是你的邮箱有问题的，换15楼的账号测试

 我用上面的邮箱测试，项目的代码，没有报错，你测试报什么错？

 你的账号不行，就是你的那个邮箱不支持，请使用正规一点的邮箱，比如126,163,sina,qq等的。

 可以发就没问题啊，你请认真测试可好？

 发送地址要改成登陆账号。

 

 或者改代码

 

    Dim Parts() As String = Vars("YN2").Split(",")
    m.Host = Parts(1)
    m.Port = Parts(2)
    m.Account = Parts(3)
    m.Password = Parts(4)
    m.From = Parts(4)

 发送之前，你是不是应该先选择发送人邮箱信息啊，你根本就没有这个步骤啊。

 

 你这个东西哪里抄过来的？

 发送前运行类似代码

 

Vars("YN2") = Functions.Execute("MailStr", "用户名","MailList.Txt")

 看楼上