spicirmkh
شنبه 11 تیر 1384, 16:57 عصر
سلام
من برنامه ایمیل نوشتم که یک متن ایمل بصورت HTML ارسال می کند
و فایل گرافیکی در سایت گذاشتم وقتی ایمیل ارسال می کنم باید راست کلیک کنم تا فایل گرافیکی دانلود شود
بعضی ایمیل تبلیغاتی هستند که عکس در متن ایمیل است و نیاز نیست عکس دانلو کنیم من سورس برنامه و حالتهای خروجی نمایش می دهم چه کنم که عکس در متن ایمیل برای همیشه باشد
<%
Dim MyCDONTSMail
Dim HTML
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
HTML = HTML & "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"""
HTML = HTML & """http://www.w3.org/TR/html4/loose.dtd"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<title>Untitled Document</title>"
HTML = HTML & "</head>"
HTML = HTML & ""
HTML = HTML & "<body>"
HTML = HTML & "<table width=""100%"" height=""133"" border=""0"" align=""center"" cellspacing=""0"">"
HTML = HTML & " <tr>"
HTML = HTML & " <td>"
HTML = HTML & " <p align=""center""><a target=""_blank"" href=""http://www.spic.ir"">"
HTML = HTML & " <img border=""0"" src=""http://www.spic.ir/Eimg/std/std2004.jpg"" width=""566"" height=""321""></a></td>"
HTML = HTML & " </tr>"
HTML = HTML & " <tr>"
HTML = HTML & " <td>"
HTML = HTML & " &nbsp;</td>"
HTML = HTML & " </tr>"
HTML = HTML & "</table>"
HTML = HTML & "<div style=""position: absolute; width: 100px; height: 21px; z-index: 1; left: 390px; top: 308px"" id=""layer2"" align=""center"">"
HTML = HTML & " <a target=""_blank"" href=""mailto:info@spic.ir"">info@spic.ir</a></div>"
HTML = HTML & "<div style=""position: absolute; width: 100px; height: 20px; z-index: 1; left: 241px; top: 308px"" id=""layer1"">"
HTML = HTML & " <p align=""center""><a target=""_blank"" href=""http://www.spic.ir"">www.spic.ir</a></div>"
HTML = HTML & "</body>"
MyCDONTSMail.From= "spic@spic.ir"
MyCDONTSMail.To="info@spic.ir"
MyCDONTSMail.Subject="STANDARD 2004 "
MyCDONTSMail.BodyFormat=0
MyCDONTSMail.MailFormat=0
MyCDONTSMail.Body=HTML
MyCDONTSMail.Send
set MyCDONTSMail=nothing
response.write(" Send Email Ok !!!!!!!!!!!!!!!!")
%>
من برنامه ایمیل نوشتم که یک متن ایمل بصورت HTML ارسال می کند
و فایل گرافیکی در سایت گذاشتم وقتی ایمیل ارسال می کنم باید راست کلیک کنم تا فایل گرافیکی دانلود شود
بعضی ایمیل تبلیغاتی هستند که عکس در متن ایمیل است و نیاز نیست عکس دانلو کنیم من سورس برنامه و حالتهای خروجی نمایش می دهم چه کنم که عکس در متن ایمیل برای همیشه باشد
<%
Dim MyCDONTSMail
Dim HTML
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
HTML = HTML & "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"""
HTML = HTML & """http://www.w3.org/TR/html4/loose.dtd"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<title>Untitled Document</title>"
HTML = HTML & "</head>"
HTML = HTML & ""
HTML = HTML & "<body>"
HTML = HTML & "<table width=""100%"" height=""133"" border=""0"" align=""center"" cellspacing=""0"">"
HTML = HTML & " <tr>"
HTML = HTML & " <td>"
HTML = HTML & " <p align=""center""><a target=""_blank"" href=""http://www.spic.ir"">"
HTML = HTML & " <img border=""0"" src=""http://www.spic.ir/Eimg/std/std2004.jpg"" width=""566"" height=""321""></a></td>"
HTML = HTML & " </tr>"
HTML = HTML & " <tr>"
HTML = HTML & " <td>"
HTML = HTML & " &nbsp;</td>"
HTML = HTML & " </tr>"
HTML = HTML & "</table>"
HTML = HTML & "<div style=""position: absolute; width: 100px; height: 21px; z-index: 1; left: 390px; top: 308px"" id=""layer2"" align=""center"">"
HTML = HTML & " <a target=""_blank"" href=""mailto:info@spic.ir"">info@spic.ir</a></div>"
HTML = HTML & "<div style=""position: absolute; width: 100px; height: 20px; z-index: 1; left: 241px; top: 308px"" id=""layer1"">"
HTML = HTML & " <p align=""center""><a target=""_blank"" href=""http://www.spic.ir"">www.spic.ir</a></div>"
HTML = HTML & "</body>"
MyCDONTSMail.From= "spic@spic.ir"
MyCDONTSMail.To="info@spic.ir"
MyCDONTSMail.Subject="STANDARD 2004 "
MyCDONTSMail.BodyFormat=0
MyCDONTSMail.MailFormat=0
MyCDONTSMail.Body=HTML
MyCDONTSMail.Send
set MyCDONTSMail=nothing
response.write(" Send Email Ok !!!!!!!!!!!!!!!!")
%>