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

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
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
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
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.ReflectionModule 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 SubEnd 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.
Enviar email pasta SMTP local CDOSYS

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 313773 - Última Revisão: 12/07/2015 08:15:41 - Revisão: 3.2

Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition, Microsoft Collaboration Data Objects 2.0

  • kbnosurvey kbarchive kbmt kbmsg kbcode kbxml kbhowtomaster KB313773 KbMtpt
Comentários