Como utilizar a biblioteca CDOSYS para enviar uma mensagem de correio electrónico utilizando a porta SMTP no Visual Basic .NET

Traduções de Artigos Traduções de Artigos
Artigo: 313775 - Ver produtos para os quais este artigo se aplica.
atenção ADO and ADO MD não foram totalmente testados num ambiente de Microsoft .NET Framework. Podem provocar problemas intermitentes, especialmente nas aplicações baseadas em serviços ou nas aplicações multithread. As técnicas que são discutidas neste artigo só devem ser utilizadas como uma medida temporária durante a migração para ADO.NET. Só deverá utilizar estas técnicas depois realizados concluída testar para se certificar que estão sem problemas de compatibilidade. Problemas causados por utilizar ADO ou ADO MD desta forma não são suportados. Para mais informações, consulte o seguinte artigo na base de dados de conhecimento da Microsoft:
840667 É apresentada erros inesperados quando utilizar o ADO and ADO MD numa aplicação do .NET Framework
Expandir tudo | Reduzir tudo

Sumário

Este artigo descreve como utilizar o CDO (Collaboration Data Objects) para a biblioteca do Windows 2000 (CDOSYS) para enviar uma mensagem de correio electrónico utilizando a porta SMTP (Simple Mail Transfer Protocol) no Microsoft Visual Basic. NET.

Mais Informação

Para enviar uma mensagem de correio electrónico utilizando a porta SMTP, siga estes passos:
  1. Inicie o Microsoft Visual Studio NET..
  2. No menu ficheiro , aponte para Novo e, em seguida, clique em projecto .
  3. Na lista de tipos de projectos do Visual Basic , clique em Consola de aplicação .

    Por predefinição, o ficheiro Module1.vb é criado.
  4. Adicione uma referência à biblioteca do Microsoft CDO para o Windows 2000. Para o fazer, siga estes passos:
    1. No menu projecto , clique em Add Reference .
    2. Clique no separador COM , localize o CDO para biblioteca do Microsoft Windows 2000 e, em seguida, clique em Seleccionar .
    3. Na caixa de diálogo Adicionar referências , clique em OK .
    4. Se for pedido para gerar wrappers para as bibliotecas que seleccionou, clique em Sim .
  5. Repita o passo 4 para adicionar uma referência à Microsoft 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. Procurar TODO no código e, em seguida, modifique o código para o seu ambiente.
  8. Prima F5 para criar e executar o programa.
  9. Certifique-se que a mensagem de correio electrónico foi enviada e recebida.

Propriedades

Artigo: 313775 - Última revisão: 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 revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes 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