Добрый день!
Отправляем почту с вложением через Outlook.
procedure TForm1.Button1Click(Sender: TObject);
var OutLook : OleVariant;
MailItem : Variant;
fnlog : string;
begin
try
Outlook:= GetActiveOleObject('Outlook.Application');
except
Outlook:= CreateOleObject('Outlook.Application');
end;
MailItem:= Outlook.CreateItem(olMailItem);
MailItem.Recipients.Add('qwerty@eprst.ru');
MailItem.Subject:= 'отправка log-а';
MailItem.Body:= 'Привет!';
MailItem.Attachments.Add('d:\log.txt'); //Если так - все нормально отрабатывает
fnlog := 'd:\log.txt';
MailItem.Attachments.Add(fnlog); //Если так - в этом месте ошибка "Прект вызвал класс исключения 'EOleSysError' с сообщением ???????..."
//файл не найден
MailItem.Send;
Outlook := Unassigned;
end;
В чем прикол?
Заранее спасибо!