(Visual FoxPro) POP3 to SMTP Forwarder

Read a POP3 mailbox and forwards the email to another email address, keeping the recipients in the original email the same.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loMailman
LOCAL lnSuccess
LOCAL loSaUidls
LOCAL loSaMime
LOCAL n
LOCAL lcFromAddr
LOCAL lcToAddr
LOCAL lnBAllOk
LOCAL i
LOCAL lcStrMime

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.MailMan')
loMailman = CreateObject('Chilkat.MailMan')

* Set the POP3 server's hostname
loMailman.MailHost = "pop.example.com"

* Set the POP3 login/password.
loMailman.PopUsername = "MY_LOGIN"
loMailman.PopPassword = "MY_PASSWORD"

* The the UIDLs for all email in the POP3 mailbox.
loSaUidls = loMailman.GetUidls()
IF (loMailman.LastMethodSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    CANCEL
ENDIF

* Download the email from the server.  Call FetchMultipleMime
* because we don't want to load the emails into email objects.
* (We'll delete the emails that are forwarded without error.)
* Note: It is not reasonable to call this method for a mailbox containing
* a huge number of emails.  For large mailboxes, it's better to download
* one by one and process each email independently. This way, if a 
* server or communications error occurs, it's possible to write code
* that can resume.
loSaMime = loMailman.FetchMultipleMime(loSaUidls)

IF (loMailman.LastMethodSuccess = 0) THEN
    RELEASE loSaUidls
    ? loMailman.LastErrorText
    RELEASE loMailman
    CANCEL
ENDIF

* Set the SMTP hostname for sending.
loMailman.SmtpHost = "smtp.example.com"
loMailman.SmtpUsername = "MY_SMTP_LOGIN"
loMailman.SmtpPassword = "MY_SMTP_PASSWORD"

n = loSaMime.Count

lcFromAddr = "me@example.com"
lcToAddr = "recipient@somewhere.com"

lnBAllOk = 1

i = 0
DO WHILE i < n

    lcStrMime = loSaMime.GetString(i)

    * Forward the email.
    lnSuccess = loMailman.SendMime(lcFromAddr,lcToAddr,lcStrMime)
    IF (lnSuccess <> 1) THEN
        lnBAllOk = 0
        ? loMailman.LastErrorText
        * Force loop exit.
        i = n
    ENDIF

    i = i + 1
ENDDO

* Remove the emails in saUidls from the POP3 server.
IF (lnBAllOk = 1) THEN
    lnSuccess = loMailman.DeleteMultiple(loSaUidls)
    IF (lnSuccess <> 1) THEN
        ? loMailman.LastErrorText
    ENDIF

ENDIF

RELEASE loSaMime
RELEASE loSaUidls

? "bAllOk = " + STR(lnBAllOk)

RELEASE loMailman