AspMail

[lasserre 0]

Seguindo instruções do provedor, escolhi o componente AspMail para criação do formulário.

O formulário funciona perfeitamente e está validado.

Entretanto, a mensagem chega no outlook do cliente com caracteres especiais e no webmail chega normalmente, com acentuação ok.

Existe algum script que eu consiga receber no Outlook da mesma forma que no webmail?

 

Segue o código:

<%

Dim Mail ' objeto mail 
Dim FromName ' nome do remetente
Dim FromEmail ' endereço de E-mail do remetente
Dim ToEmail ' endereço do destinatario 
Dim DDD ' DDD do destino
Dim Tel ' Telefone do destino
Dim Subject, strBody ' corpo da mensagem
Dim ThisPage ' o endereco do seu site
Dim RefPage ' a referencia URL 
Dim Val_Input ' variável Booleana usada na validação 
Dim meusmtp 
Dim minhacontaautenticada
Dim minhasenhaparaenvio

meusmtp = "smtp.valqueireturismo.com.br" ' Informacoes so seu servidor SMTP
minhacontaautenticada = "atendimento@dominio.com.br" ' conta de e-mail utilizada para enviar
minhasenhaparaenvio = "senha" ' senha da conta de e-mail
emaildestino = "atendimento@dominio.com.br" ' e-mail que vai receber as mensagens do formulario

ThisPage = Request.ServerVariables("SCRIPT_NAME")
RefPage = Request.ServerVariables("HTTP_REFERER")

strBody = Trim(Request.Form("Message"))
Subject = Trim(Request.Form("Subject"))
ToEmail = emaildestino
FromName = Trim(Request.Form("FromName"))
FromEmail = Trim(Request.Form("FromEmail"))
DDD = Trim(Request.Form("FromDDD"))
Tel = Trim(Request.Form("FromTel"))

val_ent = True
val_ent = val_ent And FromName <> ""
val_ent = val_ent And val_email(FromEmail)
val_ent = val_ent And val_email(ToEmail)

If val_ent Then

Set Mail = Server.CreateObject("Persits.MailSender") 
Mail.Host = meusmtp
Mail.Port = 25
Mail.Username = minhacontaautenticada
Mail.Password = minhasenhaparaenvio
Mail.From = minhacontaautenticada
Mail.FromName = FromName
Mail.AddAddress ToEmail 
Mail.Subject = Subject
Mail.Body = "Dados"& vbCrLf & _
"Nome:"& Request("FromName")  & vbCrLf & _
"E-Mail:"& Request("FromEmail")  & vbCrLf & _
"Assunto:"& Request("Subject")  & vbCrLf & _
"Mensagem:"& Request("Message")  & vbCrLf & _
"DDD:"& Request("FromDDD") & vbCrLf & _
"Telefone:"& Request("FromTel")

Mail.Send
mensagem_erro = ""
if err <> 0 then
	mensagem_erro = "Ocorreu o erro: " & Err.description
end if

Mail.CharSet = "UTF-8"
Set Mail = Nothing
on error goto 0
response.Redirect("http://www.valqueireturismo.com.br/resposta.html")
Else
Forms_x ThisPage, FromName, FromEmail, Subject, strBody
End If

Function val_email(strEmail)
Dim xVal
xVal = True 

If Len(strEmail) < 5 Then
	xVal = False
Else
	If Instr(1, strEmail, " ") <> 0 Then
		xVal = False
	Else
		If InStr(1, strEmail, "@", 1) < 2 Then 
			xVal = False
		Else
			If InStrRev(strEmail, ".") < _
				InStr(1, strEmail, "@", 1) + 2 Then
				xVal = False
			End If
		End If
	End If
End If

val_email = xVal
End Function

Sub Forms_x (strPageName, FromName, FromEmail, Subject, strBody) %>

<form id="form_fale" action="<%=strPageName%>" method="post" name=frmReferral onSubmit="return enviardados();">
           <label id="campo_fale_nome" class="tipo_form">*Nome:</label>
           <input id="input_fale_nome" class="tipo_form" type="text" name="FromName" value="<%=FromName%>" SIZE="60" />
           <label id="campo_fale_mail" class="tipo_form">*E-mail:</label>
           <input id="input_fale_mail" class="tipo_form" type="text" name="FromEmail" value="<%=FromEmail%>" SIZE="60" />

           <label id="campo_fale_ddd" class="tipo_form"> DDD:</label>
           <input id="input_fale_ddd" class="tipo_form" type="text" name="FromDDD" value="<%=FromDDD%>" />
           <label id="campo_fale_tel" class="tipo_form"> Telefone:</label>
           <input id="input_fale_tel" class="tipo_form" type="text" name="FromTel" value="<%=FromTel%>" />


           <label class="fundo_transp">
               <select id="campo_fale_opcao" class="tipo_select" name="Subject" size="1">
               	<option value="Cotações" selected="selected">Pedir cotação</option>   
                       <option value="Informações">Pedir maiores informações</option>
			<option value="Dúvidas">Tirar dúvidas</option>
 			<option value="Comentários">Fazer comentários</option>
 			<option value="Sugestões">Enviar sugestões</option>
                       <option value="Elogios">Fazer elogios</option>
 			<option value="Reclamações">Fazer reclamações</option>
	</select>
	    </label>
           <label id="campo_fale_comments" class="tipo_form">*</label>
           <textarea id="textarea_fale_mensagem" class="tipo_form scrol" name="Message" cols="15" rows="7" wrap="virtual" ><%=strBody%></textarea>           
           <input id="botao_enviar_fale" class="tipo_botao botoes" type="submit" value="Enviar" name=subReferral />  
      </form>

 

Obrigada pela ajuda!!

Cristiane

[Gilberto Jr 26]

<%

Dim Mail ' objeto mail 
Dim FromName ' nome do remetente
Dim FromEmail ' endereço de E-mail do remetente
Dim ToEmail ' endereço do destinatario 
Dim DDD ' DDD do destino
Dim Tel ' Telefone do destino

 

O seu codigo no inicio esta da forma acima, coloca da seguinte forma;

acrescenta o seguinte

response.ContentType="text/html; charset=ISO-8859-1"

ficaria assim:

<%
response.ContentType="text/html; charset=ISO-8859-1"
Dim Mail ' objeto mail 
Dim FromName ' nome do remetente
Dim FromEmail ' endereço de E-mail do remetente
Dim ToEmail ' endereço do destinatario 
Dim DDD ' DDD do destino
Dim Tel ' Telefone do destino

 

Pode ser que resolva,

Espero ter ajudado.

[lasserre 0]

Gilberto, não funcionou.

Apareceram caracteres especiais na página e no e-mail nada mudou.

Obrigada pela tentativa!