這個木鳥以前實驗過，但沒成功，最後改成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=""
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 %>
