我的电子邮件代码有什么问题？

Question

这是我的代码：

Public Class form1

Sub SendMail()
    Dim iMsg As Object
    Dim iConf As Object
    Dim Flds As Object
    iMsg = CreateObject("CDO.Message")
    iConf = CreateObject("CDO.Configuration")
    iConf.Load(-1) ' CDO Source Defaults
    Flds = iConf.Fields
    With Flds
        .Item("http://schemas.Microsoft.Com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.Microsoft.Com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.Microsoft.Com/cdo/configuration/sendusername") = "myemail@gmail.com"
        .Item("http://schemas.Microsoft.Com/cdo/configuration/sendpassword") = "mypassword"
        .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/smtpserverport") = 25
        .Update()
    End With

    With iMsg
        .Configuration = iConf
        .To = "obroomhall@gmail.com"
        .From = "obroomhall@gmail.com"
        .Subject = "subject"
        .TextBody = "test"
        .Send()
    End With

End Sub

End Class

显然我将 myemail 和 mypassword 更改为我需要的，但这不会返回错误代码，也不会发送电子邮件！我做错了什么？

Answer 1

smtp.gmail.com 使用端口 465 进行 SSL 连接。