|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Attachando imagens em e-mails em HTML
|
 |
|
|
|
Postada em 1/10/2003 por ~Ð@®£@Ñ
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
|
|
|
|
|
