主题：求助，邮件发送功能失效了

最近刚搬办公室，改了ip，这些应该跟邮件发送功能没有影响呀。现在执行发送邮件功能时，没有提示错误，登录邮箱发件箱也没发件记录，对方也收不到邮件。请专家帮忙诊断一下。

代码，发邮件的代码呢？

Dim m As New MailSender
m.Host = "smtp.139.com"
m.Account = "13823173196"
m.Password = "*****"
m.From = "13823173916@139.com"
m.To = "13823173116@139.com"
m.Title = "李总明天来北京"
m.C
m.SendAsync()

应改不是代码的问题，我用指南里的代码测试也发不了。在没搬家，改ip之前是一直可以用的。

这个跟ip应该没有关系。是不是端口被封了