Logomarca

ComponentesASP é um projeto de categorização e disponibilização de exemplos de componentes ActiveX, utilizados na programação ASP 3.0 (ASP Clássico): Todos os componentes possuem nome completo, descrição, versão, fabricante e exemplos. Seja muito bem-vindo(a) e aproveite nosso conteúdo.

Hospedagem de sites em ASP com servidores no Brasil é na Rede2! Conheça: www.rede2.com.br

Últimas Notícias:

  • - 18/09/2008 | Componentes ASP comemora 6 meses no ar ajudando 2 mil visitantes únicos.
  • - 18/03/2008 | Categorizados 51 exemplos de 31 componentes ASP em 12 categorias.

CDOSYS - Microsoft

O CDOSYS é um componente usado para envio de e-mails no Windows Server 2003. Foi criado para substituir o antigo componente CDONTS, para envio de e-mails através do SMTP.

Envio de e-mail simples

<% 
' Cria a instância para configuração do SMTP
Set CDOSYSconn = Server.CreateObject("CDO.Configuration")
' Endereço do Servidor de SMTP
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dominio.com.br"
' Porta do Servidor de SMTP
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta do CDO
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Configuração de Timeout
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
' Atualiza as configurações
CDOSYSconn.Fields.update

' Cria uma instância do controle de Email
Set CDOSYS = Server.CreateObject("CDO.Message")
'Atualiza a configuração do CDOSYS para o envio do e-mail
Set CDOSYS.Configuration = CDOSYSconn
' E-mail do Remetente
CDOSYS.From = "remetente@dominio.com.br"
' E-mail do Destinatário
CDOSYS.To = "destinatario@dominio.com.br"
' Assunto do E-mail
CDOSYS.Subject = "Assunto"
' Conteúdo do E-mail
CDOSYS.HtmlBody = "Envio de e-mail simples através do CDOSYS."
' Envia o Email
CDOSYS.Send
' Tira o objeto de envio do e-mail da memória
Set CDOSYS = Nothing

' Tira o objeto de configuração da memória
Set CDOSYSconn = Nothing
%>

Envio de e-mail com anexos

<% 
' Cria a instância para configuração do SMTP
Set CDOSYSconn = Server.CreateObject("CDO.Configuration")
' Endereço do Servidor de SMTP
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dominio.com.br"
' Porta do Servidor de SMTP
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta do CDO
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Configuração de Timeout
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
' Atualiza as configurações
CDOSYSconn.Fields.update

' Cria uma instância do controle de Email
Set CDOSYS = Server.CreateObject("CDO.Message")
'Atualiza a configuração do CDOSYS para o envio do e-mail
Set CDOSYS.Configuration = CDOSYSconn
' E-mail do Remetente
CDOSYS.From = "remetente@dominio.com.br"
' E-mail do Destinatário
CDOSYS.To = "destinatario@dominio.com.br"
' Arquivo a ser anexado
CDOSYS.AddAttachment("e:\home\dominio.com.br\documento.doc")
' Assunto do E-mail
CDOSYS.Subject = "Assunto"
' Conteúdo do E-mail
CDOSYS.HtmlBody = "Envio de e-mail com anexo através do CDOSYS."
' Envia o Email
CDOSYS.Send
' Tira o objeto de envio do e-mail da memória
Set CDOSYS = Nothing

' Tira o objeto de configuração da memória
Set CDOSYSconn = Nothing
%>
Componente disponível no provedor de hospedagem de sites Rede2. Hospede Já!
Copyright© 2003 - 2008. Rede2 - Todos os direitos reservados

Rede2 é um provedor de HOSPEDAGEM DE SITES, especializado em hospedagem Windows. Hospedagem profissional com hospedagem ASP, hospedagem ASP.Net (ASPNET 2.0). Outras tecnologias disponíveis: Banco de dados MySQL, banco de dados SQL Server, Perl, XML, HTML. Até 40 dias de hospedagem de sites grátis. Contrate qualquer plano de hospedagem e ganhe bônus de até R$ 100,00 para anunciar Google AdWords.