Enviar e-mail de um aplicativo do Windows
Postado por Eliseu em exemplos e tutoriais on 02 16th, 2009 | 50 respostas
Para enviar e-mail de nosso aplicativo do Windows em visual basic. net System.Net.Mail.MailMessage usar a classe.
Para o exemplo a seguir vamos criar um formulário (Form1), uma caixa de texto para digitar a mensagem (TextBox1) e um botão (Button1) para enviar o texto para enviar o e-mail.
Dim System.Net.Mail.MailMessage mymail miCorreo.IsBodyHtml = False miCorreo.From = "info@solovb.net" mail ", onde você envia correo.To.Add ("usuario@hotmail.com") 'Destinatário de Correio correo.Subject = "mensagem de teste de aplicação de janelas [solovb.net]" Case ' Corpo miCorreo.Body = TextBox1.Text 'Mensagem Prioridade miCorreo.Priority = System.Net.Mail.MailPriority.Normal ' Smtp Dim System.Net.Mail.SmtpClient smtp.Host = "smtp.solovb.net" "Eu passar as credenciais para a conta e senha da qual você enviou smtp.Credentials System.Net.NetworkCredential = Novo ("info@solovb.net" "clave123456")) Tentar smtp.Send (mymail) MsgBox ("Mensagem enviada". MsgBoxStyle.OKOnly ", solovb.net") Catch ex As Exception MsgBox ("Erro:" "! Erro" & ex.Message, MsgBoxStyle.OKOnly) End Try
O fato de que você pode adicionar funcionalidades muito a este exemplo como caixas de texto para as configurações de remetente, o destinatário e SMTP.
Mas, para um exemplo (como eu gosto), o mais simples, melhor você começar ... haverá tempo para complicá-la, haha.
Se IsBodyHtml propriedade como True, nós enchemos o corpo com código HTML para que nossa mensagem tem uma aparência melhor.
Se você serviu, deixe um comentário.
50 Responses to "Enviar e-mail de um aplicativo do Windows"
Comentar
Informações Bitacoras.com ...
Se desejar, você pode clicar para avaliar este Bitacoras.com post. Graças ....
Boa.
Uma pergunta, na seguinte linha:
miCorreo.From = "josem.flores @ sfb.es" mail ", onde você envia
Ele indica que um valor de "String" tipo não pode ser convertido em 'System.Net.Mail.MailAdress'
Vamos ver se posso ajudar por favor. Desde que eu mudei, mas não posso corrigir esse erro.
Uma saudação e agradecimento
você pode usar a seguinte linha para evitar erro
Nova System.Net.Mail.MailAddress miCorreo.From = ("@ josem.flores sfb.es")
Eliseu
Muito obrigado.
Mas eu tenho um problema, eu colar meu código e dizer-lhe o problema:
Dim System.Net.Mail.MailMessage _message ()
Dim System.Net.Mail.SmtpClient _SMTP
"STMP SETTINGS
= Novos _SMTP.Credentials System.Net.NetworkCredential ("conta de email", "password")
_SMTP.Host = "Smtp.gmail.com"
_SMTP.Port = 465
_SMTP.EnableSsl = True
"Mensagem de configuração
_message. [Para]. Add ("conta de email") 'conta de email para o qual deseja enviar o e-mail
_Message.From = New System.Net.Mail.MailAddress ("conta de email", "nome", System.Text.Encoding.UTF8) 'O remetente
_Message.Subject = "Teste" Assunto "do e-mail
_Message.SubjectEncoding = System.Text.Encoding.UTF8 'Codificação
_Message.Body = "Este é um teste" conteúdo "do e-mail
_Message.BodyEncoding = System.Text.Encoding.UTF8
"_Message.Priority = System.Net.Mail.MailPriority.Normal
_Message.IsBodyHtml = False
'Adicionando anexos
"_file Dim String = My.Application.Info.DirectoryPath &" arquivo "" arquivo que você deseja anexar
'Dim _Attachment System.Net.Mail.Attachment Novo (_file, System.Net.Mime.MediaTypeNames.Application.Octet)
"_Message.Attachments.Add (_Attachment)
"TRANSPORTE
Tentar
_SMTP.Send (_message)
Catch ex As System.Net.Mail.SmtpException
'MessageBox.Show (ex.ToString)
End Try
Este código é ok.
Agora, quando eu enviar e-mails que eu recebo o seguinte erro:
Ele superou o tempo de espera de aplicação.
Fazendo um telnet smtp.gmail.com 465 conectar perfeitamente, mas ele não envia o e ...
Eu apreciaria se você pode limpar você para me dar uma solução porque eu não posso obtê-lo ...
Uma saudação e muito obrigado antecipadamente.
O código é bom, na verdade eu usá-lo em apliaciones e em execução. Aparentemente, o problema é com algumas configurações do Gmail que estão faltando. Com gmail eu recebo um erro. Se eu fazê-lo funcionar com o Gmail, vou postar a solução.
Obrigado!
Ok Eliseu.
Eu alterar a porta como o 587 não iria deixar-me passar por telnet, mas ainda não está funcionando ...
Vou continuar procurando e se eu lhe dizer algo. E eu espero que a sua solução se ele continuar a falhar.
Muito obrigado e melhores cumprimentos.
Pela maneira.
Pode dizer-me qualquer servidor SMTP que funciona corretamente com your're correndo por exemplo, a necessidade de implementá-lo o mais rápido possível e não consigo encontrar qualquer servidor que funciona ...
Veja se você pode me dizer com quem você faz isso e eu experimentá-lo e ver se isso, se eu trabalhar.
Muito obrigado novamente.
Uma saudação.
Boa.
Agora tudo está resolvido, era problema dos programas de antivírus que cortam verme realizando um envio em massa ... deve ser inserido no processo de exceções e funcionando corretamente.
Muito obrigado.
Uma saudação.
Bom dia.
Eu tenho um código muito, muito semelhante ao Problema suyo.El é que eu não enviar e-mail até você fechar o aplicativo, ou outro de entrega de correio último entionces não é enviada. Será que você sabe por que ou como posso resolver isto?
Obrigado
Esta é uma função muito boa! obrigado por compartilhar isso conosco
Obrigado por compartilhar este código ... Foi me deixando louco e nada que eu saí do correio. Graças a sua resolvido o erro. Continue assim ...
ois, para aqueles que não conseguem encontrar um servidor SMTP que funciona eu dou uma configuração que é usado com o Windows Live Hotmail, é 100% certo que eu deixar o meu código para observar.
Por favor não modificar a sua código de programa relacionado com a configuração do servidor para evitar erros.
Dim System.Net.Mail.MailMessage mymail
miCorreo.IsBodyHtml = False
miCorreo.From = New System.Net.Mail.MailAddress ("ejemplo@hotmail.com") 'enviar e-mails de onde
miCorreo.To.Add ("ejemplo@hotmail.com") 'Destinatário de Correio
miCorreo.Subject = "exemplo" Case '
miCorreo.Body = "você pode colocar uma seqüência de texto ou código html expesificas se ele vai incluir a mensagem"
Prioridade miCorreo.Priority = System.Net.Mail.MailPriority.Normal '
"Não modificar o qye linhas a seguir e correspondem à coniguracion servidor SMTP da Microsoft (Windows Live)
Smtp Dim System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = "25"
smtp.EnableSsl = True
"Eu passar as credenciais para a conta e senha da qual você enviou
= Novos smtp.Credentials System.Net.NetworkCredential ("ejemplo@hotmail.com", "password")
Tentar
smtp.Send (mymail)
MsgBox ("Mensagem enviada". MsgBoxStyle.OKOnly)
Catch ex As Exception
MsgBox ("Erro:")
End Try
e agredezco passado para o criador do item me serviu muito. obrigado
PARCEIROS muito obrigado é uma verdade patrões poucos que me serviu de muita informação.
Olá, você quer andubo? , Foi capaz de enviar qualquer e-mail?
Eu recebo o meu erro ao tentar enviar um e-mail
as credenciais ok?
ou onde eu posso conseguir outro?
Saudações.
Bom para todos, este post me ajudou muito, mas eu tenho um pequeno problema quando eu anexar um arquivo, recebo o seguinte erro: NotSupportedException was unhandled
Formato não suportado fornecido no caminho.
Código:
Dim arquivo As String = My.Application.Info.DirectoryPath & "c: \ arcchivo.rar"
bug __________________inicio onde marca
Anexo Dim System.Net.Mail.Attachment Novo (arquivo, System.Net.Mime.MediaTypeNames.Application.Pdf)
msg.Attachments.Add (em anexo)
bug __________________fin onde marca
se alguém pode me dizer que eu estou fazendo de errado eu agradeço antecipadamente.
Manter os PCs são tão úteis.
ta Hola q tal chebre seu post, mas para q funciona para você pode mudar a
_SMTP.Port = 465
por
_SMTP.Port = 587
para mim que eu corro.
q Deus abençoe a sorte
Eu testei esse código e funcionou perfeito, fiz as alterações no Pharsat SMTP recomendades servidor e anotações por Eliseu para miCorreo.From = New System.Net.Mail.MailAddress ("@ josem.flores sfb.es") e foi grande, muito obrigado.
Obrigado pelo código
Hey.
Eu desenvolvi um programa para enviar via SMTP acessando um servidor de troca que exige autenticação com SSL. O programa funciona perfeitamente a partir de qualquer computador fora da rede onde o servidor de troca, mas se eu instalá-lo em um servidor de troca de PC em rede não funciona. Sempre dar servidor não encontrado erro.
Usando ping para o servidor da LAN para o DNS, públicas, privadas IP, Telnet, etc .. não forneceu resposta. No log do servidor do Exchange não diz nada, é claro que ninguém sabe. Antivírus e firewall desligado Alguma idéia?
q oi das Parsat código mefunciona de marabillas mas eu tenho um problema é que eu tenho um formulário onde q APODER vai colocar qualquer e-mail para enviar a mensagem, como eu posso no script espesificar q ver os campos do formulário de saber q vai enviar e-aq a mensagem, a matéria
agradeseria muito se você mepudes ayuadar
Com o Windows 7 Professional não funciona, por quê?
Irmão código Excelente
muito obrigado
Olá a todos e experimente o código original, a modificação da parashá com a outra empresa e desativar o antivírus e firewall e ainda não me enviar o código para copiar e colar com o alguém campos óbvio pode me dar uma outra solução ?
Eu novamente, se alguém não experimentar a porta 587 no hotmail
Foi graças muito bons isso ajudou-me um grande
Hey. Estes são os meus primeiros passos em vb.net, (até agora em com vb6). O código para enviar e-mail do servidor-me bem, é bom exemplo. Agora eu quero complicar as confirmações, acessórios, etc. Eu queria perguntar uma coisinha Você poderia me enviar um exemplo para baixar e-mail? Muito obrigado por tudo.
ami uma consulta e enviar e-mails me o problema é que eu preciso envviar uma imagem no corpo do email não como anexo (tipo de publicidade), mas não deixe-me enviar .. Eu tenho em um RichTextBox a imagem, mas não envia nada ... se alguém puder me ajudar eu agradeceria muito
meu email é lesterelpepecalderon@hotmail.com
Eu coloquei um pouco mais do que acrescentar beleza a caixa de texto do formulário e um botão e um RichTextBox para que mais paresca um formulário web. Para isso, vamos criar:
Textbox1 (Case)
Textbox2 (receptor)
TextBox3 (seu email)
Textbox4 (passwor - senha)
RichTextBox1 (mensagem)
Button1 (botão enviar)
está configurado para hotmail, deixe o código abaixo:
button1 clique em:
Dim System.Net.Mail.MailMessage mymail
miCorreo.IsBodyHtml = False
miCorreo.From = New System.Net.Mail.MailAddress (TextBox2.Text) 'envia mail onde
miCorreo.To.Add (TextBox3.Text) "Destinatário de Correio
assunto miCorreo.Subject = TextBox1.Text '
miCorreo.Body = RichTextBox1.Text
Prioridade miCorreo.Priority = System.Net.Mail.MailPriority.Normal '
"Não modifique as seguintes linhas como eles se relacionam com o coniguracion servidor SMTP da Microsoft (Windows Live)
Smtp Dim System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = 25
smtp.EnableSsl = True
"Eu passar as credenciais para a conta e senha da qual você enviou
= Novos smtp.Credentials System.Net.NetworkCredential (TextBox3.Text, TextBox4.Text)
Tentar
smtp.Send (mymail)
MsgBox ("Mensagem enviada". MsgBoxStyle.OKOnly)
Catch ex As Exception
MsgBox ("Erro:")
End Try
como eles vêem seguir o código original, mas o código fez ajustes marinhos SMTP para hotmail eu acabei de dizer mais beleza à forma como mostrado nesta imagem: http://i46.tinypic.com/34ir2c0.jpg
Espero e servir-lhes saudações e agradecimentos SoloVB
Eu digo adeus!
Oi eu tenho o seguinte erro e não porque eles colocaram todo o código como está.
o erro é:
Falha ao enviar mensagem.
alguém que possa me ajudar por favor.
obrigado pela muchisisisimo contribuições serviram-me a sério
Comigo funcionou maravilhosamente
Olá, eu enviar automaticamente um link dando um botão onde os dados que eu deveria trazer um select no oracle base de dados, a única coisa que é um deve ter para; assunto: a raiva dentro do texto e no link devem ser enviados, mas não como poderia me ajudar!
hey amigos que eu não me engano trabalhou milímetros
então eu tenho o codigolo
Public Class Form1
Enviarcorreo Public Sub ()
Dim System.Net.Mail.MailMessage mymail
miCorreo.IsBodyHtml = False
miCorreo.From = New System.Net.Mail.MailAddress ("luisfernandop.s @ hotmail.com") 'enviar e-mails de onde
miCorreo.To.Add ("luisfernandop.s @ hotmail.com") 'Destinatário de Correio
miCorreo.Subject = "teste de fer" 'Case
miCorreo.Body = "none"
Prioridade miCorreo.Priority = System.Net.Mail.MailPriority.Normal '
"Não modificar o qye linhas a seguir e correspondem à coniguracion servidor SMTP da Microsoft (Windows Live)
Smtp Dim System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = 25
smtp.EnableSsl = True
"Eu passar as credenciais para a conta e senha da qual você enviou
= Novos smtp.Credentials System.Net.NetworkCredential ("luisfernandop.s @ hotmail.com", "/ n @ ndo/6724766887")
Tentar
smtp.Send (mymail)
MsgBox ("Mensagem enviada". MsgBoxStyle.OKOnly)
Catch ex As Exception
MsgBox ("Erro:")
End Try
End Sub
Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
enviarcorreo ()
End Sub
End Class
se alguém poderia me fazer ver o meu erro eu agradeceria muito
smtp.Port = "587" "n º 25, é 587 e você vai funcionar perfeito.
Muyyyy obras boas de 10! ... Excelente contribuição! Agora eu enfiar a mão ... Muito obrigado =)
Fotografa através Pharsat ..
Sua contribuição me ajudou muito ...
Obrigado a todos que contribuem com a sua ajuda tanto o código q
Olá XFA por exemplo, alguém poderia dizer como eu faço quando eu quero enviar mensagens de e-mail que não hotmail ..
por exemplo, yahoo, gmail, etc ... ou meu servidor da empresa ...
Discula um dudami este é o meu código:
Dim System.Net.Mail.MailMessage mymail
E-mail Dim System.Net.Mail.MailMessage
micorreo.IsBodyHtml = False
Nova System.Net.Mail.MailAddress micorreo.From = ("leboche@hotmail.com")
correo.To.Add ("leboche@hotmail.com")
correo.Subject = "mensagem prueva"
micorreo.Body = TextBox1.Text
micorreo.Priority = Net.Mail.MailPriority.Normal
Smtp Dim System.Net.Mail.SmtpClient
smtp.Host = "smtp.live.com"
smtp.Port = 587
smtp.EnableSsl = True
= Novos smtp.Credentials System.Net.NetworkCredential ("info@solovb.net", "123456")
Tentar
smtp.Send (mymail)
MsgBox ("Mensagem enviada". MsgBoxStyle.OKOnly ", info@solovb.net")
Catch ex As Exception
MsgBox ("Erro:")
End Try
mas não sei se esse código na caixa de texto ou de ou em um botão, você poderia me ajudar?
Eu sou um novato em ESOT
Gostaria de colocar esse código em um botão de envio após confirmação de que todos os dados inseridos necessário.
Sorte
Tudo correu bem!
Obrigado pela contribuição
Uma saudação
interessante sobretod seu exemplo e fácil de entender, mas eu tenho uma pergunta, eu quero você no corpo da mensagem é o conteúdo de um relatório
como é dificio parte, espero sua ajuda
Muito obrigado. Uma pequena contribuição.
Para enviar uma cópia (CC) =
correo.CC.Add ("Address")
Olá, eu tenho esse problema:
Eu disse: "Nenhum nome foi declarada amp"
e
"O caráter não é válida" pelo "" ao lado de amp.
quem pode me ajudar muito obrigado.
Substitua-o com &
MsgBox ("Erro:" "! Erro" & ex.Message, MsgBoxStyle.OKOnly)
Graças Muuuuchas .. Eu encontrei o solucioen
Você pode adicionar como envio ou elemento ou a adição de arquivos privados?
Obrigado a todos por o código!
fábula funciona!
Olá,
página muito boa,
quisisera se através do código para o envio de e-mail pode enviar uma cópia oculta Cco para uma praça, onde existem vários e-mails mais, isso é possível?
Olá:
muito obrigado me servido maravilhosamente, graças a você, eu finalmente foi capaz de enviar e-mail, mas eu tenho um duditas no que diz respeito a como você colocar um link no corpo, dessa forma você personalizar com tags HTML e como enviar uma adjunto.muchas agradeça, a Eu trabalhei código perfeito.