主题：阿里云邮箱

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

 

前几天想设置一个从自己的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()

 

 

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

谢谢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()

好像这个错误被记忆了，自从出了这个报错后，再发送其他行也报同样的错误。

 

请问能提供远程在线帮助吗？ 因为是在真实数据库上边做边用，如果上传实列还需要重定向数据库等。

谢谢bin和小余的帮助，果然是运行中代码带来的空格岛的鬼。11楼的方法正是对症下药。

 

感受到了Foxtable论坛的支持服务体验，也第一次享受到了Foxtable给工作带来的乐趣，一下发送了数百封邮件。分享个截屏给大家吧。

 

另外再请教一个问题：下面这句错在哪里？报错：没有可访问的fill接受此数目的参数，因此重载决策失败。

Dim tel As String
tel = Tables("邮件平台_Table2").Current("电子邮箱")
Tables("邮件平台_Table1").Fill("Select * From {邮件列队} where [发送日期] Is Not null And [电子邮箱] = '"&Tel&"'" ,"qiyundata",True)

 

 

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

表类型选择的是sqltable, 原来拼接代码中有空格的，刚才在找问题时，删除了。谢谢！

将表更换为sqlquerry后，运行正常了。

再请教一个符号：通过executescalar从SQL获取的日期与Date.Today.AddDays(-9)通过定义变量后的比较，是否应该用#，想确认一下，还是用单引号？

下面代码中最后一句红色的对吗？

 

 

            Dim ld As Date
            Dim dzyx As String
            dzyx = Tables("邮件平台_Table2").Current("电子邮箱")
            Dim cmd As New SQLCommand
            cmd.C
            cmd.CommandText = "Select Max(发送日期) From {邮件列队} Where [电子邮箱] =  '" & dzyx & "'"
            ld = cmd.ExecuteScalar()
            Dim dt1 As  Date = Date.Today.AddDays(-9) ' 10天前
            messagebox.show(dt1 & ld & "test")
            If "#" & ld & "#" < "#" & dt1 & "#" Then '10天内无发送,避免同一邮箱过度营销,同时通过限制避免错误的重复发送