VB

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:
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("teuemail@mail")
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:
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:
Back
Topo