[Visual Basic2008] Enviar email SMTP (Gmail)

[ThePirate]

Boas Noites, estive a seguir um tutorial no youtube (http://www.youtube.com/watch?v=2oH6LVLuN24).
Após seguir o tutorial acabei com o seguinte código:

Imports System.Net.Mail
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.SelectedIndex = 0
        ComboBox2.SelectedIndex = 0
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim smtpServer As New SmtpClient()
        Dim mail As New Message()
        smtpServer.Credentials = New Net.NetworkCredential("[email protected]", "password")
        'Using Gmail
        smtpServer.Port = 587
        smtpServer.Host = ("smtp.gmail.com")
        smtpServer.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress("[email protected]")
        mail.To.Add("[email protected]")
        mail.Subject = TextBox2
        mail.Body = TextBox3
        smtpServer.Send()
        MsgBox("Mail Enviado!");
    End Sub
End Class

O problema é que a partir de:

        mail = New MailMessage()
        mail.From = New MailAddress("[email protected]")
        mail.To.Add("[email protected]")
        mail.Subject = TextBox2
        mail.Body = TextBox3
        smtpServer.Send()

Começa a dar-me os seguintes erros:

O que posso fazer?
Falta-me declarar alguma coisa, ou será a nivel de includes?
Obrigado

 

[AliFromCairo]

Assim de repente, eu diria que te falta passares o mail como argumento do método Send.

smtpServer.Send([B]mail[/B])

 

[S0ul]

Assim de repente, eu diria que te falta passares o mail como argumento do método Send.

smtpServer.Send([B]mail[/B])

Ya é mesmo esse o problema :/!

 

[AliFromCairo]

Hmm, e agora que aparece a imagem, falta-te também alterar o tipo da variável de Message para MailMessage.

 

[jpaulino]

Falta também definir o que queres das TextBox's, que neste caso é a propriedade Text.

mail.Subject = TextBox2.Text
mail.Body = TextBox3.Text


Podes tambémeste procedimento que uso para o envio de emails: SendMessage
http://www.portugal-a-programar.org/forum/index.php/topic,28547.msg220564.html#msg220564

 

[Ruben_Barbosa]

Amigo eu já postei aqui como enviar um email espero que te ajude

http://forum.zwame.pt/showthread.php?t=380833