Am Wed, 12 Jul 2006 17:24:54 -0400 schrieb Rog:
This should do the trick:
Dim App as Outlook.Application Dim Mail as Outlook.MailItem
Set App = GetObject(,"Outlook.Application") ' Assuming an e-mail is selected Set mail=App.ActiveExplorer.Selection(1) Debug.Print Mail.Recipients(1).Address
-- Viele Gruesse / Best regards Michael Bauer - MVP Outlook -- www.VBOffice.net --
[Quoted Text] > I want to try to replicate the security prompt issue for one of my users > on my own machine, but I am not sure which Outlook update to install in > order to receive the security prompt that appears when trying to access > an email. > I am running Outlook 2003. > Thanks, > Rog
|