1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

[Visual Basic2008] Enviar email SMTP (Gmail)

Discussão em 'Programação' iniciada por ThePirate, 11 de Janeiro de 2009. (Respostas: 5; Visualizações: 1110)

  1. ThePirate

    ThePirate What is folding?

    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:
    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:
    Código:
            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:
    [​IMG]




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

    AliFromCairo Power Member

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

    Código:
    smtpServer.Send([B]mail[/B])
    
     
  3. S0ul

    S0ul Power Member

    Ya é mesmo esse o problema :/!
     
  4. AliFromCairo

    AliFromCairo Power Member

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

    jpaulino Power Member

    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
     
  6. Ruben_Barbosa

    Ruben_Barbosa Power Member

Partilhar esta Página