在本机上调测了一个服务器端定时发送邮件的程序。可以正常的发送邮件。

把该程序Copy到阿里云服务器上后，测试运行出现如下错误。在服务器ping 错误提示的IP地址是通的。

此主题相关图片如下：qq截图20181030070355.png

下面是发送邮件的程序，在调测机器上发送邮件是正常的。可是在云服务器上就不正常了！ 怎么查？谢谢

Dim m As New MailSender
m.Host =xxxxxx

m.Account = nnnnnn   \'指定登录邮件服务器的帐号
m.Password = ******   \'登录邮件服务器的密码
m.from = nnnnnn

m.To =“xx·qq。com”
m.Title =  Date.Today &   "量具设备检测提示"
m.C &  " (先生/女士):"
m.Send

阿里云自带屏蔽25端口，询问一下对方客服是否可以申请开通。

如果不能开通，请用别的端口发送邮件，比如 587

Dim client As New System.Net.Mail.SmtpClient("smtp.qq.com", 587) \'或者465
client.EnableSsl = True \'SSL

client.Credentials = New System.Net.NetworkCredential("455189993@qq.com", "helen6849338.")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage()

message.From = new System.Net.Mail.MailAddress("455189993@qq.com","别名")

\'message.To.Add(new System.Net.Mail.MailAddress("2450314695@qq.com","人名"))
message.To.Add("2450314695@qq.com")
message.Subject = "邮件测试"
message.BodyEncoding = System.Text.Encoding.UTF8

Dim content As String

content &= "这是文字" & vbcrlf
content &= "也是文字"

message.Body = content

Try
    client.Send(message)
    msgbox("发送成功")
Catch ex As Exception
    msgbox("发送失败:" & ex.message)
End Try

或者这样也行

Dim m As New MailSender
m.port = "587"
m.EnableSsl = True
m.Host = "smtp.qq.com"
m.Account = "455189993@qq.com"
m.Password = "helen6849338."
m.From = "455189993@qq.com"
m.To = "765427475@qq.com"
m.Title = "初jkj完成"
m.Content = "附件jkjkj为初稿, 请您审阅!"
\'m.AddAttachments("d:\\test.xls")  
\'m.AddAttachments("d:\\11.xls")   \'\'如何添加多个附件. 这样只看到最后一个附件而于
m.Send
msgbox(123)

1  阿里云自带屏蔽25端口，询问一下对方客服是否可以申请开通   是不是在后台开放阿里云服务器安全组 25端口?

2 采用3楼方法和邮件服务器默认端口无关吧？