1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
unit lrEmailAppMS;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, lrEmailExportFilter;
type
{ TEmailAppMSOutlook }
TEmailAppMSOutlook = class(TEmailApp)
protected
public
procedure MakeEmail(AFilter:TlrEmailExportFilter);override;
class function AppName:string;override;
class function AppValid:boolean;override;
end;
implementation
uses windows, variants, ComObj, Dialogs;
{ TEmailAppMSOutlook }
procedure TEmailAppMSOutlook.MakeEmail(AFilter: TlrEmailExportFilter);
Var
myItem, myAttachments, myAttachment : Variant;
const
olMailItem=0;
var
MailItem: Variant;
Outlook: OLEVariant;
begin
try
//Outlook:=GetActiveOleObject('Outlook.Application');
Outlook:=CreateOleObject('Outlook.Application');
MailItem:=Outlook.CreateItem(olMailItem);
MailItem.Recipients.Add(FFilter.Email); //'Список адресов');
MailItem.Subject:=FFilter.MessageSubject; //'Заголовок письма';
MailItem.Body:= FFilter.MessageBody.Text; //'Тело письма';
myAttachments := MailItem.Attachments;
myAttachment := myAttachments.Add(FFilter.EmailAttachFileName);
MailItem.Send;
Outlook:=Unassigned;
//Outlook:=Unassigned;
Except
ShowMessage('OLE error!');
End;
end;
class function TEmailAppMSOutlook.AppName: string;
begin
Result:='MS Outlook';
end;
class function TEmailAppMSOutlook.AppValid: boolean;
begin
{$IFNDEF WINDOWS}
Result:=false;
{$ELSE}
Result:=true;
{$ENDIF}
end;
initialization
RegisterEmailApp(TEmailAppMSOutlook);
end.
|
