Como enviar emails por meio de programação com System.Web.Mail e o Visual Basic .NET

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 314201
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
Este artigo demonstra como usar System.Web.Mail para enviar uma mensagem de email no Visual Basic. NET.
Mais Informações
  1. Inicie o Microsoft Visual Studio NET.. No menu arquivo , clique em novo e, em seguida, clique em Project . Clique em Projetos do Visual Basic , clique no modelo Console Application e, em seguida, clique em OK . Por padrão, Module1.vb é criado.
  2. Adicione uma referência para System.Web.dll . Para fazer isso, execute as seguintes etapas:
    1. No menu Project , clique em Add Reference .
    2. Na guia .NET , localizar System.Web.dll e, em seguida, clique em Selecionar .
    3. Clique em OK na caixa de diálogo Add References para aceitar as seleções. Se você receber uma solicitação para gerar wrappers para as bibliotecas que você selecionou, clique em Sim .
  3. Na janela de código, substitua o código inteiro com:
    Imports System.Web.MailModule Module1    Sub Main()        Dim oMsg As MailMessage = New MailMessage()        ' TODO: Replace with sender e-mail address.        oMsg.From = "sender@somewhere.com"        ' TODO: Replace with recipient e-mail address.        oMsg.To = "recipient@somewhere.com"        oMsg.Subject = "Send using Web Mail"        ' SEND IN HTML FORMAT (comment this line to send plain text).        oMsg.BodyFormat = MailFormat.Html        'HTML Body (remove HTML tags for plain text).        oMsg.Body = "<HTML><BODY><B>Hello World!</B></BODY></HTML>"        ' ADD AN ATTACHMENT.        ' TODO: Replace with path to attachment.        Dim sFile As String = "C:\temp\Hello.txt"        Dim oAttch As MailAttachment = New MailAttachment(sFile, MailEncoding.Base64)        oMsg.Attachments.Add(oAttch)        ' TODO: Replace with the name of your remote SMTP server.        SmtpMail.SmtpServer = "MySMTPServer"        SmtpMail.Send(oMsg)        oMsg = Nothing        oAttch = Nothing    End SubEnd Module					
  4. Modificar código onde você pode ver "TODO".
  5. Pressione F5 para compilar e executar o programa.
  6. Verifique se que a mensagem de email foi enviada e recebida.

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 314201 - Última Revisão: 12/07/2015 08:20:24 - Revisão: 2.2

Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition

  • kbnosurvey kbarchive kbmt kbhowto KB314201 KbMtpt
Comentários