使用CDO发送电子邮件不再有效

Question

自上周以来，我无法再通过gmail的smtp服务器发送电子邮件。我收到了错误＆＃34; -2147220973传输无法连接到服务器＆＃34;每当我尝试发送电子邮件。但是，如果我尝试使用我的另一个网络（例如我的移动宽带），它可以工作。 以下是我发送电子邮件的代码。

    Set cdomsg = CreateObject("CDO.Message")
    Set cdoconf = CreateObject("CDO.Configuration")
    cdoconf.Load -1 ' CDO Source Defaults
    Set cdoFields = cdoconf.Fields

    With cdoFields
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "example@gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "abc"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 465
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")  = 60
        .Update
    End With

可能出现的问题是什么？谢谢。