ID do artigo: 286431 - Última revisão: sexta-feira, 18 de novembro de 2005 - Revisão: 3.1

Como enviar um email formatado com HTML usando CDO for Windows 2000 e um serviço SMTP remoto

Retired KB ArticleAviso de Isenção de Responsabilidade sobre Conteúdo do KB Aposentado
Exibir os produtos aos quais esse artigo se aplica.
Dica do SistemaEste artigo aplica-se a um sistema operativo diferente do que está a utilizar. Foi desactivado o conteúdo do artigo, que pode não ser relevante para si.
Expandir tudo | Recolher tudo

Sumário

Esse artigo descreve como enviar mensagens formatadas com HTML usando CDO for Windows 2000 (CDOSYS) ou CDO for Exchange 2000 (CDOEX) usando o serviço SMTP de um computador remoto.
Voltar para o início

Mais Informações

  1. Crie um arquivo chamado Cdosmtp.vbs e cole o seguinte código:
    ' Send by connecting to port 25 of the SMTP server.
Dim iMsg 
Dim iConf 
Dim Flds 
Dim strHTML

Const cdoSendUsingPort = 2

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

' Set the CDOSYS configuration fields to use port 25 on the SMTP server.

With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
    'ToDo: Enter name or IP address of remote SMTP server.
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "<remote SMTP server>" 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10  
    .Update
End With

' Build HTML for message body.
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> This is the test HTML message body</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"

' Apply the settings to the message.
With iMsg
    Set .Configuration = iConf
    .To = "<email address>" 'ToDo: Enter a valid email address.
    .From = "<email address>" 'ToDo: Enter a valid email address.
    .Subject = "This is a test CDOSYS message (Sent via Port 25)"
    .HTMLBody = strHTML
    .Send
End With

' Clean up variables.
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

MsgBox "Mail Sent!"
  2. Edite as seções do código marcadas com "ToDo".
  3. Salve o arquivo e clique nele duas vezes.

    O código cria uma mensagem formatada com HTML e a envia usando o serviço SMTP do computador remoto.
Voltar para o início

Referências

Para obter informações adicionais, clique no número abaixo para ler o artigo na Base de Dados de Conhecimento da Microsoft:
286430  (http://support.microsoft.com/kb/286430/PT-BR/ ) Como enviar uma mensagem formatada em HTML utilizando CDO for Windows 2000 e o Diretório de captura local
Voltar para o início
A informação contida neste artigo aplica-se a:
  • Microsoft Collaboration Data Objects 2.0
  • Collaboration Data Objects for Exchange 2000
Voltar para o início
Palavras-chave: 
kbhowto KB286431
Voltar para o início
Retired KB ArticleAviso de Isenção de Responsabilidade sobre Conteúdo do KB Aposentado
Este artigo trata de produtos para os quais a Microsoft não mais oferece suporte. Por esta razão, este artigo é oferecido "como está" e não será mais atualizado.
Voltar para o início