VB.NET Examples

ChilkatHOMEASPVisual BasicVB.NETC#Visual C++DelphiFoxProJavaPerlPythonRubySQL ServerVBScript

Delphi Examples

Bounced Mail
Character Encoding
Digital Certificates
Digital Signatures
Email
FTP
HTML-to-XML
HTTP
IMAP
Encryption
MHT / HTML Email
RSA Encryption
S/MIME
Socket
Spider
String
Tar
Upload
XML
XMP
Zip Compression

More Examples...
Byte Array
Email Object
POP3
SMTP
RSS
Atom
Self-Extractor

Unreleased...
Service
PPMD
Deflate
Bzip2
LZW
Bz2
DH Key Exchange
DSA
Icon

Type Conversion

 

Article: Understanding COM References in Delphi

Download POP3 Email to MIME Strings

Download the email from a POP3 mailbox directly into MIME strings, without parsing into email objects.

Download Chilkat Email ActiveX

Download Chilkat IMAP ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATMAILLib2_TLB,
    CHILKATUTILLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
mailman: TChilkatMailMan2;
success: Integer;
saUidls: CHILKATUTILLib_TLB.ICkStringArray;
saMime: CHILKATUTILLib_TLB.ICkStringArray;
i: Integer;
email: CHILKATMAILLib2_TLB.IChilkatEmail2;

begin
//  The mailman object is used for receiving (POP3)
//  and sending (SMTP) email.
mailman := TChilkatMailMan2.Create(Self);

//  Any string argument automatically begins the 30-day trial.
success := mailman.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Component unlock failed');

  end;

//  Set the POP3 server's hostname
mailman.MailHost := 'mail.chilkatsoft.com';

//  Set the POP3 login/password.
mailman.PopUsername := 'matt@chilkatsoft.com';
mailman.PopPassword := 'myPassword';

//  First, get the complete set of UIDLs for the email in the POP3 mailbox:

saUidls := mailman.GetUidls() as CHILKATUTILLib_TLB.ICkStringArray;
if (saUidls = nil ) then
  begin
    ShowMessage(mailman.LastErrorText);

  end;

//  Download the email as MIME strings (no parsing of the MIME)

saMime := mailman.FetchMultipleMime(saUidls) as CHILKATUTILLib_TLB.ICkStringArray;
if (saMime = nil ) then
  begin
    ShowMessage(mailman.LastErrorText);

  end;

//  MIME strings may be loaded into email objects:

email := CoChilkatEmail2.Create();
for i := 0 to saMime.Count - 1 do
  begin
    email.SetFromMimeText(saMime.GetString(i));
    Memo1.Lines.Add(email.From);
    Memo1.Lines.Add(email.Subject + #13#10);
  end;


end;

 

Need a specific example? Send a request to support@chilkatsoft.com

© 2000-2007 Chilkat Software, Inc. All Rights Reserved.

Mail Component · .NET Email Component · XML Parser