asp发送html邮件中加入图片
日期：2010-05-14 浏览次数：21339 次
这个木鸟以前试验过，但没成功，最后改成http连接图片，看看你能成功不，成功了记得告诉大家
1 <HTML>
2
3 <body bgcolor=white>
4
5 <%
6
7 if request.ServerVariables("REQUEST_METHOD") = "GET" then
8
9 %>
10
11 <form action="htmlemail.asp" method=post>
12 <font face=verdana>
13 Your Name <input type="text" name="strName"> Your EMail <input type="text" name="strEmail">
14 <br>
15 Recipient Email <input type="text" name="strTo">
16 <p>
17
18 <textarea cols=40 rows=4 name=message>Your message</textarea>
19
20 </p>
21
22 <input type=submit name=send value=Send>
23
24 </form>
25
26 <%
27
28 else
29
30 Set objMail = Server.CreateObject("CDONTS.NewMail")
31 objMail.Importance = 1
32 objMail.From = request("strName") & "<" & request("strEmail") & ">"
33 objMail.To = request("strTo")
34 objMail.Subject = "Example of HTML EMail with Embeded Image"
35
36 ' this is my messages HTML
37 strMsg = "" & _
38 "<html><body bgcolor=red>" & _
39 "<a href=""http://www.RealWorldASP.com/""><img src=""http://www.webjx.com/htmldata/2005-05-05/http://www.webjx.com/htmldata/2005-05-05/logo.gif"" border=0 alt=""RealWorldASP"">" & _
40 "</a><p><font face=verdana>Example of a HTML Email with embedded Image<P><br>" & _
41 request("message") & _
42 "</body></html>"
43
44 ' Set the format of the email to html, etc
45 objMail.BodyFormat = 0
46 objMail.MailFormat = 0
47 objMail.Body = strMsg
48
49 ' attach our image file and Set the url to simply http://www.webjx.com/htmldata/2005-05-05/http://www.webjx.com/htmldata/2005-05-05/logo.gif
50 objMail.AttachURL server.MapPath("http://www.webjx.com/htmldata/2005-05-05/http://www.webjx.com/htmldata/2005-05-05/logo.gif"), "http://www.webjx.com/htmldata/2005-05-05/http://www.webjx.com/htmldata/2005-05-05/logo.gif"
51 objMail.Send
52
53 ' destroy the email object
54 Set objMail = Nothing
55
56 %>
57 <h1>
58 <font face=verdana>Message Sent, Thanks!</font>
59 </h1>
60
61 <% end if %>
1 <HTML>
2
3 <body bgcolor=white>
4
5 <%
6
7 if request.ServerVariables("REQUEST_METHOD") = "GET" then
8
9 %>
10
11 <form action="htmlemail.asp" method=post>
12 <font face=verdana>
13 Your Name <input type="text" name="strName"> Your EMail <input type="text" name="strEmail">
14 <br>
15 Recipient Email <input type="text" name="strTo">
16 <p>
17
18 <textarea cols=40 rows=4 name=message>Your message</textarea>
19
20 </p>
21
22 <input type=submit name=send value=Send>
23
24 </form>
25
26 <%
27
28 else
29
30 Set objMail = Server.CreateObject("CDONTS.NewMail")
31 objMail.Importance = 1
32 objMail.From = request("strName") & "<" & request("strEmail") & ">"
33 objMail.To = request("strTo")
34 objMail.Subject = "Example of HTML EMail with Embeded Image"
35
36 ' this is my messages HTML
37 strMsg = "" & _
38 "<html><body bgcolor=red>" & _
39 "<a href=""http://www.RealWorldASP.com/""><img src=""http://www.webjx.com/htmldata/2005-05-05/http://www.webjx.com/htmldata/2005-05-05/logo.gif"" border=0 alt=""RealWorldASP"">" & _
40 "</a><p><font face=verdana>Example of a HTML Email with embedded Image<P><br>" & _
41 request("message") & _
42 "</body></html>"
43
44 ' Set the format of the email to html, etc
45 objMail.BodyFormat = 0
46 objMail.MailFormat = 0
47 objMail.Body = strMsg
48
49 ' attach our image file and Set the url to simply http://www.webjx.com/htmldata/2005-05-05/http://www.webjx.com/htmldata/2005-05-05/logo.gif
50 objMail.AttachURL server.MapPath("http://www.webjx.com/htmldata/2005-05-05/http://www.webjx.com/htmldata/2005-05-05/logo.gif"), "http://www.webjx.com/htmldata/2005-05-05/http://www.webjx.com/htmldata/2005-05-05/logo.gif"
51 objMail.Send
52
53 ' destroy the email object
54 Set objMail = Nothing
55
56 %>
57 <h1>
58 <font face=verdana>Message Sent, Thanks!</font>
59 </h1>
60
61 <% end if %>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
