Complete example of asp cdo. Message sending email by shawl. Qiu

Complete example of asp cdo. Message sending email by shawl. Qiu

Purpose:
ASP no component sends email
You only need to modify a few options to use the directly applied function.

Note:
The main operations are encapsulated in two functions: one is the mail form (fcdoform), and the other is the mail operation (fcdosendmail)
In addition to the primary recipient, CC and BCC are supported.
Dynamically select text/html format, or both
Enter SMTP information dynamically
Whether to use SSL
Three verification methods are supported.

Note:
Currently, the attachment function is not supported, mainly because of restrictions on the server and client.
Server scripts cannot directly read client files.

Directory:
1. Main Content: two main functions and complete application code
2. Preview:

Shawl. Qiu
2006-09-11
Http://blog.csdn.net/btbtd

1. Main Content: two main functions and complete application code

Linenum
1. <H1 style = "text-align: center! Important; color: red! Important; "> Asp CDO. message: the complete instance sent by shawl. Qiu
2. <H2 style = "float: Right! Important; margin: 0px; padding: 0px; "> <a href =" http://blog.csdn.net/btbtd "> shawl. Qiu </a> Code </H2>
3. <%
4. Dim maction, mfrom, MTO, MCC, mbcc, msubject, mbody
5. Dim msmtp, mport, mtimeout, MSSL, Muser, mpwd
6. Maction = "? Id = CDO"
7. Mfrom = "shawlqiu@21cn.com"
8. MTO = "shawl.qiu@gmail.com, btbtd@msn.com"
9. MCC = "btbtd@yahoo.com.cn"
10. Mbcc = "shawl. Qiu + 2@gmail.com"
11. Msubject = "mail subject"
12. Mbody = "test mail body" & CHR (13) & "" & CHR (13) & "<H2> HTML format </H2>"
13. Msmtp = "smtp.21cn.com"
14. Mport = 25
15. Mtimeout = 60
16. Muser = "shawlqiu"
17. Mpwd = "don't tell you"
19. Dim qid: qid = request. querystring ("ID ")
21. Call fcdosendmail (qid, request. Form)
23. If qid <> "CDO" then _
24. Call fcdoform (maction, mfrom, MTO, MCC, mbcc, msubject, mbody, msmtp, mport, mtimeout, Muser, mpwd)
26. Function fcdosendmail (RQs, rform)
27. '''''''''''''''''''''''''''''''''''''''' '''''''''''
28. 'Asp CDO. Message: complete email sending instance by shawl. Qiu
29. 'Cdo email sending function fcdosendmail
30. '''''''''''''''''''''''
31. 'Parameter description:
32. ''''''''''''''
33. 'Rqs = request. querystring (ID)
34. 'Rform = request. Form set
35. '''''''''''''''''''''''
36. 'Sample call:
37. ''''''''''''''
38. 'Call fcdosendmail (qid, request. Form)
39. '''''''''''''''''''''''''''''''''''''''' '''''''''''
40. If RQs = "" Or RQs <> "CDO" then exit function
41. If isobject (rform) = false then exit function
42. Dim temp
43. For each temp in rform
44. Select case temp
45. Case "mtextbody"
46. Case "mhtmlbody"
47. Case "mfile"
48. Case "MSSL"
49. Case else
50. Execute "dim" & temp & ":" & temp & "= request. Form (temp )"
51. End select
52. Next
53. Dim MSSL, mtextbody, mhtmlbody
54. MSSL = request. Form ("MSSL ")
55. Mtextbody = request. Form ("mtextbody ")
56. Mhtmlbody = request. Form ("mhtmlbody ")
57. Mbody = "<meta http-equiv =" "Content-Type" "content =" "text/html; charset = gb2312" "/>" & CHR (13) & mbody
59. If MSSL = "" Then MSSL = false else MSSL = true
60. Dim CDO
61. Set CDO = Createobject ("CDO. Message ")
62. 'Configuration information for the remote SMTP Server
63. With CDO. configuration. Fields
64. . Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = msend
65. . Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = msmtp 'smtp server address
66. . Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = mport 'port 25
67. . Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = muser' User Name
68. . Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mpwd 'User Password
69. . Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = mauth 'None, basic (base64 encoded), NTLM
70. . Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = mtimeout' timeout settings, in seconds
71. . Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = MSSL 'whether to use socket true/false
72. . Update
73. End
74. With CDO
75. . From = mfrom
76. . To = MTO
77. If MCC <> "then. Cc = MCC
78. If mbcc <> "then. bcc = mbcc
79. . Subject = msubject
80. If mtextbody <> "then. textbody = mbody
81. If mhtmlbody <> "then. htmlbody = mbody
83. 'If Len (mfile)> 0 then. addattachment mfile
84. '// CDO attachment sending rule: available variables for files in the current directory, not available variables in the current directory
85. On Error resume next
86. . Send
87. If err. Number <> 0 then response. Write "failed to send the email, error no :"&_
88. Err. Number & "<br/> error Description:" & err. Description else response. Write "email sent"
89. End with 'shawl. Qiu Code'
90. Set CDO = nothing
91. End Function
92. Function fcdoform (maction, mfrom, MTO, MCC, mbcc, msubject, mbody, msmtp, mport, mtimeout, Muser, mpwd)
93. If maction = "" Then exit function
94. '''''''''''''''''''''''''''''''''''''''' '''''''''''
95. 'Asp CDO. Message: complete email sending instance by shawl. Qiu
96. 'Cdo email sending form function fcdoform
97. '''''''''''''''''''''''
98. 'Parameter description: (except for maction, other parameter values are not required)
99. ''''''''''''''
100. 'Maction = form submission URL, such :? Id = CDO
101. 'Mfrom = sender email
102. 'Mto = recipient email
103. 'Mcc = recipient email
104. 'Mbcc = recipient email
105. 'Msubject = Mail title
106. 'Mbody = Email content
107. 'Msmtp = SMTP server address, for example, smtp.21cn.com
108. 'Mport = SMTP port, for example, 25
109. 'Mtimeout = timeout limit, for example, 60 (unit: seconds)
110. 'Muser = User Name
111. 'Mpwd = Password
112. '''''''''''''''''''''''
113. 'Sample call:
114. ''''''''''''''
115. 'Dim maction, mfrom, MTO, MCC, mbcc, msubject, mbody
116. 'Dim msmtp, mport, mtimeout, MSSL, Muser, mpwd
117. 'Maction = "? Id = CDO"
118. 'Mfrom = "shawlqiu@21cn.com"
119. 'Mto = "shawl.qiu@gmail.com, btbtd@msn.com"
120. 'Mcc = "btbtd@yahoo.com.cn"
121. 'Mbcc = "shawl. Qiu + 2@gmail.com"
122. 'Msubject = "mail subject"
123. 'Mbody = "test mail body" & CHR (13) & "" & CHR (13) & "<H2> HTML format </H2>"
124. 'Msmtp = "smtp.21cn.com"
125. 'Mport = 25
126. 'Mtimeout = 60
127. 'Muser = "shawlqiu"
128. 'Mpwd = "yourpassword"
129. 'Call fcdoform (maction, mfrom, MTO, MCC, mbcc, msubject, mbody, msmtp, mport, mtimeout, Muser, mpwd)
130. '''''''''''''''''''''''''''''''''''''''' '''''''''''
131. %>
132. <Form action = "<% response. Write maction %>" method = "Post" name = "mcdo">
133. <P> from:
134. <Input name = "mfrom" type = "text" value = "<% response. Write mfrom %>" size = "50%"/> <br/>
135. To: <input name = "MTO" type = "text" value = "<% response. Write MTO %>" size = "50%"/>
136. <Br/>
137. Cc: <input name = "MCC" type = "text" value = "<% response. Write MCC %>" size = "50%"/> <br/>
138. BCC: <input name = "mbcc" type = "text" id = "mbcc" value = "<% response. write mbcc %> "size =" 50% "type =" codeph "text ="/codeph "/> <br/>
139. Subject: <input name = "msubject" type = "text" value = "<% response. Write msubject %>" size = "50%"/> <br/>
140. Email format:
141. Text: <input type = "checkbox" name = "mtextbody" value = "yes" Checked = "checked"/>
142. HTML: <input type = "checkbox" name = "mhtmlbody" value = "yes"/> <br/>
143. Text: <br/> <textarea name = "mbody" Cols = "77" rows = "10"> <% response. Write mbody %> </textarea> <br/>
144. Remote SMTP: <input name = "msmtp" type = "text" value = "<% response. Write msmtp %>"/>
145. Port: <input name = "mport" type = "text" value = "<% response. Write mport %>" size = "5"/>
146. Timeout: <input name = "mtimeout" type = "text" value = "<% response. Write mtimeout %>" size = "5"/>
147. Sec ssl: <input type = "checkbox" name = "MSSL" value = "ture"/> <br/>
148. Username: <input name = "Muser" type = "text" value = "<% response. Write Muser %>"/> <br/>
149. Password: <input name = "mpwd" type = "password" value = "<% response. Write mpwd %>"/> <br/>
150. SMTP verification options:
151. <Select name = "mauth">
152. <Option value = "0"> Anonymous Authentication </option>
153. <Option value = "1" selected = "selected"> general verification </option>
154. <Option value = "2"> NTLM verification </option>
155. </SELECT>
156. Email sending options:
157. <Select name = "msend">
158. <Option value = "1"> send using pickup </option>
159. <Option value = "2" selected = "selected"> send using port </option>
160. </SELECT>
161. <Br/>
162. <Input type = "Submit" value = "Submit"/> <input type = "reset" value = "reset"/>
163. </Form> <! -- Shawl. Qiu code -->
164. <% End function %> <br/>
165. <A href = "? "> Back </a>

2. Preview:

 

Complete example of asp cdo. Message sending email by shawl. qiushawl. Qiu code

Back