Delphi ActiveX

Test if an Email Header Matches a Pattern

Demonstrates the Chilkat Email.HasHeaderMatching method, which returns true when the email contains a header field named by the first argument whose value matches the wildcard pattern in the second argument. The third argument selects case-sensitive matching. This example checks whether the Subject contains the word "invoice".

Background: The value pattern supports wildcards — * matches any run of characters — so *invoice* matches any subject containing "invoice" anywhere. This is a compact way to classify or filter messages by header content, for example routing billing mail or flagging automated notices, without manually fetching the header value and testing it yourself.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
email: TChilkatEmail;
match: Integer;

begin
//  Demonstrates the HasHeaderMatching method, which returns true when the email contains a
//  header field named by the first argument whose value matches the wildcard pattern in the second argument.  The third argument selects
//  case-sensitive matching.

email := TChilkatEmail.Create(Self);
email.Subject := 'Monthly invoice #4432';
email.From := 'billing@example.com';

//  Check whether the Subject header value matches a wildcard pattern (case-insensitive).
match := email.HasHeaderMatching('Subject','*invoice*',0);

if (match = 1) then
  begin
    Memo1.Lines.Add('The Subject header contains ''invoice''.');
  end
else
  begin
    Memo1.Lines.Add('The Subject header does not contain ''invoice''.');
  end;