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

Artigo: 313775 - Ver produtos para os quais este artigo se aplica.
Tradução automáticaVer isenção de responsabilidades para tradução automática
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
(http://support.microsoft.com/kb/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: 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 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
(http://support.microsoft.com/kb/313775/en-us/ )
Voltar ao topo | Submeter comentários

Submeter comentários

 
Voltar ao topoVoltar ao topo