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
este é o código que tenho no botão "enviar"
a linha que me está a dar erro é:
obrigado pela atenção
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!")
a linha que me está a dar erro é:
Código:
SmtpServer.Send(mail)
Última edição: