POP2Disk

Below you find the POP to disk script example based on the Aloaha POP3 SDK. The Aloaha POP3 SDK is part of the Aloaha SPAM Rejector. In case you need the standalone dll please contact aloaha@wrocklage.de

'This is a sample script for Aloahas scripted POP3 Connector
'It downloads all emailf from a pop3 mailbox and saves them to disk
'The scripted POP3 Connector is part of Aloaha SPAM Rejector
'Should you require the standalone dll please contact
'stefan@wrocklage.de
Dim pop
Dim amount
Dim adSaveCreateOverWrite
Dim adTypeText
Dim i
Dim strmail
Dim savedir 'savedir defines the directory
savedir="c:\temp"
adTypeText = 2
adSaveCreateOverWrite = 2 'Create Aloaha POP3 Connector Object
Set pop = CreateObject("pop3news.popnews") 'set server, username and password
'if pop port is a non default port such as gmail please use the .port property
pop.remotehost = "mail.aloaha.com"
pop.username = "web31p8"
pop.password = "testing"
'connect
If pop.autoconnect = True Then
'enumerate emails in pop3 mailbox
        amount = CInt(pop.getammount)
        If amount>0 Then
        'download and save them to disk
        For i = 1 to amount
          err.clear
          strmail=""
          strmail = pop.getmail(CStr(i))
   If strmail<>"" Then
    Call saveto(strmail, savedir, "")
    Call pop.deletemail(cstr(i))
   End If
  Next
End If
Call pop.close_and_quit
End If Public Sub saveto(content, savetopath, fname)
    On Error Resume Next
    Dim fstream
    Dim newfolder
    If fname="" Then
    fname=get_random_number+".eml"
    End If

    If savetopath <> "" Then     Set fstream = CreateObject("ADODB.Stream")
      fstream.Type = adTypeText
      fstream.Charset = "US-ASCII"
      fstream.Open
      fstream.WriteText content
      If Right(savetopath, 1) <> "\" Then savetopath = savetopath & "\"
      fstream.SaveToFile CStr(savetopath + fname), adSaveCreateOverWrite
      fstream.Close
    Set fstream = Nothing

    End If
End Sub Public Function get_random_number()
On Error Resume Next
Randomize
get_random_number = CStr(Int((100000 - 1 + 1) * Rnd + 100000))
End Function

Download above script (1,01 KB)