Entrar

Como migrar o aplicativo Collaboration Data Objects do NTS para o Collaboration Data Objects do Windows 2000

Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
Este artigo descreve detalhadamente como migrar o código existente com base no modelo de objeto CDONTS para CDOSYS.

É possível usar as bibliotecas de objeto Cdonts.dll e Cdosys.dll para criar e processar email usando os formatos e protocolos padrão de Internet. Os objetos de dados de colaboração para NTS (CDONTS) foram originalmente implementados para uso com o Microsoft Commercial Internet Server (MCIS) e incluídos no Windows NT Option Pack. CDONTS também foram incluídos como parte do Windows 2000 para compatibilidade com o Windows NT. CDONTS não estão incluídos no Microsoft Windows XP e lançamentos subseqüentes do Windows. Os objetos de dados de colaboração da Microsoft para Windows 2000 (CDOSYS) foram implementados e incluídos como um componente do sistema operacional Windows 2000. O código existente com base em CDONTS deve migrar para CDOSYS.

Comparação de recursos

A tabela a seguir compara o suporte ao sistema operacional e a recursos nas bibliotecas Cdonts.dll e Cdosys.dll.
RecursoCDONTSCDOSYSObservações
Suporte Windows NTsimnãoNão incluídos no sistema operacional
Suporte Windows 2000simsimAmbos incluídos no sistema operacional
Suporte Windows XPnãosimApenas CDOSYS incluído no sistema operacional
Suporte Exchange serversimsim
Enviar emailsimsim
Envio para grupo de notíciasnãosim
Envio com uso de porta NNTP (Network News Transfer Protocol) SMTP (Simple Mail Transfer Protocol) nãosim
Formatos de mensagem MIME e Uuencode simsim
Controle explícito de estrutura de parte do corpo, codificação e charset de MIME, entre outros. nãosim
Suporte HTML e MHTMLsimsim
Listagem / leitura de diretório de armazenamento local nãosim
Listagem / leitura de caixa de entrada por meio de POP3 simnão
Suporte de coletor de eventos de transporte nãosim
Funções de resposta e envionãosim

Exemplos

Os exemplos a seguir mostram como executar a mesma tarefa usando CDONTS e CDOSYS. Cada um deles descreve um recurso que ambas as bibliotecas possuem e fornece o código de exemplo para a implementação do recurso em cada biblioteca. Esses exemplos de códigos foram verificados no uso do Windows 2000 Service Pack 2 (SP2) e nas seguintes versões das bibliotecas:
  • CDONTS 6.0.3939.0
  • CDOSYS 6.0.3943.3

Envio simples

Este exemplo é o uso mais conhecido das duas bibliotecas. Nesse caso, elas gravam a mensagem no diretório de recebimento do servidor SMTP. O caminho da pasta é lido a partir da metabase local.
Exemplo de CDONTS
 set m =CreateObject("CDONTS.NewMail") m.Send "user1@company.com", _"user2@company.com", _ "test 1", _ "hello there" 
Exemplo de CDOSYS
 Set m =CreateObject("CDO.Message") m.From = "user1@company.com" m.To ="user2@company.com" m.Subject = "test 1" m.TextBody = "hello there"m.send

Enviar corpo HTML

Os exemplos a seguir colocam o texto do corpo HTML na mensagem. À exceção disso, esses exemplos são iguais aos do "Envio Simples". Nos dois exemplos, o formato multiparte MIME/mensagem alternativa é usado. Além disso, um corpo de texto sem formatação é criado automaticamente a partir do HTML. O corpo do texto sem formatação está incluído como uma parte do texto/corpo sem formatação.
Exemplo de CDONTS
 sHTML = "<html><body><fontcolor=""#FF0000"">" & _ "hello,Red</font></body></html>" Set m =CreateObject("CDONTS.NewMail") m.MailFormat = 0 ' CdoMailFormatMimem.BodyFormat = 0 ' CdoBodyFormatHTML m.Send "user1@company.com", _"user2@company.com", _ "test 1", _ sHTML 
Exemplo de CDOSYS
 sHTML = "<html><body><fontcolor=""#FF0000"">" & _ "hello,Red</font></body></html>" Set m = CreateObject("CDO.Message")m.From = "user1@company.com" m.To = "user2@company.com" m.Subject = "test 1"m.HtmlBody = sHTML m.send

Enviar com um anexo no formato MIME

Exemplo de CDONTS
Set m = CreateObject("CDONTS.NewMail") m.MailFormat = 0 ' CdoMailFormatMimem.AttachFile "d:\ptsp\test\test.doc" m.Send "user1@company.com", _"user2@company.com", _ "test.doc", _ "Here is the document yourequested"
Exemplo de CDOSYS
 Set m= CreateObject("CDO.Message") m.From = "user1@company.com" m.To ="user2@company.com" m.Subject = "test.doc" m.TextBody = "Here is the documentyou requested." m.AddAttachment "file://d:\ptsp\test\test.doc"m.send

Enviar com um anexo no formato Uuencode

Nas duas bibliotecas, para enviar a mensagem com um anexo em Uuencode, altere uma propriedade na mensagem para alterar o formato.
Exemplo de CDONTS
 Set m =CreateObject("CDONTS.NewMail") m.MailFormat = 1 ' CdoMailFormatTextm.AttachFile "d:\ptsp\test\test.doc" m.Send "user1@company.com", _"user2@company.com", _ "test.doc", _ "Here is the document you requested"
Exemplo de CDOSYS
 Set m =CreateObject("CDO.Message") m.MimeFormatted = false m.From ="user1@company.com" m.To = "user2@company.com" m.Subject = "test.doc"m.TextBody = "Here is the document you requested." m.AddAttachment"file://d:\ptsp\test\test.doc" m.send

Enviar texto em mensagem Unicode

Este exemplo inclui um caractere Unicode (o símbolo do Euro, €, ponto de código Unicode 0x20ac) no nome de exibição do destinatário e no texto da mensagem. Em ambos os exemplos, "€" é codificado na propriedade utf-7 CharSet. CDONTS devem usar a constante CP_UTF7=65000. Para CDOSYS, o nome CharSet é unicode-1-1-utf-7.
Exemplo de CDONTS
 Set s = CreateObject("CDONTS.Session") S.LogonSMTP "User 1","user1@company.com" s.SetLocaleIDs 65000 ' cpUTF7 Set m = s.Outbox.Messages.Addm.MessageFormat = 0 ' CdoMime set r = m.Recipients.Add 'r.address ="user2@company.com" r.name = "Joe €" r.address = "<joe.euro@company.com>"m.Subject = "Unicode content" m.Text = "That will be €5, please."m.Send
Exemplo de CDOSYS
set m =CreateObject("CDO.Message") m.From = "User1 <user1@company.com>" m.To ="Joe € <joe.euro@company.com>" m.Subject = "Unicode content" set b =m.bodypart b.charset = "unicode-1-1-utf-7" m.textbody = "That will be €5,please." m.send
Referências
Para obter mais informações, visite os seguintes sites da MSDN (em inglês): Para obter mais informações, clique no número abaixo para ler o artigo na Base de Dados de Conhecimento Microsoft (a página pode estar em inglês):
816789 Acesso de leitura para o grupo Todos é removido após a instalação do Exchange 2000 Service Pack 3 (SP3)
Propriedades

ID do Artigo: 810702 - Última Revisão: 02/27/2014 07:45:58 - Revisão: 6.2

  • Microsoft Exchange Server 2003 Enterprise Edition
  • Microsoft Exchange Server 2003 Standard Edition
  • Microsoft Exchange 2000 Server Standard Edition
  • Microsoft Collaboration Data Objects 2.0 para NT Server
  • Microsoft Collaboration Data Objects 2.0
  • kbnosurvey kbarchive kbhowto kbhowtomaster KB810702
Comentários