[XIO]

Запустил прогу на компе пользователя, у него нету администраторских прав, в связи с этим программа выдавала ошибку при коннекте к Аутлуку. То есть на сколько я понял система не дала подконектится проги к аутлуку... Или я чего то не понимаю. Код следующий:

Код:

Procedure SendMess(TOAdrs,Subject:String;Body:Variant);
var
  myItem, myAttachments, myAttachment : Variant;
begin
      Try
        If VarType(Form1.OleOutlook) <> varDispatch Then
          Form1.OleOutlook := CreateOleObject('Outlook.Application');
        myItem := Form1.OleOutlook.CreateItem(olMailItem);
        myItem.Display;
        myItem.To := TOAdrs;
        myItem.Subject := Subject; 
        myItem.Body := Body;
        myAttachments := myItem.Attachments;
        myItem.Send;
      Except
        ShowMessage('OLE error!');
      End;
  Form1.OleOutlook := Unassigned;
end;