Сообщение по Outlook... [D5, Win2k]
Ира © (2002-07-29 10:36:00)
Как послать файл по Outlook не показывая окно письма
и аналогично послать TMapiMessage (тоже без окна)??
Vitaly (2002-07-29 15:07:00) [1]
Отправка всех файлов из папки.
var
outA: TOutlookApplication;
MI: TMailItem;
...
outA.Connect;
dir := ini.ReadString("dir", "out", "");
fr := FindFirst(dir+"\*.*", faAnyFile and (not faDirectory),
f);
if fr = 0 then begin
history("Создаем письмо...");
mi.ConnectTo(outA.CreateItem(olMailItem) as _DMailItem);
mi.Recipients.Add(ini.ReadString("mail", "to", ""));
while fr = 0 do begin
history("отправляем файл " + dir + f.Name);
mi.Attachments.Add( dir + f.Name,
emptyParam, emptyParam, emptyParam);
if not DeleteFile( dir + f.Name )
then history("ФАЙЛ " + dir + f.Name + " - ОШИБКА УДАЛЕНИЯ!");
fr := FindNext(f);
end;
FindClose(f);
mi.Send;
history("Ok.");
end;
(outA.ActiveExplorer.CommandBars as CommandBars)["Standard"].
Controls["Отправить/полу&чить"].Execute;
outA.Disconnect;
Наверх 
ЧАТ |
Орешник |
|
