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 --


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