Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

flneves

[Resolvido] DundasMail

Por , em ASP Clássico

Recommended Posts

flneves    0

flneves
Postado

Pessoal,

 

Tenho um formulário contendo as os campos: Nome/Email/Estado/Cidade/Telefone/Assunto/Mensagem e uso o Dundas porém quando envia so coloca no body do email a MENSAGEM, gostaria de personalizar o email como abaixo, podem ajudar???

 

 

**************************************

Enviado do site xxxxx

Usuário: Nome

Email - Email

**************************************

Cidade - Estado / Telefone

**************************************

Assunto:

 

Mensagem:

 

 

Segue código:

<%
'crio o objeto correio
set mail = server.createObject("Persits.MailSender") 
'configuro a mensagem 
'assinalo o servidor de saída para enviar o correio 
mail.host = "mail.velassaojoao.com.br" 
'indico o endereço de correio do remitente 
mail.from = "contato@velassaojoao.com.br" 
'indico o endereço do destinatário da mensagem 
mail.addAddress "oqueseja@seudominio.com" 
'indico o corpo da mensagem 
mail.body = corpo 
'o envio 
'certifico-me que não se apresentem erros na página se se produzem 
On Erro Resume Next 
mail.send 
if Err ><0 then 
response.write "Erro, não pode completar a operação" 
else 
response.write "Obrigado por preencher o formulário. Foi enviado corretamente." end if 
Set objEmail = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

cria sua mensagem no mail.body, com HTML

Pode usar texto ou o formato HTML , no segundo caso devemos definir a propriedade IsHTML como True. 

Mail.Body = "<HTML><BODY BGCOLOR=#0000FF>Enviado do site xxxxx:....</BODY></HTML>" 
Mail.IsHTML = True

Compartilhar este post

Link para o post
Compartilhar em outros sites

flneves    0

flneves
Postado

Meu amigo, postei o código errado!!!!

 

segue o certo:

 

<%
'PARA QUE SEU SCRIPT FUNCIONE É NECESSARIO SOMENTE INSERIR SEU E-MAIL E SMTP NAS LINHAS 3 E 4
mailsend = "contato@velassaojoao.com.br"  'COLOQUE AQUI O E-MAIL QUE VAI RECEBER A MENSAGEM.
seusmtp = "mail.velassaojoao.com.br"   'COLOQUE AQUI O SMTP DE SEU DOMÍNIO.
'PRONTO ASSIM SEU SCRIPT ENVIARÁ OS DADOS INFORMADOS NO FORMULÁRIO
Dim objEmail     'Controle de Email

'Muitos métodos do controle lançam uma exception, entao vamos utilizar On Error
On Error Resume Next

Set objEmail = Server.CreateObject("Dundas.Mailer")     'Objeto de Email

'Vamos capturar os dados passados pelo formulário
Nome = Request("nome")
Email = Request("email")
Assunto = Request("assunto")
Mensagem = Request("mensagem")
Estados = Request("estados")
Cidade = Request("cidade")
Telefone = Request("telefone")


'endereço de quem vai receber o e-mail(nao altere pois o e-mail foi informado na linha 3)
objEmail.TOs.Add mailsend

'Assunto da Mensagem
objEmail.Subject = Assunto

'Endereço de quem está ENVIANDO o Email(nao altere pois o e-mail vem do formulário.)
objEmail.FromAddress = Email

'Endereço de SMTP do servidor(nao altere pois já informou o mesmo na linha 4)
objEmail.SMTPRelayServers.Add seusmtp

'Seta a propriedade Body. Mensagem do Email
objEmail.Body = Assunto
objEmail.Body = Nome
objEmail.Body = Mensagem


'Envia o Email
objEmail.SendMail

'Testa por sucesso ou falha no envio
If Err.Number <> 0 Then
'Ocorreu um erro, então mostramos a descrição
    Response.Write "Ops!!! Ocorreu o seguinte erro: " & Err.Description
Else
'Sucesso! no envio do e-mail 
    Response.Write "O Email foi enviado com sucesso!"
End If

'Tira o objeto da memória
Set objEmail = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

entaun este esta correto, ou gera algum erro ainda...

Compartilhar este post

Link para o post
Compartilhar em outros sites

flneves    0

flneves
Postado

entaun este esta correto, ou gera algum erro ainda...

 

 

Não replica as informações solicitadas, como:

 

 

'Seta a propriedade Body. Mensagem do Email

objEmail.Body = Assunto

objEmail.Body = Nome

objEmail.Body = Mensagem

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá um response.write nas vareiaveis para ver o k esta sendo passada...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Da forma que está só será enviado a última informação passada para o "Body" do objeto de envio de e-mail.

 

Monte o corpo do e-mail em uma variável única antes de carregar o "Body" do objeto de envio.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito