uses
Outlook8, OleServer, COMobj,
type
TMailRecord= record
FileToAttach : String;
MailTo : String;
CC : String;
BCC : String;
Subject : String;
Body : String;
end;
procedure OutLookMailProc(MailDetail:TMailRecord);
const
olMailItem = 0;
var
Outlook, NmSpace, Folder: OleVariant;
miMail: Variant;
StrList:TStringList;
begin
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
miMail := Outlook.CreateItem(olMailItem);
miMail.Recipients.Add(MailDetail.MailTo);
miMail.Subject:=MailDetail.Subject;
miMail.Body:=MailDetail.Body;
miMail.ReadReceiptRequested:=True;
// Para adjuntar HTML email (no aplica Outlook 97)
if FileExists('C:\Firma.Htm') then begin
StrList:=TStringList.create;
try
StrList.LoadFromFile('C:\Firma.Htm');
miMail.HTMLBody :=StrList.Text;
finally
StrList.Free;
end;
end
if MailDetail.FileToAttach<>'' then
miMail.Attachments.Add(MailDetail.FileToAttach);
MiMail.Display(True);
Outlook := Unassigned;
end;
var
MailDetail:TMailRecord;
begin
MailDetail.FileToAttach:='C:\Archivo';
MailDetail.MailTo:='
[email protected]';
MailDetail.CC:='';
MailDetail.Subject:='EmailAsunto';
MailDetail.Body:='';
OutLookMailProc(MailDetail);
end;