Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
317
Assunto : ASP
Titulo: Attachando imagens em e-mails em HTML

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Uma forma típica de enviar e-mails em HTML é montar o código HTML com imagens apontando para URLs no seu próprio site.

Porém isso faz com que o e-mail só possa ser lido on-line, pois as imagens terão que ser recuperadas do seu site quando o e-mail for aberto. Para resolver este problema temos o método attachURL do objeto newmail.

Esse método funciona de forma semelhante ao método attachFile, mas permite que o arquivo attachado seja utilizado dentro do código HTML, como se houvesse uma URL para ele.

Veja abaixo um exemplo obtido no site da Microsoft. Observe como a imagem é referenciada a partir da tag IMG :

Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")

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 & "<meta name=""GENERATOR"" content=""Microsoft FrontPage 2.0"">"
HTML = HTML & "<title>Exchange CDO Example</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "<p><font size=""6"" face=""Arial Black""><strong>Exchange CDO "
HTML = HTML & "Sample<img src=CDO.gif>"
HTML = HTML & "</strong></font></p>"
HTML = HTML & "<p>CDO for NTS allows an easy way to send mail."
HTML = HTML & "This example shows how the content can be an HTML page"
HTML = HTML & "which allows you to send rich text and inline graphics.</p>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"

myMail.AttachURL "D:\wwwroot\CDO.gif", "CDO.gif"
myMail.From = "Example@microsoft.com"
myMail.To = "Someone@microsoft.com"
myMail.Subject = "Sample Message"
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Body = HTML
myMail.Send




Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 1/31/2017 11:11:00 AM
nome: YDgXzdezSvwS
email: derby451@hotmail.com
comentário:
HyQ71Q http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/29/2017 8:27:00 AM
nome: aucrVEsvoLYvCiMn
email: jogcbfn@hotmail.com
comentário:
3Pl9Cr http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/29/2017 8:23:00 AM
nome: NBlJZFKScTWrPQJIj
email: derby451@hotmail.com
comentário:
OqpjeQ http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/5/2017 5:54:00 AM
nome: bFNkrveLGxWuRxxj
email: jfvynms4281rt@hotmail.com
comentário:
3KKVnQ http://www.FyLitCl7Pf7ojQdDUOLQOuaxTXbj5iNG.com

data: 1/4/2017 9:07:00 AM
nome: YrEbrKUYOPeHaJUsclt
email: jfvynms4281rt@hotmail.com
comentário:
Z2s9fv http://www.FyLitCl7Pf7ojQdDUOLQOuaxTXbj5iNG.com

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br