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

VB

Discussão em 'Programação' iniciada por brunocosta505, 8 de Abril de 2009. (Respostas: 2; Visualizações: 619)

  1. brunocosta505

    brunocosta505 Power Member

    boas..

    tenho estado a desenvolver um projecto neste últimos dias, sei pouco sobre VB, tive a ver uns tutorias de como enviar um e-mail, vou mostrar o que tenho e onde me está a aparecer um erro, se alguém me pudesse corrigir agradecia desde já.

    objectos:
    Form1
    -> 2 textbox's
    -> 3 labels
    -> 1 listbox
    -> 1 button

    objectivos:
    as labels só servem para indicar o campo a escrever
    nas textbox's peço o nome e o apelido do usário
    na listbox é para escolher o seu género
    botao é para enviar os dados para um e-mail predefinido

    Código:
    Dim SmtpServer As New SmtpClient
            Dim mail As New MailMessage()
    
            SmtpServer.Credentials = New Net.NetworkCredential("nome", "apelido")
            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 = "Informação"
            mail.Body = TextBox_nome.Text + TextBox_apelido.Text + ListBox_género.SelectedItem
            SmtpServer.Send(mail)
            MsgBox("E-mail Enviado!")
    este é o código que tenho no botão "enviar"

    a linha que me está a dar erro é:
    Código:
    SmtpServer.Send(mail)
    obrigado pela atenção :cool:
     
    Última edição: 8 de Abril de 2009
  2. dhacker

    dhacker Power Member

    Boas Bruno

    Acima de "Public class form 1" tens isto "Imports System.Net.Mail" ?

    Depois vê como está o meu.

    Código:
    < Dim mail As New System.Net.Mail.MailMessage()
    mail.From = New MailAddress("[email protected]")
    mail.To.Add(textbox1.Text)
    mail.Subject = (TextBox3.Text)
    mail.Body = (TextBox2.Text)
     
    Dim smtp As New SmtpClient("smtp.gmail.com")
     
    smtp.Credentials = New Net.NetworkCredential("logindomail", "passworddomail")
    smtp.EnableSsl = True
    smtp.Port = 587
    smtp.Send(mail)
    MsgBox("Enviado com sucesso") >
    
    qualquer coisa posta ai.
    dhacker
     
    Última edição pelo moderador: 8 de Abril de 2009
  3. brunocosta505

    brunocosta505 Power Member

    boas..
    sim por acaso já tinha posto "Imports System.Net.Mail" antes do Public Class Form1

    meti todo o meu código em comentário e pus o teu a correr, mudei os nomes das textbox no código para o correcto mas mesmo assim dá-me um erro na linha:

    Código:
    mail.To.Add(TextBox_nome.Text)
    o que está mal aqui? :S

    EDIT:

    agora até fiz mais simples, fiz um programa com 3 labels, 3 textbox e 1 button..

    a primeira label pede o subject, a segunda pede o body, e o terceiro o mail do usuario.. e tenho assim o teu código:

    Código:
    Private Sub Button_enviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_enviar.Click
            Dim mail As New System.Net.Mail.MailMessage()
            mail.From = New MailAddress("[email protected]")
            mail.To.Add(TextBox_email.Text)
            mail.Subject = (TextBox_subject.Text)
            mail.Body = (TextBox_body.Text)
    
            Dim smtp As New SmtpClient("smtp.gmail.com")
    
            smtp.Credentials = New Net.NetworkCredential("logindomail", "passworddomail")
            smtp.EnableSsl = True
            smtp.Port = 587
            smtp.Send(mail)
            MsgBox("Enviado com sucesso")
        End Sub
    ao executar e enviar a informação dame erro aqui:

    Código:
    smtp.Send(mail)
    assim tanbem é mais simples de perceber que campo fica no que..

    obrigado pela atenção
     
    Última edição: 8 de Abril de 2009

Partilhar esta Página