Create Email with Non-Standard Binary Body

Download Chilkat MIME ActiveX

Creates an email where the only body is a binary WAV file. The technique used in the example could be applied to other binary files, such as PDF, MS-WORD docs, Excel docs, etc.

Download Chilkat Email ActiveX

Download 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
mime: CHILKATMIMELib_TLB.IChilkatMime;
success: Integer;
strMime: String;
email: CHILKATMAILLib2_TLB.IChilkatEmail2;

begin
mime := CoChilkatMime.Create();

success := mime.UnlockComponent('Anything for 30-day trial.');
if (success = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;

success := mime.SetBodyFromFile('VoiceMessage.wav');
if (success = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;

//  The MIME has this header:
//  Content-Disposition: attachment;
//  	 filename="VoiceMessage.wav"
//  Content-Transfer-Encoding: base64
//  Content-Type: audio/x-wav;
//  	name="VoiceMessage.wav"

//  We don't want the content-disposition to be an
//  attachment -- otherwise the email object will self-correct
//  and put it in a multipart/mixed format...
mime.Disposition := '';
mime.Filename := '';

strMime := mime.GetMime();
Memo1.Lines.Add(strMime);

//  Now load it into an email object:
email := CoChilkatEmail2.Create();
success := email.SetFromMimeText(strMime);
if (success = 0) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;

//  Add subject, TO, FROM, etc.
email.Subject := 'This is a test';
email.From := 'support@chilkatsoft.com';
email.AddTo('Matt','matt@chilkatsoft.com');

//  Your email is ready to send.
//  (but for this example, we'll simply save it to a file...)
success := email.SaveEml('email.eml');
if (success = 0) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;

ShowMessage('OK!');

end;