[Resolvido] Editar assunto no Email em ASP

[Rod.Web 0]

Pessoal gostaria de saber se é possivel, quando a pessoa

mandar um email eu receba já no titulo do assunto exemplo:

 

Asssunto: Formulário - João da Silva - 11 4040-4040

 

 

Aparecendo no assunto a palavra (Formulario + Nome + Fone)

 

Em .php eu consegui fazer isso mas em asp nao estou conseguindo, alguem sabe como fazer isso?

 

segue o cod. em .asp que eu estou utilizando:

<%
DIM strEmpresa, strNome, strEmail, strFone, strMenssagem, mail, reply, objMail
strEmpresa = request.form("Empresa")
strNome = request.form("Nome")
strEmail = request.form("Email")
strFone = request.form("Fone")
strMenssagem = request.form("Menssagem")
mail = "meu@email.com.br"
reply = request.form("Email")
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = reply
objMail.Subject = "Formulário"
objMail.To = mail
objMail.Body = "Email: " & strEmail & vbCrLf & _
"Empresa: " & strEmpresa & vbCrLf & _
"Nome: " & strNome & vbCrLf & _
"Fome: " & strFone & vbCrLf & _
"Menssagem: " & vbCrLf & strMenssagem
objMail.Send
Set objMail = nothing
%>
<h3>
<%
strName = request.form("Nome")
Response.Write strNome
%>,
Obrigado, seu E-mail foi enviado com sucesso! <br> 
Em breve estaremos entrando
  em contato.
<a href="http://www.meusite.com/contato.html">clique aqui</a> para voltar.</h3>

Obrigado

Rod Web

[DSerma 19]

basta alterar o Subject do e-mail..

 

objMail.Subject = "Aki você coloca oq você quiser......"

Abraços...

[Rod.Web 0]

Oi Darkdemo,

 

como sou um pouco leigo em asp veja se é assim que devo colocar:

 

...
objMail.Subject = "Formulário - & strNome & vbCrLf & strFone & vbCrLf & _"
...

?

 

Vlw

Rod Web

[Custellinha 0]

objMail.Subject = "Formulário - " & strNome & vbCrLf & strFone & vbCrLf &_

[Rod.Web 0]

Vlw Custelinha,

 

só mais uma duvida, em asp como faço para receber o email em duas contas de email?

 

atualmente no cod. esta assim:

 

...
mail = "meu@email.com.br"
...

em asp seria apenas eu separar por virgula? ficando assim:

mail = "meu@email.com.br, meu@email.com.br"

 

Obrigado

 

Rod Web

[ska_ska 0]

se não me engano é isso mesmo, porém acho que ao invés de virgula use ponto-e-virgula.

 

mail = "email1@mail.com;email2@mail.com"
objMail.To = mail

abs,

ska

[xanburzum 169]

<%

 

Set mail = Server.CreateObject("CDONTS.NewMail")

 

mail.to = "destinatario@provedor.com.br" 'destinatario, caso for mais de um, use ";"