(Resolvido) Como posso colocar imagem

[arldin]

Boa tarde amigos

Gostaria de saber se tem como colocar imagem no corpo do email, usando

Este script

enviar1a.asp

<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")


'Variaveis
Dim meuservidorsmtp
Dim minhacontaautenticada
Dim minhasenhaparaenvio
Dim emailorigem
Dim emaildestino

'Abaixo seguem algumas definicoes de variaveis para o envio de seu formulario. Por favor preencha os campos abaixo.

meuservidorsmtp = "mail.arldinartfest.com.br" ' Informacoes so seu servidor SMTP
minhacontaautenticada = "arldin@arldinartfest.com.br" ' conta de e-mail utilizada para enviar
minhasenhaparaenvio = "XXXXXXX" ' senha da conta de e-mail
emailorigem = "pedidos@arldinartfest.com.br" ' e-mail que indica de onde partiu a mensagem
emaildestino = "arldin@arldinartfest.com.br" ' e-mail que vai receber as mensagens do formulario

'Fim da definição manual de parâmetros.

cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = meuservidorsmtp
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "sendusername") = minhacontaautenticada
cdoConfig.Fields.Item(sch & "sendpassword") = minhasenhaparaenvio
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig

cdoMessage.BodyPart.Charset = "utf-8"
cdoMessage.From = emailorigem
cdoMessage.To = emaildestino
cdoMessage.Subject = "Formulario de Pedido"
cdoMessage.ReplyTo = Request("responder")

strBody = "<strong><p><center><font color=blue>FORMULARIO DE PEDIDOS</font></center></strong>" & vbCrLf & vbCrLf & _
(GOSTARIA QUE A IMAGEM APARECE-SE AQUI...ESTA PARTE NÃO E DO SCRIPT)

"<strong><p><font color=red>HOMEM ARANHA QUANT: </font> "& Request("quant1") & vbCrLf & _ 
"<strong><font color=blue>TOTAL: </strong></font> "& Request("total1") & vbCrLf & _
"<strong><p><font color=red>FLAMENGO QUANT: </font> "& Request("quant2") & vbCrLf & _
"<strong><font color=blue>TOTAL: </font></strong> "& Request("total2") & vbCrLf & _
"<strong><p><font color=red>VASCO QUANT: </font> "& Request("quant3") & vbCrLf & _


strBody = strBody & "."
cdoMessage.HTMLBody = strBody
cdoMessage.Send()


Set cdoMessage = Nothing
Set cdoConfig = Nothing

response.redirect "envio.htm"
%>

[bareta]

uai... pensa

msg="<img src=http://www.site.com/imagem.gif>"

[arldin]

já tinha tentado deste jeito e não funciona

[Rafael Spilki]

Rapaiz... você vai ter que parar algum dia e ler um livro sobre asp amigão...

A horas te acompanho neste fórum e na boa, você não tem estudado...

Digo isso pro seu próprio bem, espero que não se ofenda, mas pegue um livro (comece com asp básico) e vai estudar... comece fazendo codigos simples, como mostrar data e hora na tela, inverter essas datas, deparar estas datas e daí por diante...

Isso abaixo TEM QUE funcionar, se não funcionar é outro problema, como derepente o caminho da sua imagem incorreto no servidor, componente de e-mails inexistente ou qualquer outra coisa que não a montagem do corpo do email:

strBody = "<strong><p><center><font color=blue>FORMULARIO DE PEDIDOS</font></center></strong>" & "<BR>" & "<BR>"
strBody = strBody  & "<img src="&Chr(34)&"http://www.site.com/imagem.gif"&Chr(34)&">" & "<BR>"
strBody = strBody  & "<strong><p><font color=red>HOMEM ARANHA QUANT: </font> "& Request("quant1") & "<BR>"
strBody = strBody  & "<strong><font color=blue>TOTAL: </strong></font> "& Request("total1") & "<BR>"
strBody = strBody  & "<strong><p><font color=red>FLAMENGO QUANT: </font> "& Request("quant2") & "<BR>"
strBody = strBody  & "<strong><font color=blue>TOTAL: </font></strong> "& Request("total2") & "<BR>"
strBody = strBody  & "<strong><p><font color=red>VASCO QUANT: </font> "& Request("quant3") & "<BR>"
strBody = strBody & "."

[]'s Rafael Spilki

[arldin]

Obrigado pela sua atenção amigo Rafael.

Se você nota quando eu posta a duvida e que já tentei com varios livros que eu tenho e não consigo

E aquele velho ditado a pratica e melhor do que a teoria

Funcionou perfeitamente

Muito obrigado