Class TEmail (unit Email)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

Create object.


Functions

function Address : Integer;

Following code added by Rudi Claasen } { get address dialog } {--------------------

function CheckAttachment(const AnAttachment : SString) : SString;

Check if an attachment is a valid file } {----------------------------------------

function CheckRecipient (const ARecipient : SString) : SString;

Check a recipient } {-------------------

function CopyAttachment (Index : Integer; const DestPathName : SString; DeleteAfterCopy : Boolean) : Integer;

CopyAttachment : } {-------------------

function CountUnread : ULONG;

Count number of unread messages.

function DeleteMail : Integer;

Delete e-mail message with FMessageId } {---------------------------------------

destructor Destroy;

Destroy object.

procedure DownLoad;

Download e-mail messages now } {------------------------------

function GetLongText : PChar;

get a pointer to the message body

function GetNextMessageId : SString;

get net message ID } {--------------------

function Logoff : Integer;

Logoff E-Mail system.

function Logon : Integer;

This is code to allow the component to thunk to the Win32 API } { Logon to E-Mail system.

function ReadMail : Integer;

Read e-mail message with FMessageId } {-------------------------------------

function SaveMail : Integer;


function SendMail : Integer;

Auto logoff, if no session was active.

function SetLongText(pLongText : Pchar) : Integer;

make a copy of the message body and store pointer to it in Temail } {-------------------------------------------------------------------

procedure CheckMAPI;

flag for logon parameters

Test whether MAPI is available - if not, raise an exception


function SendMailEx(DoSave: boolean): Integer;

Send Mail message.

function TruncAttachmentFN(const LongFN: SString): sstring;

truncate Attachment filename to 8.

function GetMAPIavail: boolean;

use default profile fr.

function ListToRecipArray(FArray : TStrings; AulRecipClass : ULONG; lpRecipArray : TlpRecipArray; var nRecipients : integer) : Integer;

list to recipient arrary } {--------------------------

procedure SetAttachment(const Attachment : TStrings);

set attachment } {----------------

procedure SetBcc (const Bcc : TStrings);

set BCC } {----------

procedure SetCC (const CC : TStrings);

set CC } {--------

procedure SetDownLoadFirst(bDownLoadFirst: boolean);

set DownloadFirst property settings } {-------------------------------------

procedure SetNewSession(bNewSession: boolean);

set NewSession property settings } {-------------------------------------

procedure SetRecip(const Recip: TStrings);

MAPI dll has been loaded ?

set recipient } {---------------


Properties

property Acknowledge : Boolean


property Attachment : TStrings


property Bcc : TStrings


property CC : TStrings


property DownLoadFirst : Boolean


property MAPIavail : boolean


property NewSession : boolean


property Password : SString


property Profile : SString


property Recipient : TStrings


property ShowDialog : Boolean


property Subject : SString


property Text : SString


property TruncAttFN : Boolean


property UnreadOnly : boolean


property UseDefProfile : Boolean


property AttPathNames : TStrings


property DateRecvd : SString


property HeaderOnly : Boolean


property LeaveUnread : Boolean


property MessageId : SString


property MessageType : SString


property NoAttachments : Boolean


property OrigAddress : SString


property Originator : SString


property Unread : Boolean


Events

Variables

flLogonFlags : ULONG;

MAPI Session number.

hSession : ULONG;


FAcknowledge : Boolean;

launch dialog after SendMail ?

FAttachment : TStrings;

acknowledge receipt ?

FAttPathNames : TStrings;

list of attachments

FBcc : Tstrings;

list of CC's

FCC : TStrings;

Attachments temp file names

FDateRecvd : SString;

list of Blind CC's

FDownLoadFirst : Boolean;

Message date

FHeaderOnly : Boolean;

Download messages at logon

FLeaveUnread : Boolean;

ReadMail with MAPI_ENVELOPE_ONLY

FMessageId : SString;

ReadMail with MAPI_PEEK

FMessageType : SString;

next message Id from GetNext.

FNewSession : Boolean;

message type if non-IPM messatge

FNoAttachments : Boolean;

log in with new session

FOrigAddress : SString;

Message originator

FOriginator : SString;

ReadMail w.

FPassword : SString;

Message Originator's address

FpLongText : PChar;

password for MAPI logon

FProfile : SString;

(long) message body pointer

FRecip : TStrings;

profile string for MAPI logon

FShowDialog : Boolean;


FSubject : SString;

list of recipients

FText : SString;

message subject text

FTruncAttFN : Boolean;

(short) message body

FUnread : Boolean;

truncate attachment filename

FUnreadOnly : Boolean;

Message read/unread status

FUseDefProfile : Boolean;

GetNextMessageID returns unread


Constructors


constructor Create(AOwner: TComponent);

Create object. } {----------------


Functions


function Address : Integer;

Following code added by Rudi Claasen } { get address dialog } {--------------------


function CheckAttachment(const AnAttachment : SString) : SString;

Check if an attachment is a valid file } {----------------------------------------


function CheckRecipient (const ARecipient : SString) : SString;

Check a recipient } {-------------------


function CopyAttachment (Index : Integer; const DestPathName : SString; DeleteAfterCopy : Boolean) : Integer;

CopyAttachment : } {-------------------


function CountUnread : ULONG;

Count number of unread messages. } {----------------------------------


function DeleteMail : Integer;

Delete e-mail message with FMessageId } {---------------------------------------


destructor Destroy;

Destroy object. } {-----------------


procedure DownLoad;

Download e-mail messages now } {------------------------------


function GetLongText : PChar;

get a pointer to the message body


function GetNextMessageId : SString;

get net message ID } {--------------------


function Logoff : Integer;

Logoff E-Mail system. } {-----------------------


function Logon : Integer;

This is code to allow the component to thunk to the Win32 API } { Logon to E-Mail system. } {-------------------------


function ReadMail : Integer;

Read e-mail message with FMessageId } {-------------------------------------


function SaveMail : Integer;


function SendMail : Integer;

Auto logoff, if no session was active.


function SetLongText(pLongText : Pchar) : Integer;

make a copy of the message body and store pointer to it in Temail } {-------------------------------------------------------------------


procedure CheckMAPI;

flag for logon parameters

Test whether MAPI is available - if not, raise an exception


function SendMailEx(DoSave: boolean): Integer;

Send Mail message. } {--------------------


function TruncAttachmentFN(const LongFN: SString): sstring;

truncate Attachment filename to 8.3 - specs and code by MJK } { slightly modified by Stefan Hoffmeister } {-------------------------------------------------------------


function GetMAPIavail: boolean;

use default profile fr. registry

free text


function ListToRecipArray(FArray : TStrings; AulRecipClass : ULONG; lpRecipArray : TlpRecipArray; var nRecipients : integer) : Integer;

list to recipient arrary } {--------------------------


procedure SetAttachment(const Attachment : TStrings);

set attachment } {----------------


procedure SetBcc (const Bcc : TStrings);

set BCC } {----------


procedure SetCC (const CC : TStrings);

set CC } {--------


procedure SetDownLoadFirst(bDownLoadFirst: boolean);

set DownloadFirst property settings } {-------------------------------------


procedure SetNewSession(bNewSession: boolean);

set NewSession property settings } {-------------------------------------


procedure SetRecip(const Recip: TStrings);

MAPI dll has been loaded ?

set recipient } {---------------


Properties


property Acknowledge : Boolean


property Attachment : TStrings


property Bcc : TStrings


property CC : TStrings


property DownLoadFirst : Boolean


property MAPIavail : boolean


property NewSession : boolean


property Password : SString


property Profile : SString


property Recipient : TStrings


property ShowDialog : Boolean


property Subject : SString


property Text : SString


property TruncAttFN : Boolean


property UnreadOnly : boolean


property UseDefProfile : Boolean


property AttPathNames : TStrings


property DateRecvd : SString


property HeaderOnly : Boolean


property LeaveUnread : Boolean


property MessageId : SString


property MessageType : SString


property NoAttachments : Boolean


property OrigAddress : SString


property Originator : SString


property Unread : Boolean


Events


Variables


flLogonFlags : ULONG;

MAPI Session number.


hSession : ULONG;


FAcknowledge : Boolean;

launch dialog after SendMail ?


FAttachment : TStrings;

acknowledge receipt ?


FAttPathNames : TStrings;

list of attachments


FBcc : Tstrings;

list of CC's


FCC : TStrings;

Attachments temp file names


FDateRecvd : SString;

list of Blind CC's


FDownLoadFirst : Boolean;

Message date


FHeaderOnly : Boolean;

Download messages at logon


FLeaveUnread : Boolean;

ReadMail with MAPI_ENVELOPE_ONLY


FMessageId : SString;

ReadMail with MAPI_PEEK


FMessageType : SString;

next message Id from GetNext...


FNewSession : Boolean;

message type if non-IPM messatge


FNoAttachments : Boolean;

log in with new session


FOrigAddress : SString;

Message originator


FOriginator : SString;

ReadMail w. MAPI_SUPPRESS_ATTACH


FPassword : SString;

Message Originator's address


FpLongText : PChar;

password for MAPI logon


FProfile : SString;

(long) message body pointer


FRecip : TStrings;

profile string for MAPI logon


FShowDialog : Boolean;


FSubject : SString;

list of recipients


FText : SString;

message subject text


FTruncAttFN : Boolean;

(short) message body


FUnread : Boolean;

truncate attachment filename


FUnreadOnly : Boolean;

Message read/unread status


FUseDefProfile : Boolean;

GetNextMessageID returns unread