Welcome Guest! To enable all features please Login or Register.

Notification

Icon
Error

Options
Go to last post Go to first unread
ivan  
#1 Posted : Monday, May 2, 2011 12:26:56 AM(UTC)
ivan

Rank: Administration

Groups: Administrators
Joined: 11/11/2010(UTC)
Posts: 1,148

Thanks: 9 times
Was thanked: 54 time(s) in 54 post(s)
Delphi Example
When an Outlook user composes and sends a message using either Rich Text Format or HTML Format, Outlook automagically generates a file, winmail.dat, and attaches it to the end of the email. The winmail.dat contains the rich text body and original attachments. To parse winmail.dat (TNEF stream) file, we should use ParseTNEF method.

The following code demonstrates how to parse MAPI winmail.dat in email.
Code:

// The following example codes demonstrate parsing winmail.dat - TNEF stream
// To get full sample projects, please download and install EAGetMail on your machine.
// To run it correctly, please change email server, user, password, folder, file name value to yours

Unit Unit1; 

Interface 

Uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, EAGetMailObjLib_TLB; 

Type 
  TForm1 = Class(TForm) 
    Button1: TButton; 
    Procedure Button1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  End; 

Const 
  MailServerPop3 = 0; 
  MailServerImap4 = 1;   CRYPT_MACHINE_KEYSET = 32; 
  CRYPT_USER_KEYSET = 4096; 
  CERT_SYSTEM_STORE_CURRENT_USER = 65536; 
  CERT_SYSTEM_STORE_LOCAL_MACHINE = 131072; 

Var 
  Form1: TForm1; 

Implementation 

{$R *.dfm} 

Procedure TForm1.ParseEmail( fileName: WideString ); 
Var 
  oMail: TMail; 
  i, UBound, x, XBound: Integer; 
  addrs, atts, tatts: OleVariant; 
  addr: IMailAddress; 
  att, tatt: IAttachment; 
  oCert: TCertificate; 
  oSignerCert: ICertificate; 
Begin 
  oMail := TMail.Create(Application); 
  oMail.LicenseCode := 'TryIt'; 
  oMail.LoadFile(fileName, false); 
  ShowMessage(oMail.Headers.GetValueOfKey('Content-Type')); 
  If oMail.IsEncrypted Then 
    Try 
      // this email is encrypted, decrypt it by default user certificate
      oMail.ConnectTo(oMail.Decrypt(nil)); 
      // You can also use specified certificate like this
      // oCert := TCertificate.Create(Application);
      // oCert.LoadFromFile( 'c:\test.pfx', 'pfxpassword', CRYPT_USER_KEYSET );
      // oMail.Load(oMail.Decrypt(oCert.DefaultInterface).Content);
    Except 
      On ep: Exception Do 
      Begin 
        ShowMessage('Decrypt Error: ' + ep.Message ); 
      End; 
    End; 

  If oMail.IsSigned Then 
     Try 
      // this email is digital signed, verify signature
      oSignerCert := oMail.VerifySignature(); 
      ShowMessage( 'This email contains a valid digital signature.' ); 
      // You can add the certificate to your certificate storage like this
      // oSignerCert.AddToStore(CERT_SYSTEM_STORE_CURRENT_USER,
      // 'addressbook');
      // Then you can use send the encrypted email back to this sender.
    Except 
      On ep: Exception Do 
      Begin 
        ShowMessage('Verify signature Error: ' + ep.Message ); 
      End; 
    End; 


  // Parse email sender
  ShowMessage( 'From: ' + oMail.From.Address ); 

  // Parse email to recipients
  addrs := oMail.ToAddr; 
  UBound := VarArrayHighBound( addrs, 1 ); 
  For i := 0 To UBound Do 
  Begin 
    addr := IDispatch(VarArrayGet(addrs, i)) As IMailAddress; 
    ShowMessage( 'To: ' + addr.Address ); 
  End; 

  // Parse email cc recipients
  addrs := oMail.Cc; 
  UBound := VarArrayHighBound( addrs, 1 ); 
  For i := 0 To UBound Do 
  Begin 
    addr := IDispatch(VarArrayGet(addrs, i)) As IMailAddress; 
    ShowMessage( 'Cc: ' + addr.Address ); 
  End; 

  // Parse email subject
  ShowMessage( 'Subject: ' + oMail.Subject ); 

  // Parse email text body
  ShowMessage( 'Text body: ' + oMail.TextBody ); 

  // Parse email HTML body
  ShowMessage( 'HTML body: ' + oMail.HtmlBody ); 

  // Parse attachment
  atts := oMail.Attachments; 
  UBound := VarArrayHighBound( atts, 1 ); 
  For i := 0 To UBound Do 
  Begin 
    att := IDispatch(VarArrayGet(atts,i)) As IAttachment; 
    ShowMessage( att.Name ); 

    If LowerCase(att.Name) = 'winmail.dat' Then 
    Begin 
      // this is outlook rtf (TNEF) attachment, decode it here
      tatts := oMail.ParseTNEF(att.Content, true ); 
      XBound := VarArrayHighBound(tatts, 1 ); 
      For x:= 0 To XBound Do 
      Begin 
        tatt := IDispatch(VarArrayGet(tatts,x)) As IAttachment; 
        ShowMessage( 'winmail.dat' + tatt.Name ); 
      End; 
    End 
  End; 

End; 

Procedure TForm1.Button1Click(Sender: TObject); 
Begin 
  Try 
      ParseEmail('c:\my folder\test.eml'); 
  Except 
    On ep:Exception Do 
      ShowMessage( 'Error: ' + ep.Message ); 
  End; 

End; 

End. 

Click here to read original topic - full version ...

If you have any comments or questions about above example codes, please add your comments here.
fernandohlmaia  
#2 Posted : Wednesday, August 10, 2016 8:26:46 PM(UTC)
fernandohlmaia

Rank: Newbie

Groups: Registered
Joined: 8/10/2016(UTC)
Posts: 1

Hello , in the example he receives an .eml file. How do I convert files already in winmail.dat format?
ivan  
#3 Posted : Thursday, August 11, 2016 4:15:08 PM(UTC)
ivan

Rank: Administration

Groups: Administrators
Joined: 11/11/2010(UTC)
Posts: 1,148

Thanks: 9 times
Was thanked: 54 time(s) in 54 post(s)
Hi, here is a total tutorial for delphi:

https://www.emailarchite...ail/kb/delphi.aspx?cat=0

You can use

https://www.emailarchite...sdk/?ct=mail_parsetnef_a

to parse winmail.dat file

You should load a winmail.dat file to a binary array, then use ParseTNEF directly.

Code:

If LowerCase(att.Name) = 'winmail.dat' Then 
Begin 
// this is outlook rtf (TNEF) attachment, decode it here
//change att.Content to loaded binary array.
tatts := oMail.ParseTNEF(att.Content, true );  
XBound := VarArrayHighBound(tatts, 1 ); 
For x:= 0 To XBound Do 
Begin 
tatt := IDispatch(VarArrayGet(tatts,x)) As IAttachment; 
ShowMessage( 'winmail.dat' + tatt.Name ); 
End; 

Edited by user Thursday, August 11, 2016 4:17:06 PM(UTC)  | Reason: Not specified

Users browsing this topic
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.

Powered by YAF.NET | YAF.NET © 2003-2024, Yet Another Forum.NET
This page was generated in 0.055 seconds.

EXPLORE TUTORIALS

© All Rights Reserved, AIFEI Software Limited & AdminSystem Software Limited.