Class TEmail (unit Email) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- Create object.
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 } {---------------
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
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
constructor Create(AOwner: TComponent);
Create object. } {----------------
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 } {---------------
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
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