Você está offline; aguardando reconexão

Como usar a biblioteca de CDOSYS para enviar uma mensagem de email, usando a porta SMTP no 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: 313775
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 Windows 2000 (CDOSYS) para enviar uma mensagem de email usando a porta SMTP (Simple Mail Transfer Protocol) no Microsoft Visual Basic. NET.
Mais Informações
Para enviar uma mensagem de email usando a porta SMTP, siga estas etapas:
  1. Inicie o Microsoft Visual Studio NET..
  2. No menu arquivo , aponte para novo e, em seguida, clique em Project .
  3. Na lista tipos de projetos do Visual Basic , clique em Aplicativo de console .

    Por padrão, o arquivo Module1.vb é criado.
  4. Adicione uma referência à biblioteca do Microsoft CDO para Windows 2000. Para fazer isso, execute estas etapas:
    1. No menu Project , clique em Add Reference .
    2. Clique na guia COM , localize Microsoft CDO para Windows 2000 Library e em seguida, clique em Selecionar .
    3. Na caixa de diálogo Add References , clique em OK .
    4. Se você for solicitado a gerar wrappers para as bibliotecas que você selecionou, clique em Sim .
  5. Repita a etapa 4 para adicionar uma referência para o ActiveX Data Objects 2.5 Library.
  6. Na janela de código, substitua o código com o seguinte:
    Imports System.ReflectionModule 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 SubEnd Module					
  7. Pesquisar TODO no código e, em seguida, modifique o código para o seu ambiente.
  8. Pressione F5 para criar e executar o programa.
  9. Certifique-se que a mensagem de email foi enviada e recebida.
Enviar email porta SMTP de CDOSYS

Aviso: este artigo foi traduzido automaticamente

Propriedades

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

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

  • kbnosurvey kbarchive kbmt kbhowto kbcode kbxml kbmsg KB313775 KbMtpt
Comentários