Como usar a biblioteca de CDOSYS para enviar uma mensagem de email, usando a porta SMTP no Visual Basic .NET

Traduções deste artigo Traduções deste artigo
ID do artigo: 313775 - Exibir os produtos aos quais esse artigo se aplica.
cuidado ADO e ADO MD não foram totalmente testados em um ambiente Microsoft .NET Framework. Eles podem causar problemas intermitentes, especialmente em aplicativos baseados em serviço ou em aplicativos multissegmentados. As técnicas descritos neste artigo só devem ser usadas como uma medida temporária durante a migração para o ADO.NET. Você só deve usar essas técnicas depois de ter conduzido teste completo para verificar não se estão nenhum problema de compatibilidade. Quaisquer problemas que são causados por usando ADO ou ADO MD dessa maneira não são suportados. Para obter mais informações, consulte o seguinte artigo na Base de dados de Conhecimento da Microsoft:
840667 Você receber erros inesperados ao usar o ADO e ADO MD em um aplicativo .NET Framework
Expandir tudo | Recolher tudo

Sumário

Este artigo descreve como usar o CDO (Collaboration Data Objects) para a biblioteca do Windows 2000 (CDOSYS) para enviar uma mensagem de email usando a porta SMTP (Simple Mail Transfer Protocol) no Microsoft Visual Basic. NET.

Mais Informações

Para enviar uma mensagem de email usando a porta SMTP, siga estas etapas:
  1. Inicie o Microsoft Visual Studio NET..
  2. No menu arquivo , aponte para novo e, em seguida, clique em Project .
  3. Na lista tipos de projetos do Visual Basic , clique em Aplicativo de console .

    Por padrão, o arquivo Module1.vb é criado.
  4. Adicione uma referência à biblioteca do Microsoft CDO para Windows 2000. Para fazer isso, execute estas etapas:
    1. No menu Project , clique em Add Reference .
    2. Clique na guia COM , localize Microsoft CDO para Windows 2000 Library e em seguida, clique em Selecionar .
    3. Na caixa de diálogo Add References , clique em OK .
    4. Se você for solicitado a gerar wrappers para as bibliotecas que você selecionou, clique em Sim .
  5. Repita a etapa 4 para adicionar uma referência para o ActiveX Data Objects 2.5 Library.
  6. Na janela de código, substitua o código com o seguinte:
    Imports System.Reflection
    
    Module Module1
    
        Sub Main()
            Dim oMsg As CDO.Message = New CDO.Message()
            Dim iConfg As CDO.Configuration
            Dim oFields As ADODB.Fields
            Dim oField As ADODB.Field
     
            iConfg = oMsg.Configuration
            oFields = iConfg.Fields
    
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
            oField.Value = CDO.CdoSendUsing.cdoSendUsingPort
    
           ' TODO: Replace with the port that you want to use . It must be the same
           ' port that the SMTP server is using.
           oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
            oField.Value = 25
    
            ' TODO: Replace with your SMTP server.
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
            oField.Value = "<SMTP Server>"
    
            oFields.Update()
            oMsg.Configuration = iConfg
    
            oMsg.TextBody = "Test message body."
            oMsg.Subject = "Test SMTP Message Send using port"
            oMsg.From = "from@example.com"
            oMsg.To = "to@example.com"
    
            oMsg.Send()
    
            oMsg = Nothing
            iConfg = Nothing
            oFields = Nothing
            oField = Nothing
        End Sub
    
    End Module
    					
  7. Pesquisar TODO no código e, em seguida, modifique o código para o seu ambiente.
  8. Pressione F5 para criar e executar o programa.
  9. Certifique-se que a mensagem de email foi enviada e recebida.

Propriedades

ID do artigo: 313775 - Última revisão: quinta-feira, 29 de novembro de 2007 - Revisão: 3.2
A informação contida neste artigo aplica-se a:
  • Microsoft ActiveX Data Objects 2.5
  • Microsoft Collaboration Data Objects 2.0
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
Palavras-chave: 
kbmt kbhowto kbcode kbxml kbmsg KB313775 KbMtpt
Tradução automática
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: 313775

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com