Jump to content
Diogo Andre Silva

Enviar dados de form para email

Recommended Posts

Diogo Andre Silva

Olá boa noite é o seguinte. eu tenho um software que faz pedidos de ajuda. Ou seja eu queria que as pessoas inserissem vários dados numas textbox e quando clicassem no botão ok ele enviasse esses dados para o meu email isso é possivel?

Eu utilizo o vb 2010

Share this post


Link to post
Share on other sites
nelsonr

Boas,

podes utilizar algo como:

Imports System.Net.Mail
' ...

Dim Mail As New MailMessage
Mail.From = New MailAddress("endereço origem")
Mail.To.Add("endereço destino")
Mail.Subject = "Assunto"
Mail.Body = "mensagem"
'
Dim SMTP As New SmtpClient("servidorsmtp")
SMTP.Send(Mail)

Share this post


Link to post
Share on other sites
Diogo Andre Silva

Poderia me explicar o que altero ai? sou um pouco leigo no que toca aos envios da proramação

o email que iria usar era bancodedados@sapo.pt. Alem disso quando coloco isso dentro do botão dá muitos erros

Edited by Diogo Andre Silva

Share this post


Link to post
Share on other sites
nelsonr

Aquilo é só um exemplo.

Não sei se copiaste o codigo todo para dentro do evento, mas tens de ter em atenção que a primeira linha (imports) tem de estar no topo do ficheiro.

Depois tens de substituir as strings:

"endereço origem" - Endereço de email de origem (de onde é enviando o email), por exemplo "bancodedados@sapo.pt"

"endereço destino" - Endereço de email destino (para onde vai o email)

"Assunto" - Texto a mostrar no assunto da mensagem

"mensagem" - Corpo da mensagem

"servidorsmtp" - Endereço do servidor que vai enviar o email (se não souberes, tenta informar-te com o teu ISP qual é que podes usar), no sapo deve ser "smtp.sapo.pt"

Estes são os mais simples.

Depois se por acaso precisares de autenticar o email (alguns servidores SMTP requerem de autenticação),

SMTP.UseDefaultCredentials = False

SMTP.Credentials = New Net.NetworkCredential("utilizadorautenticação", "password")

--

Se puderem, movam este tópico para VB.NET sff

Edited by nelsonr

Share this post


Link to post
Share on other sites
Diogo Andre Silva

Dá erro quando coloco o email de origem diz algo que tem haver com new

Share this post


Link to post
Share on other sites
NunoDinis

Dá erro quando coloco o email de origem diz algo que tem haver com new

Posta o erro todo sff, e se possível onde ocorre...


Estranha forma de vida que tem a capacidade de transformar comandos em mensagens de erro.

ndsotware.org

Share this post


Link to post
Share on other sites
cdaniel.marques

Tens a variável "Mail" declarada em mais algum lugar no código?

Share this post


Link to post
Share on other sites
nelsonr

Então usa outro nome na variável

Dim mailMessage As New MailMessage
mailMessage.From = New MailAddress("endereço origem")
mailMessage.To.Add("endereço destino")
mailMessage.Subject = "Assunto"
mailMessage.Body = "mensagem"
'
Dim SMTP As New SmtpClient("servidorsmtp")
SMTP.Send(mailMessage)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.