有谁设置过阿里云邮箱么，一直出现报错，

前几天想设置一个从自己的sjtu邮箱没能成功，今天该阿里云的也不成功，求帮助。

Dim m As New MailSender
m.Host = "smtp.aliyun.com"
m.Account = "george.liao"
m.Password = "Welcome1234"
m.From = george.liao@aliyun.com
m.AddReceiver("george.liao@yahoo.cn")
m.Title = "邮件发送测试"
m.C
m.Send()

谢谢bin大师的指点。

周末都有回复，感动啊！

发送成功了，其中一个邮箱已经收到了。我再添加几个邮箱试试。

用FoxTable从阿里云邮箱发送了几个邮件，发送给雅虎和阿里云邮箱的都能收到，但发送给企业邮箱的2封都没成功发送。

问题: 通过正常方式从阿里云邮箱编辑邮件并发送到企业邮箱，可以成功发送，但通过foxtable不能发送，似乎是企业邮箱对这种发送方式做了屏蔽，请问是否有办法绕过？

Delivery has failed to these recipients or groups:

juliazhang@nxp.com<mailto:juliazhang@nxp.com>
A problem occurred during the delivery of this message. Please try to resend the message later.

The following organization rejected your message: mail95-db9.bigfish.com.

如下图，在发送邮件时出现指定字符串与电子邮件要求格式不符？但我检测了邮箱地址格式是对的。

而且已经发送了一部分后，突然跳出这个错误。

此主题相关图片如下：捕获.png

没有做任何限制设置，是发送到wxirairhjh_821@163.com 这一行是报错的，前面也测试过带下横线_的邮箱。

代码如下，是不是M.TO这句需要加引号？还是字符串不串string不能含下划线？ 因为是自己一边开发一边使用，直接连接的是真实数据，邮箱地址应该是对的。

Dim dzyx As String
       dzyx = Tables("邮件平台_Table2").Current("电子邮箱")
         Dim m As New MailSender
                m.Host = "smtp.aliyun.com"
                m.Account = "george.liao@aliyun.com"
                m.Password = "1234"
                m.From = "george.liao@aliyun.com"
                m.To = dzyx
                m.Title = TtBoxt
                m.Content = MailBoxt
              
                m.SendAsync()