| Class TEmail (unit Email) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
function Address : Integer;
function CheckAttachment(const AnAttachment : SString) : SString;
function CheckRecipient (const ARecipient : SString) : SString;
function CopyAttachment (Index : Integer;
const DestPathName : SString;
DeleteAfterCopy : Boolean) : Integer;
function CountUnread : ULONG;
function DeleteMail : Integer;
destructor Destroy;
procedure DownLoad;
function GetLongText : PChar;
function GetNextMessageId : SString;
function Logoff : Integer;
function Logon : Integer;
function ReadMail : Integer;
function SaveMail : Integer;
function SendMail : Integer;
function SetLongText(pLongText : Pchar) : Integer;
procedure CheckMAPI;Test whether MAPI is available - if not, raise an exception
function SendMailEx(DoSave: boolean): Integer;
function TruncAttachmentFN(const LongFN: SString): sstring;
function GetMAPIavail: boolean;
function ListToRecipArray(FArray : TStrings;
AulRecipClass : ULONG;
lpRecipArray : TlpRecipArray;
var nRecipients : integer) : Integer;
procedure SetAttachment(const Attachment : TStrings);
procedure SetBcc (const Bcc : TStrings);
procedure SetCC (const CC : TStrings);
procedure SetDownLoadFirst(bDownLoadFirst: boolean);
procedure SetNewSession(bNewSession: boolean);
procedure SetRecip(const Recip: TStrings);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;
hSession : ULONG;
FAcknowledge : Boolean;
FAttachment : TStrings;
FAttPathNames : TStrings;
FBcc : Tstrings;
FCC : TStrings;
FDateRecvd : SString;
FDownLoadFirst : Boolean;
FHeaderOnly : Boolean;
FLeaveUnread : Boolean;
FMessageId : SString;
FMessageType : SString;
FNewSession : Boolean;
FNoAttachments : Boolean;
FOrigAddress : SString;
FOriginator : SString;
FPassword : SString;
FpLongText : PChar;
FProfile : SString;
FRecip : TStrings;
FShowDialog : Boolean;
FSubject : SString;
FText : SString;
FTruncAttFN : Boolean;
FUnread : Boolean;
FUnreadOnly : Boolean;
FUseDefProfile : Boolean;| 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