Что не так с моим кодом электронной почты?

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.