CDONTS - Componentes para envio de E-mails
O exemplo abaixo destina-se ao uso do componente CDONTS (lembrando que não é necessário especificar o "RemoteHost").
<%
Set Mailer = CreateObject("CDONTS.NewMail")
Mailer.From = "eu@dominio.com.br" ' e-mail de quem esta enviando a mensagem
Mailer.To = "conta@destinatario.com.br" ' e-mail de quem vai receber a mensagem
Mailer.CC = "conta@destinatario.com.br" ' Com Cópia
Mailer.BodyFormat = 1 ' parametro de formatação
Mailer.MailFormat = cdoMailFormatText ' parametro de formatação
Mailer.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail
Mailer.Subject = "Assunto do E-mail"
Mailer.Body = "Corpo da Mensagem"
Mailer.Send
Set Mailer = Nothing
%>
|