Security prompt always present

Add-in Express™ Support Service
That's what is more important than anything else

Security prompt always present
 
Dumortier Gaėtan




Posts: 9
Joined: 2009-12-09
Microsoft Office Outlook 2007 (12.0.6514.500)SP2 MSO(12.0.6425.1000)
Part of Miscrosoft Office entreprise 2007
Posted 10 Dec, 2009 07:43:22 Top
Andrei Smolin


Add-in Express team


Posts: 14106
Joined: 2006-05-11
Thank you.

Can you send me a code sample for testing? Please find the support e-mail address in readme.txt.

Regards from Belarus (GMT+2),

Andrei Smolin
Add-in Express Team Leader
Posted 10 Dec, 2009 07:50:59 Top
Dumortier Gaėtan




Posts: 9
Joined: 2009-12-09
Hello Andrei,

I don't understand why the code is so important, 3 weeks ago, we didn't need to use the component(but I've tried it ;) ), just registering the dll was enough.

Otherwise, we use directly the com object of outlook. I'm sure that the problem comes from an MS office's update.

Kr
Posted 14 Dec, 2009 03:01:32 Top
Dmitry Kostochko


Add-in Express team


Posts: 2731
Joined: 2004-04-05
Hello Gaėtan,

I have tested the code below on a test PC with the following software configuration:

Windows Vista Business SP2 (x86)
Microsoft Office Outlook 2007 (12.0.6514.5000) SP2 MSO (12.0.6425.1000)


procedure TForm1.DoOutlookObjectModel;
var
  Outlook: TOutlookApplication;
  IFolder: MAPIFolder;
  IMail: MailItem;
begin
  Memo1.Lines.Clear;
  Outlook := TOutlookApplication.Create(nil);
  try
    IFolder := Outlook.GetNamespace('MAPI').GetDefaultFolder(olFolderInbox);
    IMail := IFolder.Items.Item(1) as MailItem;
    if Assigned(IMail) then begin
      SecurityManager.ConnectTo(Outlook.Application);
      SecurityManager.DisableOOMWarnings := True;
      try
        Memo1.Lines.Add(
          '*** First message in Microsoft Outlook inbox (Outlook Object Model) ***' + #13#10 +
          'From: ' + IMail.SenderName + #13#10 +
          'Subj: ' + IMail.Subject + #13#10 + #13#10);
      finally
        SecurityManager.DisableOOMWarnings := False;
      end;
    end;
  finally
    IMail := nil;
    IFolder := nil;
    Outlook.Free;
  end;
end;


I used Delphi 7 Update Pack1 and Security Manager 2009 for Microsoft Outlook, VCL Edition (5.1.202) with secman.dll (2.0.0.6). The code above works fine, I don't see any security warnings. I can send you the whole test project if you need it.
Posted 14 Dec, 2009 10:35:05 Top
Dumortier Gaėtan




Posts: 9
Joined: 2009-12-09
Hi Dmitry,


Can you tell me where your secman dll is registered ? system32 or the current path ?

Thanks in advance,
Gaėtan
Posted 15 Dec, 2009 01:14:13 Top
Dumortier Gaėtan




Posts: 9
Joined: 2009-12-09
I'm confused, it works ... but before we don't need to use these lines
SecurityManager.ConnectTo(Outlook.Application);
SecurityManager.DisableOOMWarnings := True;

just registering the dll was enough, I'll modify the programs to use your component

Thanks a lot !
Posted 15 Dec, 2009 02:06:40 Top
Dmitry Kostochko


Add-in Express team


Posts: 2731
Joined: 2004-04-05
Hello Gaėtan,

Can you tell me where your secman dll is registered ? system32 or the current path ?


The secman.dll is located in the Program Files\Common Files\Outlook Security Manager folder.
Posted 15 Dec, 2009 05:09:09 Top