用Jmail写文件进硬盘_PHP

论文作者：kEvin1986
文章性质：原创
发布日期：2005-08-14

 

'codz by kEvin1986

如果 User<>"" 和 Pass<>"" 和 Popserver<>"" 那么
​​​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()
Set Attachments = objmsg.Attachments
separator = ", "
响应.write "此附件的大小为：" & objmsg.size & "<br>"
如果 i = 0 To Attachments.Count - 1
如果 i = Attachments.Count - 1。计数 - 1 然后
……分隔符 = ""
END If

​​设置 Theatta = Attachments(i)
​response.write Theatta.name
​​​Theatta.SaveToFile(Server.Mappath(" .") & "" & Theatta.name)
响应.write "哦！嘿伙计.....没关系！"
下一个
结束函数
%>

用户：

Pass: <br>
POP3: ;<br>
<input type=submit value="获取第一封邮件的附件">
</Form>
</Center>
</Body&gt ;