Форум: "Сети";
Текущий архив: 2006.10.29;
Скачать: [xml.tar.bz2];
Вниз
Outlook Express Найти похожие ветки
← →
Roman80 (2006-06-01 08:50) [0]Дорый день !!! Подскажите как программно запустить Outlook с прекрипленным файлом ? Заранее блогодарю!
← →
1+Random(9999) (2006-06-01 09:14) [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;
> Но у меня почему то не пашет, может у тебя пойдет.
← →
Roman80 (2006-06-01 10:06) [2]Не работает((((
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2006.10.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.041 c