Jump to content


Marcio Leandro

Member Since 05/02/2010
Offline Last Active 01/12/2012, 11:58
-----

Posts I've Made

In Topic: (Ajuda Urgente) Formulario De Contato Com Envio De Anexo

05/02/2010, 11:57

Veja se é isto que precisa...
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&ccedil;&atilde;o 
	oCdoMail.MailFormat = 0 ' parametro de formata&ccedil;&atilde;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
%>

IPB Skin By Virteq