Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Outlook Express [D7, WinXP]

Kolyan © (2005-12-09 07:31:00)
Мастера помогите ! Мне нужно запустить Outlook и прикрепить
файл находящийся на пример c:\1.txt и указать кому: xyz@mail.ru Заранее спасибо!

Big Joe (2005-12-09 08:42:00) [1]
uses
ComObj;

procedure SendMail(Subject, Body, RecvAddress : string; Attachs : array of string);
var
MM, MS : Variant;
i : integer;
begin
MS := CreateOleObject('MSMAPI.MAPISession');
try
MM := CreateOleObject('MSMAPI.MAPIMessages');
try
MS.DownLoadMail := False;
MS.NewSession := False;
MS.LogonUI := True;
MS.SignOn;
MM.SessionID := MS.SessionID;

MM.Compose;

MM.RecipIndex := 0;
MM.RecipAddress := RecvAddress;
MM.MsgSubject := Subject;
MM.MsgNoteText := Body;

for i := Low(Attachs) to High(Attachs) do
begin
MM.AttachmentIndex := i;
MM.AttachmentPathName := Attachs[i];
end;
MM.Send(True);
MS.SignOff;
finally
VarClear(MS);
end;
finally
VarClear(MM);
end;
end;

procedure TForm1.FormCreate(Sender : TObject);
begin
SendMail('Subject', 'Body'#13#10'Second' , 'BillGates@Microsoft.com',
['C:\Winnt\explorer.exe', 'C:\winnt\win.ini']);
end;

Kolyan (2005-12-09 08:17:00) [2]
2 Bigi
А как можно вставить файл ?

Bigi (2005-12-09 07:50:00) [3]
ShellExecute(Handle, 'open', 'mailto:xyz@mail.ru',nil, nil,)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »