Como enviar mensagens de correio electrónico utilizando CDOSYS e o directório de SMTP local com o Visual Basic .NET

Traduções de Artigos Traduções de Artigos
Artigo: 313773 - 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 Microsoft Windows 2000 e o directório de SMTP local para enviar uma mensagem de correio electrónico em HTML utilizando o Microsoft Visual Basic. NET. Tem de executar este exemplo num servidor com o serviço SMTP em execução para enviar a mensagem de correio electrónico.

Mais Informação

  1. Inicie o Microsoft Visual Studio NET..
  2. No menu ficheiro , aponte para Novo e, em seguida, clique em projecto .
  3. Em Project Types , clique em Projectos do Visual Basic .
  4. Em modelos , clique em Consola de aplicação e, em seguida, clique em OK .

    Por predefinição, é criado Module1.vb.
  5. Adicione uma referência para o Microsoft CDO para biblioteca do Windows 2000. Para o fazer, siga estes passos:
    1. No menu projecto , clique em Add Reference .
    2. No separador COM , clique em Microsoft CDO para o Windows 2000 library e, em seguida, clique em Seleccionar .
    3. Na caixa de diálogo Adicionar referências , clique em OK para aceitar as selecções. Se receber um pedido para gerar wrappers para as bibliotecas que seleccionou, clique em Sim .
  6. Siga os passos 5a a 5 c para adicionar uma referência à biblioteca Microsoft ActiveX Data Objects 2.5.
  7. Na janela de código, substitua o código com:
    Imports System.Reflection
    
    Module Module1
    
        Sub Main()
            Dim oMsg As CDO.Message = New CDO.Message()
            oMsg.From = "from@microsoft.com"
            oMsg.To = "to@microsoft.com"
            oMsg.Subject = "CdoSys HTML mail in VB.NET (pickup)"
    
            Dim sHtml As String
            sHtml = "<HTML>" & _
             "<HEAD>" & _
             "<TITLE>Simple CDOSYS Message</TITLE>" & _
             "</HEAD>" & _
             "<BODY><P>" & _
             "<h1><Font Color=Green>Simple CDOSYS HTML Message</Font></h1>" & _
             "</BODY>" & _
             "</HTML>"
    
            oMsg.HTMLBody = sHtml
    
            ' Set configuration.
            Dim iConfg As CDO.Configuration = New CDO.Configuration()
    
            Dim oFields As ADODB.Fields
            oFields = iConfg.Fields
    
            Dim oField As ADODB.Field
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
            oField.Value = 1   ' Sets the configuration to use the local SMTP server.
    
            oFields.Update()
            oMsg.Configuration = iConfg
    
            oMsg.Send()
    
            oMsg = Nothing
            iConfg = Nothing
            oFields = Nothing
            oField = Nothing
        End Sub
    
    End Module
    					
  8. Procure "TODO" no código e, em seguida, modifique o código para o seu ambiente.
  9. Prima F5 para criar e executar o programa.
  10. Verifique se a mensagem de correio electrónico tem sido enviada e recebida.

Propriedades

Artigo: 313773 - Última revisão: 29 de novembro de 2007 - Revisão: 3.2
A informação contida neste artigo aplica-se a:
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Collaboration Data Objects 2.0
Palavras-chave: 
kbmt kbmsg kbcode kbxml kbhowtomaster KB313773 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: 313773

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