VB gửi mail

Private Sub Form_Click()
    Dim iMsg, iConf, Flds
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields
    ' send one copy with Google SMTP server (with autentication)
    schema = "http://schemas.microsoft.com/cdo/configuration/"
    Flds.Item(schema & "sendusing") = 2
    Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
    Flds.Item(schema & "smtpserverport") = 465 'hay 587
    Flds.Item(schema & "smtpauthenticate") = 1
    Flds.Item(schema & "sendusername") = "user@gmail.com" '<- gõ Ðia chi Gmail cua ban
    Flds.Item(schema & "sendpassword") = "123456" '<- gõ mât khâu truy nhâp cua ban
    Flds.Item(schema & "smtpusessl") = 1
    Flds.Update
   
    With iMsg
    .To = "nguoinhan@yahoo.com" ' <- Go'i Ðên ai?
    .From = "abc <user>"
    .Subject = "Thu Nghiem ne!"
    .HTMLBody = "message" 'noi dung
    '.Textbody = "Code chay êm trên XP - SP3." 'nôi dung
    .Sender = "abc" ' Thay Ðôi tùy ý
    .Organization = "abc" ' Thay Ðôi tùy ý
    .ReplyTo = "user@gmail.com" ' Thay Ðôi tùy ý
    Set .Configuration = iConf
    SendEmailGmail = .Send
    End With
    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing
End Sub