Главная страница
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.019 c
3-35212
chsv
2002-07-23 20:34
2002.08.12
как подружить d5 с sql server 2000 без БДЕ?


14-35467
NailMan
2002-07-16 06:50
2002.08.12
Кастрация сетевой карты


1-35238
ilg
2002-07-30 16:55
2002.08.12
Компонент на основе TLabel


4-35523
Ron
2002-06-03 21:50
2002.08.12
Printer


4-35519
Alexy
2002-06-07 12:51
2002.08.12
Переход по Ентер