Datacheck Solutions :: ASP

Script Snippets
Back

Cam Upload

'Just change these four variables to your information

youremail = "youremail@yourdomain.com"
yourpassword = "password"
yourmailurl = "mail.yourdomain.com"
yourdirectory = "c:\directory\where\your\images\will\go\"

Set pop3 = Server.CreateObject( "JMail.POP3" )
pop3.Connect youremail, yourpassword, yourmailurl

Function getEmail(x)

if pop3.count > 0 then

Set msg = pop3.Messages.item(x)

Set Attachments = msg.Attachments
   separator = ", "

For i = 0 To Attachments.Count - 1
    If i = Attachments.Count - 1 Then
      separator = ""
    End If

Set at = Attachments(i)
  If ( InStr(at.Name, "jpg") > 0 OR InStr(at.Name, "gif") > 0 ) Then

Randomize timer
	randnum = int(rnd * 10000000)
	timeNow = milliDif()
	If right(at.Name, 3) = "jpg" then
		filename = randnum & "-" &  timenow & ".jpg"
	Else
		filename = randnum & "-" &  timenow & ".gif"
	End if

Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
  	at.SaveToFile( yourdirectory & at.Name )
    fso.MoveFile yourdirectory & at.Name, yourdirectory & filename
	set fso = nothing
  End if

Next
	pop3.DeleteSingleMessage x
end if

End Function

x = pop3.count
DO UNTIL x = 0

getemail(x)

x = x - 1
Loop
pop3.Disconnect
%>