Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
Secure IMAP over SSLTo communicate with an IMAP server over SSL, simply set the Ssl and Port properties. The remainder of your code is the same as with non-SSL. uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CHILKATMAILLib2_TLB, CHILKATIMAPLib_TLB, OleCtrls; ... procedure TForm1.Button1Click(Sender: TObject); var imap: TChilkatImap; success: Integer; messageSet: CHILKATIMAPLib_TLB.IMessageSet; fetchUids: Integer; bundle: CHILKATIMAPLib_TLB.IChilkatEmailBundle2; i: Integer; email: CHILKATIMAPLib_TLB.IChilkatEmail2; begin imap := TChilkatImap.Create(Self); // Anything unlocks the component and begins a fully-functional 30-day trial. success := imap.UnlockComponent('Anything for 30-day trial'); if (success <> 1) then begin ShowMessage(imap.LastErrorText); Exit; end; // To use a secure SSL connection, set SSL and the port: imap.Ssl := 1; // The typical port for IMAP SSL is 993 imap.Port := 993; // Connect to an IMAP server. success := imap.Connect('mail.chilkatsoft.com'); if (success <> 1) then begin ShowMessage(imap.LastErrorText); Exit; end; // Login success := imap.Login('myLogin','myPassword'); if (success <> 1) then begin ShowMessage(imap.LastErrorText); Exit; end; // Select an IMAP mailbox success := imap.SelectMailbox('Inbox'); if (success <> 1) then begin ShowMessage(imap.LastErrorText); Exit; end; // We can choose to fetch UIDs or sequence numbers. fetchUids := 1; // Get the message IDs of all the emails in the mailbox messageSet := imap.Search('ALL',fetchUids); if (messageSet = nil ) then begin ShowMessage(imap.LastErrorText); Exit; end; // Fetch the emails into a bundle object: bundle := imap.FetchBundle(messageSet); if (bundle = nil ) then begin ShowMessage(imap.LastErrorText); Exit; end; // Loop over the bundle and display the FROM and SUBJECT of each. for i := 0 to bundle.MessageCount - 1 do begin email := bundle.GetEmail(i) As CHILKATIMAPLib_TLB.IChilkatEmail2; Memo1.Lines.Add(email.From); Memo1.Lines.Add(email.Subject); Memo1.Lines.Add('--'); end; // Disconnect from the IMAP server. imap.Disconnect(); end; |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2008 Chilkat Software, Inc. All Rights Reserved.