CDO Outlook security prompt hangs, vb script Mapi Session

ken_wilsonii · Joined: 22 Jan 2008 Posts: 1

User is on

Windows XP Pro SP2
Office 2003 XP SP2

Using an Outlook 2003 custom form

set Session1 = CreateObject("MAPI.Session")
msgbox "Before Logon"
on error resume next
Session1.Logon "","",False,False
msgbox "After Logon"

msgbox Session1.CurrentUser.Fields(CdoPR_TITLE).Value

msgbox "After Security Prompt"

User get's the message box "After Logon"
The next line trying to display the users Title hangs Outlook and the
security prompt never appears.

This works fine for me on my own computer and works fine for me if I
am logged on to the same computer the users is on.

CDO file versions are slightly different
6.5.7232.92 on the users computer
6.5.7233.48 on mine.

Can't figure this one out, the settings on the Outlook account are
identical to mine.

Archived from group: microsoft>public>outlook>program_vba

Ken Slovak - [MVP - Outlo · Joined: 12 Aug 2007 Posts: 405

I wouldn't worry about the versions since you don't have a problem when
using your own logon on that computer. When you use your own logon I'm
assuming you mean a different Windows logon? Perhaps your organization is
using the Exchange security form to limit the uses of CDO methods and
properties to certain groups in the AD? That might explain it.

Normally you would receive an Outlook security warning when the code
accessed Session.CurrentUser, since that's restricted by client-side CDO. If
you didn't get that warning when you ran the code then either your logon is
permitted to use that in code based on the security form, or the code was
run under server-side CDO, which is not security restricted.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm

wrote in message @d4g2000prg.googlegroups.com...
> User is on
>
> Windows XP Pro SP2
> Office 2003 XP SP2
>
> Using an Outlook 2003 custom form
>
> set Session1 = CreateObject("MAPI.Session")
> msgbox "Before Logon"
> on error resume next
> Session1.Logon "","",False,False
> msgbox "After Logon"
>
> msgbox Session1.CurrentUser.Fields(CdoPR_TITLE).Value
>
> msgbox "After Security Prompt"
>
>
> User get's the message box "After Logon"
> The next line trying to display the users Title hangs Outlook and the
> security prompt never appears.
>
> This works fine for me on my own computer and works fine for me if I
> am logged on to the same computer the users is on.
>
> CDO file versions are slightly different
> 6.5.7232.92 on the users computer
> 6.5.7233.48 on mine.
>
>
> Can't figure this one out, the settings on the Outlook account are
> identical to mine.

Way to add prompt to this macro? Hi! I was given a fantastic script on this board some time back which I use all the time. It sorts the folders in the main Personal Folders. This is the script here: Private Sub Applicati

client script Hi In Outlook 2003, to add new shortcuts, I would click on Go menu and select Shortcuts to navigate to my groups of shortcuts, then I click on Add New Shortcut to proceed. I am able to put together a short VBA macro to add new shortcuts in Outlook 2003.

How to create birthdays like Outlook does? Hello, I`m trying to create birthday appointments the same way like Outlook does if you add a birthday in a contact. With this code I´m not able to do so: Sub Dim As Dim objRecPattern As Outlook.Recu

Synchronize Outlook Appointment Hi, I'm trying to perform between my application and outlook default calendar (which mimic the behavior like ActiveSync) I have face the difficultly on update the appointment with recurrence pattern. let said, I have a appointment with

Problem in outlook addin Hi , I have one outlook-addin and it was working fine with 2003 , it is not working in 2007 . once i click on the add in button outlook is crashing .. and it is crashing in pOuter, dwClsContext,