Yes, of course.
private sub Application_Startup()
dim obj as object
for each obj in application.session.getfolder(olfolderinbox).items
if typeof obj is outlook.mailitem then
set omail=obj
' the rest Eric gave to you
endif
next
end sub
--
Viele Grüße
Michael Bauer
"Walshy" <(E-Mail Removed)> wrote in message
news:35A91F6F-18AD-420B-BC7B-(E-Mail Removed)...
> Any chance you could give me the code please ? Im still learning
slowly... doh
>
> would be grateful thanks
>
>
> "Michael Bauer" wrote:
>
> > Hi Walshy,
> >
> > in Application_Startup you can loop through the folder and check
each
> > item if it is unread, if so forward the item.
> >
> > --
> > Viele Grüße
> > Michael Bauer
> >
> >
> > "Walshy" <(E-Mail Removed)> wrote in message
> > news:12308BF9-B3E3-4F7D-9944-(E-Mail Removed)...
> > > I dont think there is a way to forward messages automatically or
using
> > VB in
> > > outlook without the programme running.. If so could someone please
let
> > me
> > > know..
> > >
> > > If not what I would like to do is when I log on in the morning
(Hours
> > > 9:00-17:00) I want all the new messages from the previous day that
> > have been
> > > sent after work to be forwarded to an additional address ??? Is
this
> > poss
> > > please ??? or on open send all unread messages to an additional
> > address ???
> > >
> > > Thanks for your help
> > >
> > > Regards
> >
> >
|