如何用組件實(shí)現(xiàn)自動(dòng)發(fā)送電子郵件?
如何用組件實(shí)現(xiàn)自動(dòng)發(fā)送電子郵件?
JMailUploadAutoForm.asp
<html>
<body>
<font face="verdana, arial" size="2"><b>
<form method="post" action="JmailUploadAutoFormProcess.asp" ENCTYPE="multipart/form-data">
<p>撼雪噴云之動(dòng)發(fā)送電子郵件</p>
請(qǐng)?zhí)顚懞帽韱?/SPAN>,點(diǎn)擊發(fā)送!
<br><br>
您的姓名<br>
<input type="text" size="25" name="name"><br>
電子郵件地址<br>
<input type="text" size="25" name="email"><br>
接收郵件地址<br>
<input type="text" size="25" name="recipient"><br>
您想...<br>
<select name="subject" size="1">
<option value="help">咨詢
<option value="hello">問(wèn)候
<option value="other">其它
</select>
<br>
主題<br>
<input type="text" size="25" name="tipic"><br>
概述<br>
<input type="text" size="25" name="resume"><br>
請(qǐng)輸入您的內(nèi)容<br>
<textarea name="question" cols="40" rows="15" wrap="PHYSICAL"></textarea>
<br>
<br>
<br>
附件1<br>
<input type="file" name="attachment1">
<br>
<br>
附件2<br>
<input type="file" name="attachment2">
<br>
<br>
附件3<br>
<input type="file" name="attachment3">
<br>
<br>
<input type="submit" value="發(fā)送">
</form>
</b>感謝光臨隨風(fēng)起舞!
</font>
</body></html>
JmailUploadAutoFormProcess.asp
<%
Set upload = Server.CreateObject( "w3.Upload" )
Set JMail = Server.CreateObject("JMail.SMTPMail")
for i = 0 to upload.form.count-1
if upload.form( i ).isFile then
set attachment = upload.Form( i )
JMail.AddCustomAttachment attachment.filename, attachment.item
' 檢查附件并加入郵件.所有其他的form元素被加到郵件里.
else
JMail.appendtext( upload.form( i ).name & ": " & upload.form( i ).item & vbcrlf )
end if
next
Name = upload.Form("name")
SenderEmail = upload.Form("email")
Subject = "Regarding " & upload.Form("subject")
Recipient = upload.Form("recipient")
' 得到form變量,用上傳組件.
JMail.ServerAddress = "mail.intels.net"
' 輸入你的SMTP-server.
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Priority = 3
JMail.Execute
%>
<html>
<body>
<BR>
<BR>
<p align="center"><font face="Arial, geneva" size="5">
郵件發(fā)送成功!</font></p>
<center>
<font face="Arial, geneva" size="3">
您的郵件已發(fā)送至<%= Recipient %><br>
<BR>
</font>
</center>
</body></html>
[1]
相關(guān)文章
淺析Java、C/C++、JavaScript、PHP、Python分別用來(lái)開(kāi)發(fā)什么?
用任何編程語(yǔ)言來(lái)開(kāi)發(fā)程序,都是為了讓計(jì)算機(jī)干活,比如編寫一篇文章,下載一首MP3等,而計(jì)算機(jī)干活的CPU只認(rèn)識(shí)機(jī)器的指令,所以,盡管不同的編程語(yǔ)言差異極大,最后都得“翻譯”成CPU可以執(zhí)行的機(jī)器指令2018-08-08CPU,GPU,DPU,TPU,NPU,BPU等處理器的性能及概念
CPU,GPU,DPU,TPU,NPU,BPU各種U還在傻傻分不清么?本文帶你領(lǐng)略這些不同的U所代表的意義,讓你有醍醐灌頂般的醒悟收獲,有需要的朋友可以借鑒參考2021-08-08asp中在JScript中使用RecordSet對(duì)象的GetRows
asp中在JScript中使用RecordSet對(duì)象的GetRows...2007-03-03