Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.12;
Скачать: CL | DM;

Вниз

Сообщение по Outlook...   Найти похожие ветки 

 
Ира   (2002-07-29 10:36) [0]

Как послать файл по Outlook не показывая окно письма
и аналогично послать TMapiMessage (тоже без окна)??


 
Vitaly ©   (2002-07-29 15:07) [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;



Страницы: 1 вся ветка

Текущий архив: 2002.08.12;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
1-35292
nikolo
2002-07-29 12:51
2002.08.12
Как создать Template компонента?


4-35512
Help
2002-06-03 16:15
2002.08.12
HTML Title


14-35434
lak_b
2002-07-17 13:42
2002.08.12
Комп буйствует


1-35324
Blacki
2002-07-29 22:01
2002.08.12
Сохранение и загрузка различных граф форматов


1-35367
nikolo
2002-07-30 12:41
2002.08.12
Как в BDE создать алиас на MS SQL Server 2000?