Enviar página HTML por correo electrónico, utilizando CDONTS. Problemas con las imágenes
Cómo puedo yo enviar una página HTML por email usando el CDONTS, ya lo hice enviando una variable desde un formulario con el coodigo HTML de la página ... Pero el problema es que me llega pero no me salen las imagenes prque ? .. Como puedo hacer para que me salgan las imágenes
1 Respuesta
Respuesta de neoicaro
1
Hay dos manera.. la primera, como ves aqui, es coger las imagenes desde el servidor
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<% Dim myMail
Dim HTML
Set myMail = CreateObject("CDONTS.NewMail") HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
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"""
HTML = HTML & " content=""Microsoft Visual Studio 6.0"">"
HTML = HTML & "<title>HTMLMail</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & "<IMG SRC=""http://www.microsoft.com/library/"
HTML = HTML & "images/gifs/homepage/microsoft.gif"" BORDER=0 "
HTML = HTML & "WIDTH=167 HEIGHT=36 ALT=""Microsoft Corporation"">"
HTML = HTML & "<p><font size =""3"" face=""Arial""><strong>"
HTML = HTML & "Microsoft Exchange CDONTS Example</strong></p>"
HTML = HTML & "<p><font size =""2"" face=""Tahoma"">"
HTML = HTML & "CDO for NTS allows an easy way to send mail.<br>"
HTML = HTML & "This example shows how the content can be "
HTML = HTML & "an HTML page<br>"
HTML = HTML & "which allows you to send rich text and"
HTML = HTML & "inline graphics.</p>"
HTML = HTML & "</body>"
HTML = HTML & "</html>" myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.Subject="Sample CDONTS HTML Message"
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.Body=HTML
myMail.Send
set mymail=nothing
Response.Write "Message Sent"
%>
</HEAD>
<BODY>
</BODY>
</HTML>
La segunda es enviar las imagenes en el MAil
'La primer aimagen la cargas desde el Web y la segunda es atachada
Dim MyMail As CDONTS.NewMail
Dim a$
Set MyMail = CreateObject("CDONTS.NewMail")
MyMail.MailFormat = CdoMailFormatMime
MyMail.BodyFormat = CdoBodyFormatHTML
MyMail.Importance = CdoHigh
MyMail.To = "[email protected]"
MyMail.From = "[email protected]"
MyMail.Subject = "CDONTS.NewMail HTML COOL"
Call MyMail.AttachFile("\\iguana98\c$\ie4get_animated.gif",
"test.gif")
a$ = "<HTML><BODY><H1>HI</H1><BR>"
a$ = a$ & "<img
src=
><BR>"
a$ = a$ & "<img src=test.gif><BR>"
a$ = a$ & "</BODY></HTML>"
MyMail.Body = a$
MyMail.Send
Set MyMail = Nothing
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<% Dim myMail
Dim HTML
Set myMail = CreateObject("CDONTS.NewMail") HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
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"""
HTML = HTML & " content=""Microsoft Visual Studio 6.0"">"
HTML = HTML & "<title>HTMLMail</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & "<IMG SRC=""http://www.microsoft.com/library/"
HTML = HTML & "images/gifs/homepage/microsoft.gif"" BORDER=0 "
HTML = HTML & "WIDTH=167 HEIGHT=36 ALT=""Microsoft Corporation"">"
HTML = HTML & "<p><font size =""3"" face=""Arial""><strong>"
HTML = HTML & "Microsoft Exchange CDONTS Example</strong></p>"
HTML = HTML & "<p><font size =""2"" face=""Tahoma"">"
HTML = HTML & "CDO for NTS allows an easy way to send mail.<br>"
HTML = HTML & "This example shows how the content can be "
HTML = HTML & "an HTML page<br>"
HTML = HTML & "which allows you to send rich text and"
HTML = HTML & "inline graphics.</p>"
HTML = HTML & "</body>"
HTML = HTML & "</html>" myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.Subject="Sample CDONTS HTML Message"
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.Body=HTML
myMail.Send
set mymail=nothing
Response.Write "Message Sent"
%>
</HEAD>
<BODY>
</BODY>
</HTML>
La segunda es enviar las imagenes en el MAil
'La primer aimagen la cargas desde el Web y la segunda es atachada
Dim MyMail As CDONTS.NewMail
Dim a$
Set MyMail = CreateObject("CDONTS.NewMail")
MyMail.MailFormat = CdoMailFormatMime
MyMail.BodyFormat = CdoBodyFormatHTML
MyMail.Importance = CdoHigh
MyMail.To = "[email protected]"
MyMail.From = "[email protected]"
MyMail.Subject = "CDONTS.NewMail HTML COOL"
Call MyMail.AttachFile("\\iguana98\c$\ie4get_animated.gif",
"test.gif")
a$ = "<HTML><BODY><H1>HI</H1><BR>"
a$ = a$ & "<img
src=
><BR>"a$ = a$ & "<img src=test.gif><BR>"
a$ = a$ & "</BODY></HTML>"
MyMail.Body = a$
MyMail.Send
Set MyMail = Nothing
