![]() |
#14
|
||||
|
||||
![]()
It will ignore unread messages if you include a check for it e.g.
Code:
Private Sub Newsletters_ItemAdd(ByVal item As Object) If Not item.UnRead Then On Error GoTo err_Handler Set olItem = item.Forward olItem.BCC = "Newsletters" olItem.sEnd End If lbl_Exit: Exit Sub err_Handler: MsgBox Err.Number & " - " & Err.Description GoTo lbl_Exit End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
LouisOscar | Outlook | 1 | 08-17-2011 05:42 AM |
Auto Forward Emails - Specific Time Periods Only | Dav | Outlook | 0 | 06-22-2011 12:03 PM |
![]() |
JoyConner | Outlook | 1 | 04-21-2011 05:44 PM |
Forward Unread Messages after X Minutes? | BamaBrad | Outlook | 2 | 03-13-2011 07:57 AM |
Code to auto-forward weekend messages | Whang | Outlook | 0 | 06-16-2010 02:18 PM |