主题：[求助] 调测发送邮件正常，在服务器上就不正常？

阿里云自带屏蔽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)