FreePascal.ru

Ну да. Это тот же пример.
Проблема в том, что если присоединяемый к письму файл указать напрямую строкой MailItem.Recipients.Add('C:filename.txt') - все работает,
а если через переменную fn := 'C:filename.txt'; MailItem.Recipients.Add(fn); - ошибка "файл не найден"


Добавлено спустя 1 минуту 45 ...

Добрый день!

Отправляем почту с вложением через 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 ...