直播中
工作時間
9:00 18:00
你的郵箱 <br>
<input type="text" size= "25" name= "email"><br>< /FONT>
收信者名字 <br>
<input type= "text" size= "25" name= "recipient"><br>< /FONT>
標(biāo)題 <br>
<select name="subject" size="1">
<option value="help">help
<option value="tips">tips
<option value="other">other
</select>
<br>
內(nèi)容 <br>
<textarea name="body" cols="40" rows="15" wrap="PHYSICAL"></textarea>
<br>
附件 <br>
<input type="file" name="attachment">
<br>
<br>
<input type="submit" value=" Submit ">
</form>
</b></font>
</body>
</html>
文件2 - JmailUploadProcess.asp
<%
Set upload = Server.CreateObject( "w3.Upload" )
Set JMail = Server.CreateObject("JMail.SMTPMail")< /FONT >
'檢查附件并加入到email中
set attachment = upload.Form( "attachment" )
if attachment.IsFile then
JMail.AddCustomAttachment attachment.filename, attachment.item
end if
'得到form變量，使用upload組件
Name = upload.Form("name")
SenderEmail = upload.Form("email")
Subject = "Regarding " & upload.Form("subject")
Recipient = upload.Form("recipient")
Body = upload.Form("body")
'輸入你的SMTP-server
JMail.ServerAddress = "xxx.zzz.yyy"
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Body = Body
JMail.Priority = 3
JMail.Execute
%>
<html>
<head>
<title>Dimac</title>
</head>
<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>
<br>
<br>
</font>
</center>
</body>
</html>
桂公網(wǎng)安備45010502000253號
電子營業(yè)執(zhí)照
