Visual basic 6 ile mail gönderme

Visual basic 6 ile mail gönderme nasıl oluyor bugün onu göreceğiz.
Mail gönderemeyenler buraya ekstra ocx, dll vs... gerektirmez. Zaten windows' un her sisteminde bulunan cdosys.dll 'i kullanır.
Formumuza 1 adet commandButton ekleyin adı Gonder olsun ve aşağıdaki bilgileri kendize göre doldurmayı unutmayın...

Private Sub Gonder_Click()
On Error Resume Next

   Dim MailObj As New CDO.Message
    MailObj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    MailObj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    MailObj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    MailObj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    MailObj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    MailObj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    MailObj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "kullanıcıadı@gmail.com"
    MailObj.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "şifre"
    MailObj.Configuration.Fields.Update
    MailObj.From = "kullanıcıadı@gmail.com"
    MailObj.To = "kime gidecek"
    MailObj.Subject = "konu"
    MailObj.TextBody = "mesaj"
    MailObj.Send
    Set MailObj = Nothing
End Sub

Bu kadar basit.Sizde deneyin çalıştığını göreceksiniz.Şimdilik bu kadar...