formulario de email

[dmorsoleto 0]

fala galera, entao to com uma pagina de um formularo que esta mandando para um email que defini, esta tudo dando certo. Soh que eu quero mandar esse formulario com copia para outro e-mail e bao estou conseguindo fazer isso...

alguem sabe como fazer???

valeu ,

abcos

 

<%
'Sends an email'

Dim objMail
Set objMail = Server.CreateObject("CDO.Message")
objMail.Fields("urn:schemas:httpmail:importance").Value = 2

objMail.Fields.Update

With objMail

Origem = Request.form("email")
Nome = Request.form("nome")
Aniversario = Request.form("aniversario")
Manequim = Request.form("manequim")
Cidade = Request.form("cidade")
Estado = Request.form("estado")
Produto = Request.form("produto")
Qual = Request.form("qual")
Compraria = Request.form("compraria")
Porque = Request.form("porque")

objMail.To = "daniel@freead.com.br"&"pliepromocao@gmail.com"&"dmorsoleto@gmail.com"
objMail.From = Origem
objMail.Subject = "Nome: " & Request.Form("nome") & " - Email Contato Site Airis Brasil"
objMail.HTMLBody = "Nome: "& Nome & "<br><br>"&"E-mail: "&Origem&"<br><br>"&"Aniversário: "&Aniversario&"<br><br>"&"Manequim:"&Manequim&"<br><br>"&"Cidade:"&Cidade&"<br><br>"&"Estado:"&Estado&"<br><br>"&"Produto:"&Produto&"<br><br>"&"Qual:"&Qual&"<br><br>"&"Compraria:"&Compraria&"<br><br>"&"Porque:"&Porque

objMail.MimeFormatted = true
objMail.Fields.Update

objMail.Send

End With

Set mail = nothing
%>

[Ted k' 126]

se for essa linha:

objMail.To = "daniel@freead.com.br"&"pliepromocao@gmail.com"&"dmorsoleto@gmail.com"

 

faz assim:

objMail.To = "daniel@freead.com.br;pliepromocao@gmail.com;dmorsoleto@gmail.com"

mais ai não é cópia, você só está enviado para vários destinatários!!

[dmorsoleto 0]

valeu velho, funciono...

 

Mas você sabe como fazer para eu mandar uma copia e se possivel oculta???

 

valeu,

abços

[Ted k' 126]

acredito que no CDO é o Bcc

 

assim:

objMail.Bcc = "daniel@freead.com.br"