这个木鸟以前试验过，但没成功，最后改成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>" & _
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 /Article/UploadFiles/200605/2006517175040955.gif
50 objMail.AttachURL server.MapPath("/Article/UploadFiles/200605/2006517175040955.gif"), "/Article/UploadFiles/200605/2006517175040955.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 %>
