私の電子メールコードには何が間違っていますか？

Question

これは私のコードです：もちろん、私は私がするそれらを必要とするものにmyemailとmypasswordをを変更するが、これは何のエラーコードを返すことも、それが電子メールを送信しない

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 

！私は間違って何をしていますか？

Answer 1

smtp.gmail.comはSSL接続にポート465を使用します。