View Single Post
  #3  
Old October 17th 06, 04:00 PM posted to microsoft.public.outlook.program_vba
Richard Lewis Haggard
external usenet poster
 
Posts: 14
Default Failure to display an email item

Yes, my VBA code that creates a new signature after each email is sent seems
to execute normally so it is not a permissions failure or a failure to
enable macros problem. I'm wondering if I might have declared the variable
in the wrong place (VBA for Outlook is not my primary programming
environment).
--
Richard Lewis Haggard
www.Haggard-And-Associates.com
"Sue Mosher [MVP-Outlook]" wrote in message
...
You mean "folder" not "mailbox," right?

Does any VBA code run? Did you check the basics at
http://www.outlookcode.com/d/vbabasics.htm

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Richard Lewis Haggard" HaggardAtWorldDotStdDotCom wrote in message
...
I've tried to set up a system wherein selected email automatically
displays
but I've done something silly and it does not work.

In short, I've declared an Outlook.Items object which is created at start
up
time and associated with a mailbox under the Inbox. An event handler for
has been added that is supposed to be invoked when an email is added to
the mail box and it will display the email. I've also created
a rule that moves selected emails into this mailbox. The idea is, email
comes in, the rule places the email in the special box and the event
handler
gets triggered which displays the item. Good theory, bad practice. It
doesn't work.

Here's the VBA code:

Private WithEvents ItemsAutoDisplay As Outlook.Items


Private Sub Application_Startup()
Set ItemsAutoDisplay =
Application.Session.GetDefaultFolder(olFolderInbox ).Folders("SDG").Items
End Sub


Private Sub ItemsAutoDisplay_ItemAdd(ByVal Item As Object)
If TypeOf Item Is Outlook.MailItem Then
Item.Display
End If
End Sub



Ads