Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
POP3 to SMTP ForwarderRead a POP3 mailbox and forwards the email to another email address, keeping the recipients in the original email the same. require 'chilkat' # The mailman object is used for receiving (POP3) # and sending (SMTP) email. mailman = Chilkat::CkMailMan.new() # Any string argument automatically begins the 30-day trial. success = mailman.UnlockComponent("30-day trial") if (success != true) print "Component unlock failed" + "\n" exit end # Set the POP3 server's hostname mailman.put_MailHost("mail.chilkatsoft.com") # Set the POP3 login/password. mailman.put_PopUsername("matt@chilkatsoft.com") mailman.put_PopPassword("****") # The the UIDLs for all email in the POP3 mailbox. saUidls = mailman.GetUidls() if (saUidls == nil ) print mailman.lastErrorText() + "\n" exit end # 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.) saMime = mailman.FetchMultipleMime(saUidls) if (saMime == nil ) print mailman.lastErrorText() + "\n" exit end # Set the SMTP hostname for sending. mailman.put_SmtpHost("mail.chilkatsoft.com") mailman.put_SmtpUsername("admin@chilkatsoft.com") mailman.put_SmtpPassword("****") n = saMime.get_Count() fromAddr = "matt@chilkatsoft.com" toAddr = "admin@chilkatsoft.com" bAllOk = true if (n > 0) for i in 0 .. n - 1 strMime = saMime.getString(i) # Forward the email. success = mailman.SendMime(fromAddr,toAddr,strMime) if (success != true) bAllOk = false print mailman.lastErrorText() + "\n"; break end end end # Remove the emails in saUidls from the POP3 server. if (bAllOk == true) success = mailman.DeleteMultiple(saUidls) if (success != true) print mailman.lastErrorText() + "\n"; end end |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2007 Chilkat Software, Inc. All Rights Reserved.