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

Artigo: 313773 - Ver produtos para os quais este artigo se aplica.

Ver isen��o de responsabilidades para tradu��o autom�tica

Clique aqui para exibir o artigo traduzido e o artigo original em ingl�s, lado a lado.

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 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

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

Por predefini��o, � criado Module1.vb.
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 .
Siga os passos 5a a 5 c para adicionar uma refer�ncia � biblioteca Microsoft ActiveX Data Objects 2.5.

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

Procure "TODO" no c�digo e, em seguida, modifique o c�digo para o seu ambiente.
Prima F5 para criar e executar o programa.
Verifique se a mensagem de correio electr�nico tem sido enviada e recebida.

Propriedades

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

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

(http://support.microsoft.com/kb/313773/en-us/ )