Como enviar mensagens de email usando o CDOSYS e o diretório local do SMTP com o Visual Basic .NET

Traduções deste artigo Traduções deste artigo
ID do artigo: 313773 - 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 Microsoft Windows 2000 e o diretório local do SMTP para enviar uma mensagem de email em HTML usando o Microsoft Visual Basic. NET. Você deve executar este exemplo em um servidor que tem um serviço SMTP em execução para enviar a mensagem de email.

Mais Informações

  1. Inicie o Microsoft Visual Studio NET..
  2. No menu arquivo , aponte para novo e, em seguida, clique em Project .
  3. Em Project Types , clique em Projetos do Visual Basic .
  4. Em modelos , clique em Aplicativo de console e, em seguida, clique em OK .

    Por padrão, Module1.vb é criado.
  5. Adicione uma referência para o Microsoft CDO para Windows 2000 biblioteca. Para fazer isso, execute as seguintes etapas:
    1. No menu Project , clique em Add Reference .
    2. Na guia COM , clique em Microsoft CDO para Windows 2000 biblioteca e, em seguida, clique em Selecionar .
    3. Na caixa de diálogo Add References , clique em OK para aceitar as seleções. Se você receber uma solicitação para gerar wrappers para as bibliotecas que você selecionou, clique em Sim .
  6. Siga as etapas 5a por meio da c 5 para adicionar uma referência à biblioteca Microsoft ActiveX Data Objects 2.5.
  7. Na janela código, substitua todo 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. Pressione F5 para criar e executar o programa.
  10. Verifique se que a mensagem de email foi enviada e recebida.

Propriedades

ID do artigo: 313773 - Última revisão: quinta-feira, 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 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: 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