Ir para conteúdo

POWERED BY:

Arquivado

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

Nando Leads

Erro ao enviar email com imagem...

Por , em ASP Clássico

Recommended Posts

Nando Leads    0

Nando Leads
Postado

Bom dia a todos...

 

uso o seguinte codigo para envio de email:

<%varTelefone = Request("telefone")varDuvidas  = Request("duvidas")varSetor	= Request("setor")varMsg	  = Request("mensagem")DIM Mail Set Mail = Server.CreateObject("Persits.MailSender")HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & "content=""text/html; charset=iso-8859-1"">" HTML = HTML & "<title>Exemplo de envio de email HTML com Anexo</title>"HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""#FFFFFF"">"HTML = HTML & "<p><font size=""2"" face=""Verdana"">"& var_nome &" enviou-lhe um contato via seu site dia "& var_data &" contendo os seguintes dados: <br>"HTML = HTML & "Nome: "& var_nome &"<br>" HTML = HTML & "Email: "& var_mail &"<br>"HTML = HTML & "Telefone: "& var_telefone &"<br>"HTML = HTML & "Cidade: "& var_cidade &"<br>"  HTML = HTML & "Mensagem: "& var_mensagem &"<br>" HTML = HTML & "<img src="http"://www.teste.com.br/Fernando/Teste/site_imagem.png" width="216" height="120"">"HTML = HTML & "</strong></font></p>" HTML = HTML & "</body>" HTML = HTML & "</html>"Mail.IsHTML = TrueMail.Host = "www.teste.com.br" Mail.From = Request.Form("fromemail") Mail.FromName = Request.Form("fromnome") Mail.AddAddress "teste@gmail.com" Mail.Subject = varDuvidas &" : "& varSetorMail.Body =  HTMLOn Error Resume Next Mail.Send If Err <> 0 Then    Response.Write "<H2>Ocorreu um erro: " & Err.Description & "</h2>" End If If Err = 0 Then    Response.Write("<H2>Obrigado Sr(a) " & Request.Form("fromnome") & ", seu e-mail foi enviado com sucesso!</H2>")    End If Set Mail = Nothing %>

mas quando tento enviar o mesmo acontece o seguinte erro:

 

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

/Fernando/Teste/enviar_html.asp, line 28

 

HTML = HTML & "<img src="http"://www.leadsnet.com.br/Fernando/Teste/site_imagem.png" width="216" height="120"">"

-------------------------^

 

ñ oq pode estar acontecendo...

 

estou tentando enviar uma pagina simples em html, com 1 imagens que esta em uma pasta no servidor...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Nando Leads    0

Nando Leads
Postado

isso mesmo....deu serto... com meu email...mas no email da empresa onde uso o outlook, a imagem ñ aparece...sera que é alguma configuração???valeu pela força.

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

o outlook bloqueia imagens....altere as configurações do software para permitir a exibição de imagens

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

pode até ser, se em outros e-mail chega as imagens pode ser isso (microsoft tem um "problema" com png, apenas para conhecimento, até a versão IE6 não reconhece transparencia de png).na verdade te passei um "não" sem tanta certeza, possivelmente exista criando um activex, mas ai o cliente vai ter que instalar algo na máquina e normalmente isso não usamos poia muitos acham que é virus.você já verificou as configurações do outlook pra ver se está habilitado para ver imagens?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Nando Leads    0

Nando Leads
Postado

CARA ERA ISSO MESMO...PASSEI A IMAGEM PARA .JPG E DEU SERTO...mas ainda tenho duvidas de como montar a pagina html para enviar pelo email...pelo que eu vi, você acrecentou ao meu codigo algumas aspas("), gostaria de saber qual é a logica para fazer isso,e se existe alguma maneira tipo, usando o include, para enviar uma pagina enteira por email...estou tentando adaptar meu codigo para enviar uma pagina com aproximadamente 186 linhas, e isso fica muito cansativo quando da erro...existe alguma outra forma de facilitar isso?

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

include não tem, o que pode ser feito é crair uma página "padrão" com extensão html e nela passar dados que serão utilizados como variaveis, exemplo

<body>##nome####email##</body>
e no asp você utiliza FSO para abrir esse arquivo html, utiliza um replace para trocar ##nome## pela variavel do asp e assim para os demais campos, depois envia o email

Set objFSO = CreateObject("Scripting.FileSystemObject")	Set objHTML = objFSO.OpenTextFile( server.MapPath("emails") & "\teste.html", 1, True, 0)	mensagem = objHTML.ReadAll	Set objHTML = Nothing	Set objFSO = Nothing	mensagem = Replace(mensagem, "##nome##", strNome)	mensagem = Replace(mensagem, "##email##", strEmail)
depois disso envia o email, sendo que o body do email será a variavel mensagem

Compartilhar este post

Link para o post
Compartilhar em outros sites

Nando Leads    0

Nando Leads
Postado

ESSA PARTE EU ENTENDI...MAS OQ EU QUERO FAZER É ENVIAR REALMENTE A PAGINA, TIPO NEWSLETER.... QUE SERA EXECUTADA NO EMAIL, TIPO A NEWSLETER AQUI DO IMARTES... COM IMAGENS, ANIMAÇÕES... A PAGINA EU JA TENHO... Ñ ESTOU É CONSEGUINDO ENVIAR ELA PARA O BODY DO EMAIL... MAS VALEU PELA DICA, FOI MUITO UTIL....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Nando Leads    0

Nando Leads
Postado

Desculpe ae pela falta de atenção...

 

tentei adaptar sua dica ao meu codigo mas deu um erro ao executar.

 

o erro é o seguinte:

 

Microsoft VBScript runtime error '800a004c'

 

Path not found

 

/Fernando/Teste/contato_envia.asp, line 23

 

e a parte do codigo é essa:

 

DIM Mail Set Mail = Server.CreateObject("Persits.MailSender") Mail.IsHTML = TrueMail.Host = "www.teste.com.br" Mail.From = Request.Form("txtEmail") Mail.FromName = Request.Form("txtNome") Mail.AddAddress "teste@gmail.com" Mail.Subject = varDuvidas Set objFSO = CreateObject("Scripting.FileSystemObject")''''''''''acho que o erro é nessa linha'''''''''''''Set objHTML = objFSO.OpenTextFile( server.MapPath("Fernando/Teste") & "\contato.html", 1, True, 0)Mail.Body = objHTML.ReadAll

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

a mensagem é de arquivo ou caminho não encontrado

nessa parte

Set objHTML = objFSO.OpenTextFile( server.MapPath("Fernando/Teste") & "\contato.html", 1, True, 0)
você deve colcoar um caminho válido, coloque contato.html na mesma pasta que a página que envia o email, substitua essa linha por essa

Set objHTML = objFSO.OpenTextFile( server.MapPath(".") & "\contato.html", 1, True, 0)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Nando Leads    0

Nando Leads
Postado

Valeu...pela força...era isso mesmo que eu queria.... na mosca....muito obrigado pela força mais uma vez...até a proxima...

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