Enviar e-mail usando CDOSYS ASP
- Página Anterior Global.asa ASP
- Próxima Página Response ASP
O CDOSYS é um componente integrado do ASP. Este componente é usado para enviar e-mails através do ASP.
Enviar e-mails usando CDOSYS
O CDO (Collaboration Data Objects) é uma tecnologia da Microsoft, projetada para simplificar a criação de programas de comunicação.
O CDOSYS é um componente integrado do ASP. Vamos mostrar como usar esse componente para enviar e-mails.
Como estão os CDONTs?
A Microsoft descontinuou os CDONTs nos Windows 2000, Windows XP e Windows 2003. Se você ainda estiver usando CDONTs em seus aplicativos, será necessário atualizar o código e usar a nova tecnologia CDO.
Usar uma instância do CDOSYS
Enviar e-mail:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Enviando e-mail com CDO"
myMail.From="mymail@mydomain.com"
myMail.To="alguem@somedomain.com"
myMail.TextBody="Esta é uma mensagem."
myMail.Send
set myMail=nothing
%>
Enviar e-mail de texto com campos Bcc e Cc:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Enviando e-mail com CDO"
myMail.From="mymail@mydomain.com"
myMail.To="alguem@somedomain.com"
myMail.Bcc="alguemelse@somedomain.com"
myMail.Cc="alguemelse2@somedomain.com"
myMail.TextBody="Esta é uma mensagem."
myMail.Send
set myMail=nothing
%>
Enviar e-mail HTML:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Enviando e-mail com CDO"
myMail.From="mymail@mydomain.com"
myMail.To="alguem@somedomain.com"
myMail.HTMLBody = "<h1>This is a message.</h1>"
myMail.Send
set myMail=nothing
%>
Enviar um e-mail HTML que contém uma página da web da internet:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Enviando e-mail com CDO"
myMail.From="mymail@mydomain.com"
myMail.To="alguem@somedomain.com"
myMail.CreateMHTMLBody "http://www.codew3c.com/asp/"
myMail.Send
set myMail=nothing
%>
Enviar um e-mail HTML que contém uma página da web do computador:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Enviando e-mail com CDO"
myMail.From="mymail@mydomain.com"
myMail.To="alguem@somedomain.com"
myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"
myMail.Send
set myMail=nothing
%>
Enviar um e-mail com anexo:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Enviando e-mail com CDO"
myMail.From="mymail@mydomain.com"
myMail.To="alguem@somedomain.com"
myMail.TextBody="Esta é uma mensagem."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail=nothing
%>
Enviar um e-mail de texto usando o servidor remoto:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Enviando e-mail com CDO"
myMail.From="mymail@mydomain.com"
myMail.To="alguem@somedomain.com"
myMail.TextBody="Esta é uma mensagem."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'endereço IP ou nome do servidor SMTP remoto'
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
'porta do servidor'
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>
- Página Anterior Global.asa ASP
- Próxima Página Response ASP
