TIdMessage

type TIdMessage = class(TIdBaseComponent)

protected

  FAttachmentTempDirectory: string;

  FBccList: TIdEMailAddressList;

  FBody: TStrings;

  FCharSet: string;

  FCcList: TIdEMailAddressList;

  FContentType: string;

  FContentTransferEncoding: string;

  FContentDisposition: string;

  FDate: TDateTime;

  FIsEncoded: Boolean;

  FExtraHeaders: TIdHeaderList;

  FEncoding: TIdMessageEncoding;

  FFlags: TIdMessageFlagsSet;

  FFromList: TIdEMailAddressList;

  FHeaders: TIdHeaderList;

  FMessageParts: TIdMessageParts;

  FMIMEBoundary: TIdMIMEBoundary;

  FMsgId: string;

  FNewsGroups: TStrings;

  FNoEncode: Boolean;

  FNoDecode: Boolean;

  FOnInitializeISO: TIdInitializeIsoEvent;

  FOrganization: string;

  FPriority: TIdMessagePriority;

  FSubject: string;

  FReceiptRecipient: TIdEMailAddressItem;

  FRecipients: TIdEMailAddressList;

  FReferences: string;

  FInReplyTo: string;

  FReplyTo: TIdEMailAddressList;

  FSender: TIdEMailAddressItem;

  FUID: string;

  FXProgram: string;

  FOnCreateAttachment: TIdCreateAttachmentEvent;

  FLastGeneratedHeaders: TIdHeaderList;

  FConvertPreamble: Boolean;

  FSavingToFile: Boolean;

  FIsMsgSinglePartMime: Boolean;

  FExceptionOnBlockedAttachments: Boolean;

  procedure DoInitializeISO(); virtual;

  function GetAttachmentEncoding;

  function GetInReplyTo;

  function GetUseNowForDate;

  function GetFrom;

  procedure SetAttachmentEncoding();

  procedure SetAttachmentTempDirectory();

  procedure SetBccList();

  procedure SetBody();

  procedure SetCCList();

  procedure SetContentType();

  procedure SetEncoding();

  procedure SetExtraHeaders();

  procedure SetFrom();

  procedure SetFromList();

  procedure SetHeaders();

  procedure SetInReplyTo();

  procedure SetMsgID();

  procedure SetNewsGroups();

  procedure SetReceiptRecipient();

  procedure SetRecipients();

  procedure SetReplyTo();

  procedure SetSender();

  procedure SetUseNowForDate();

  procedure InitComponent; override;

public

  destructor Destroy; override;

  procedure AddHeader();

  procedure Clear; virtual;

  procedure ClearBody;

  procedure ClearHeader;

  procedure GenerateHeader; virtual;

  procedure InitializeISO();

  function IsBodyEncodingRequired;

  function IsBodyEmpty;

  procedure LoadFromFile();

  procedure LoadFromStream();

  procedure ProcessHeaders; virtual;

  procedure SaveToFile();

  procedure SaveToStream();

  procedure DoCreateAttachment(); virtual;

  property Flags: TIdMessageFlagsSet; [rw]

  property IsEncoded: Boolean; [rw]

  property MsgId: string; [rw]

  property Headers: TIdHeaderList; [rw]

  property MessageParts: TIdMessageParts; [r]

  property MIMEBoundary: TIdMIMEBoundary; [r]

  property UID: string; [rw]

  property IsMsgSinglePartMime: Boolean; [rw]

published

  property AttachmentEncoding: string; [rw]

  property Body: TStrings; [rw]

  property BccList: TIdEMailAddressList; [rw]

  property CharSet: string; [rw]

  property CCList: TIdEMailAddressList; [rw]

  property ContentType: string; [rw]

  property ContentTransferEncoding: string; [rw]

  property ContentDisposition: string; [rw]

  property Date: TDateTime; [rw]

  property Encoding: TIdMessageEncoding; [rw]

  property ExtraHeaders: TIdHeaderList; [rw]

  property FromList: TIdEMailAddressList; [rw]

  property From: TIdEMailAddressItem; [rw]

  property NewsGroups: TStrings; [rw]

  property NoEncode: Boolean; [rw]

  property NoDecode: Boolean; [rw]

  property Organization: string; [rw]

  property Priority: TIdMessagePriority; [rw]

  property ReceiptRecipient: TIdEMailAddressItem; [rw]

  property Recipients: TIdEMailAddressList; [rw]

  property References: string; [rw]

  property InReplyTo: string; [rw]

  property ReplyTo: TIdEMailAddressList; [rw]

  property Subject: string; [rw]

  property Sender: TIdEMailAddressItem; [rw]

  property UseNowForDate: Boolean; [rw]

  property LastGeneratedHeaders: TIdHeaderList; [r]

  property ConvertPreamble: Boolean; [rw]

  property ExceptionOnBlockedAttachments: Boolean; [rw]

  property AttachmentTempDirectory: string; [rw]

  property OnInitializeISO: TIdInitializeIsoEvent; [rw]

  property OnCreateAttachment: TIdCreateAttachmentEvent; [rw]

end;

TIdMessage

TIdBaseComponent

TIdInitializerComponent

TObject