メールの送信について

現在、VBAを学習中なのですがメールの送信がどうしてもできません。
以下にコードを記述しますので、間違えている点などありましたら、ご指摘ください。
よろしくお願いいたします。

Imports System.Net.Mail

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mailMessage As New System.Net.Mail.MailMessage("[e-mail]", "[e-mail]", "Subject", "Body")

Dim smtpClient As New System.Net.Mail.SmtpClient("smtp.gmail.com")

smtpClient.Credentials = New System.Net.NetworkCredential("[e-mail]", "pass")

smtpClient.EnableSsl = False

smtpClient.Port = 587

Try
' 送信する
smtpClient.Send(mailMessage)
MessageBox.Show("送信しました")
Catch ex As SmtpException
' SMTPサーバーへの接続に失敗した場合
MessageBox.Show(ex.Message)
End Try
End Sub
End Class

No.1 ベストアンサー 回答者： himajin100000 回答日時： 2010/03/29 13:18

smtpClient.EnableSsl = True

でもダメ？

#っていうかTrueにしたら自分のアカウントでは自分のアドレスから自分のアドレスへはちゃんと送信出来たけど。

この回答への補足

TrueでもFalseでもなりませんでした。
もしかしたら、gmailの方で何か設定などしなければならないのでしょうか？
ご存知でしたらご教示ください。
おねがいします。

補足日時：2010/03/29 17:29