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 Forwarder
Read a POP3 mailbox and forwards the email to another email address, keeping the recipients in the original email the same. // The mailman object is used for receiving (POP3) // and sending (SMTP) email. Chilkat.MailMan mailman = new Chilkat.MailMan(); // Any string argument automatically begins the 30-day trial. bool success; success = mailman.UnlockComponent("30-day trial"); if (success != true) { MessageBox.Show("Component unlock failed"); return; } // Set the POP3 server's hostname mailman.MailHost = "mail.chilkatsoft.com"; // Set the POP3 login/password. mailman.PopUsername = "matt@chilkatsoft.com"; mailman.PopPassword = "****"; Chilkat.StringArray saUidls = null; // The the UIDLs for all email in the POP3 mailbox. saUidls = mailman.GetUidls(); if (saUidls == null ) { MessageBox.Show(mailman.LastErrorText); return; } Chilkat.StringArray saMime = null; // 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 == null ) { MessageBox.Show(mailman.LastErrorText); return; } // Set the SMTP hostname for sending. mailman.SmtpHost = "mail.chilkatsoft.com"; mailman.SmtpUsername = "admin@chilkatsoft.com"; mailman.SmtpPassword = "****"; int i; string strMime; int n; n = saMime.Count; string fromAddr; string toAddr; fromAddr = "matt@chilkatsoft.com"; toAddr = "admin@chilkatsoft.com"; bool bAllOk; bAllOk = true; if (n > 0) { for (i = 0; i <= n - 1; i++) { strMime = saMime.GetString(i); // Forward the email. success = mailman.SendMime(fromAddr,toAddr,strMime); if (success != true) { bAllOk = false; textBox1.Text += mailman.LastErrorText + "\r\n"; break; } } } // Remove the emails in saUidls from the POP3 server. if (bAllOk == true) { success = mailman.DeleteMultiple(saUidls); if (success != true) { textBox1.Text += mailman.LastErrorText + "\r\n"; } } |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2008 Chilkat Software, Inc. All Rights Reserved.