Jmail を使用してファイルをハードディスクに書き込む_PHP チュートリアル

本文著者：kEvin1986
文章性质：原创
発行日期：2005-08-14

'codz by kEvin1986
User=Request.Form("User")
Pass=Request.Form("Pass")
Popserver=Request.Form("Popserver")
if User<>""そして Pass<>"" と Popserver<>"" then
Set objmail = CreateObject( "JMail.POP3" )
objmail.Connect User, Pass, Popserver
set objmsg=CreateObject("jmail.message")
Set objmsg = objmail.Messages.item(1)
separator = ", "
response.write "添付ファイル名は: " & SaveAtta & "
"
objmail.Disconnect
End if
Function SaveAtta()
添付ファイルを設定= objmsg.Attachments
separator = ", "
response.write "この Attachment のサイズは: " & objmsg.size & "
"
For i = 0 To Attachments.Count - 1
If i = Attachments .Count - 1 then
separator = ""
End If
Set Theatta = Attachments(i)
response.write Theatta.name
Theatta.SaveToFile(Server.Mappath(".") & "" & Theatta.name)
Response.write "Oh!Hey Guy....That's OK!"
Next
End Function
%>

http://www.bkjia.com/PHPjc/629811.htmlwww.bkjia.comtru​​ehttp://www.bkjia.com/PHPjc/629811.html技術記事本文著者：kEvin1986 文章性质：原创 発行日：2005-08-14 % codz by kEvin1986 User=Request.Form(User) Pass=Request.Form(Pass) Popserver=Request.Form(Popserver) if Use...