|
Sandy Cattanach
Posts: 4
Joined: 2010-03-21
|
We have installed the outlook security manager for a lot of users but there is one in particular it will not work for. Other users can log onto this workstation and the security manager works which proves it is not a local workstation issue. We do use a mixture of roaming and non roaming profiles and this particular person has a roaming profile. I am not a VB programmer and do not know how to script but would appreciate any assistance or advice that anyone has.
By the way we are on an XP SP3 based system using Office 2003. |
|
Posted 21 Mar, 2010 19:11:29
|
|
Top
|
|
Andrei Smolin
Add-in Express team
Posts: 18787
Joined: 2006-05-11
|
Hello Sandy,
Are there any error messages? Is that system a 64-bit one? Do you use the .NET edition of the component?
Andrei Smolin
Add-in Express Team Leader |
|
Posted 22 Mar, 2010 04:50:27
|
|
Top
|
|
Sandy Cattanach
Posts: 4
Joined: 2010-03-21
|
Hi Andrei
The answer is no, no and no. Sorry I know this isn't helping.
Thanks
Sandy |
|
Posted 25 Mar, 2010 21:20:30
|
|
Top
|
|
Andrei Smolin
Add-in Express team
Posts: 18787
Joined: 2006-05-11
|
Hi Sandy,
Please make sure Outlook is running. Start Word, press Alt+F11 to open the VBA IDE, double-click ThisDocument in the Project Explorer window, and paste the code below to the code pane. Now choose Tools | References in the main menu and tick the following item: "Microsoft Outlook {version} object library". Finally, place the text cursor on any line of the code just pasted and press F5.
You'll see the security warning. Press No in the dialog and press OK in the error message produced by the code.
Now set UseSecMan = True in the code and press F5 again. This time, Outlook should show an email with qqq@qqq.com in its To field.
Does this work for you?
Option Explicit
Sub testSecMan()
Dim UseSecMan As Boolean
UseSecMan = False
Dim OutlookApp As Outlook.Application
Set OutlookApp = GetObject(, "Outlook.Application")
Dim mail As Outlook.MailItem
Set mail = OutlookApp.CreateItem(olMailItem)
Dim secman As Object
If UseSecMan Then
Set secman = CreateObject("AddinExpress.OutlookSecurityManager")
secman.ConnectTo OutlookApp
secman.DisableOOMWarnings = True
End If
mail.Recipients.Add "qqq@qqq.com"
If UseSecMan Then
mail.Display
End If
secman.DisableOOMWarnings = False
End Sub
Andrei Smolin
Add-in Express Team Leader |
|
Posted 26 Mar, 2010 08:27:06
|
|
Top
|
|
Sandy Cattanach
Posts: 4
Joined: 2010-03-21
|
It came up with a runtime error 429. Active X component can't create object. After running the registry fix I am trying to run the code in its intial state and it comes back with an error stating "Compile error. User-defined type not defined." |
|
Posted 28 Mar, 2010 22:42:13
|
|
Top
|
|
Andrei Smolin
Add-in Express team
Posts: 18787
Joined: 2006-05-11
|
Hi Sandy,
Are you installing the Outlook Security Manager or your application that uses the Outlook Security Manager? In the latter case, you need tofollow the Deployment section in the manual. The errors in the VBA code you tested tell that the component isn't registered on that PC.
Andrei Smolin
Add-in Express Team Leader |
|
Posted 29 Mar, 2010 05:53:25
|
|
Top
|
|
Sandy Cattanach
Posts: 4
Joined: 2010-03-21
|
No, we are installing Outlook Security Manager. It works on this PC for everyone else but not for one particular person. This person has a roaming profile. |
|
Posted 29 Mar, 2010 16:27:07
|
|
Top
|
|
Andrei Smolin
Add-in Express team
Posts: 18787
Joined: 2006-05-11
|
Hi Sandy,
If you install the Security Manager using an admin account, then it will work. If this is Vista, Windows 7 or Windows 2008 Server, set UAC to its default level, and run setup.exe, not .MSI. Also, in Control Panel | System | Advanced | Performance | Settings | Data Execution Prevention, choose the " ... for essential Windows programs and services only" flag.
Andrei Smolin
Add-in Express Team Leader |
|
Posted 30 Mar, 2010 06:58:47
|
|
Top
|
|