Главная страница
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
3-35162
MsGuns
2002-07-22 11:01
2002.08.12
Функция Ditto в Delphi


1-35345
KPY
2002-07-30 12:34
2002.08.12
Подскажите как лучше сделать


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


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


8-35384
HellTrooper
2002-04-02 16:41
2002.08.12
Огонь