Outlook 2000 help 
Author Message
 Outlook 2000 help

I'm not sure why the Rules Wizard isn't working for you/boss, but since your

Option Explicit
Private WithEvents olInboxItems As Items

Private Sub Application_Startup()
  Dim objNS As NameSpace
  Set objNS = Application.GetNamespace("MAPI")
  ' instantiate objects declared WithEvents
  Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
  Set objNS = Nothing
End Sub

Private Sub Application_Quit()
  ' disassociate global objects declared WithEvents
  Set olInboxItems = Nothing
End Sub

Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
  On Error Resume Next
  Dim oFrwMsg As Outlook.MailItem
  If TypeName(Item) = "MailItem" Then
    Set oFrwMsg = Item.Forward

  End If
  Set Item = Nothing
End Sub

Place the code in "ThisOutlookSession" and keep in mind that it will fail if the
new security update has been applied.

PS - Could you do me a favor next time and limit your post to 2 or 3 groups max?


> I need a code to autoforward messages as they arrive in the inbox of outlook
> 2000.
> Is this possible?

> Just put that address in the code and I will edit it to the correct email.
> Thank you all.
> I am trying to learn programming and am havingt a hell of a time.
> This is for my boss at work. He will really be pleased if it can be done.

> Thanks in advance,
> Chris

Thu, 19 Dec 2002 03:00:00 GMT  
 [ 1 post ] 

 Relevant Pages 

1. REQ: Outlook 2000 help

2. Outlook 2000 help

3. REQ: Outlook 2000 help

4. howe can I get my hotmail accounts to my outlook 2000 help

5. Building Apps MS Outlook 2000- Help Desk custom

6. Outlook 2000 Help Desk

7. Help with Outlook 2000 VBScript

8. form of outlook xp to outlook 2000 sp3

9. Mosher Outlook 2000 Code wont run in Outlook 2002

10. Changes in the Item.GetInspector.CommandBars from Outlook 2000 to Outlook XP

11. outlook 2000 and outlook 97 display differently

12. CDO vs Outlook 2000 Object Library?? (Outlook Newbie)


Powered by phpBB® Forum Software