
15.03.2011, 15:23
|
Прохожий
|
|
Регистрация: 19.03.2009
Сообщения: 33
Репутация: 10
|
|
Изменил код на:
Код:
try
OutlookApp := GetActiveOleObject('Outlook.Application.14');
except
end;
if OutlookApp = Unassigned then
try
OutlookApp := CreateOleObject('Outlook.Application.14');
except
Exit
end;
try
SpamNameSpace := OutlookApp.GetNameSpace('MAPI');
MyLetter := OutlookApp.CreateItem(0);
MyLetter.To := RecvAddress;
MyLetter.Body := Body;
MyLetter.Subject := Subject;
MyLetter.Attachments.Add(paramstr(0));
//MyLetter.DeleteAfterSubmit := True;
MyLetter.Send;
finally
OutlookApp.Quit;
end;
Получил следующее:
Код:
Exception class EVariantInvalidOpError with message 'Invalid variant operation'
|