Tenho este exemplo com o CDonts
'Recupere os campos da página anterior
<%
DIM todos, nome,tel,cel,empresa,texto
nome = request.Form("nome")
tel = request.Form("tel")
cel = request.Form("cel")
empresa = request.Form("empresa")
texto = replace(request.form("texto"),chr(13),"<br>")
'Formate-os
todos="Contato pelo site<br>"
todos=todos+"<strong> Nome: </strong>"+nome+"<br>"
todos=todos+"<strong> Telefone: </strong>"+tel+"<br>"
todos=todos+"<strong> Celular: </strong>"+cel+"<br>"
todos=todos+"<strong> Empresa: </strong>"+empresa+"<br>"
todos=todos+"<strong> TEXTO: </strong><br>"
todos=todos+texto+"<br>"
Set oCdoMail = Server.CreateObject("CDONTS.NewMail")
oCdoMail.from="Email que envia@?????.com"
oCdoMail.to = "Email que recebe@?????.com"
oCdoMail.CC = "Com cópia para oculta@?????.com"
oCdoMail.BodyFormat = 0 ' parametro de formatação
oCdoMail.MailFormat = 0 ' parametro de formatação
'Aqui attaacha...
oCdoMail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail
oCdoMail.subject=".:: CONTATO ::."
oCdoMail.Body=todos
oCdoMail.send
set oCdoMail = Nothing
%>



Postagens
Male
