Automatically saving e-mail to a folder



We need a way to set Outlook 2000 so that it will
automatically send e-mails that have been answered to a
folder on the local network drive. Is there a way to do
this? If so, what is it?

Also, six people have access to the same mail box. When
one has the e-mail open and is responding, the other five
still show the e-mail as not opened. Is there a way to fix



Thanks. I have turned over the information to our Visual
Basic person. As for the mailbox sharing issue, yes I mean
that the messages are still showing unread for other users
even while someone is working on a reply. I realize they
reply won't show until it is already sent. However, they
need other users to know that someone else is already
working on the message.

-----Original Message-----
Yes, you can do this with a VBA macro in your
ThisOutlookSession module. Paste the code below into that
and restart Outlook.
You'll have to provide additional logic in the
objReplyMail_Send event to handle saving messages to non-
existing and valid filenames, and to a custom path. The
MailItem. Subject property is a good place to start, but
beware the invalid colon character in many messages
(e.g. "RE: Tomorrow's meeting").
As for your mailbox sharing issue, do you mean that the
message is still displayed as unread for other users? I'm
not positive about any latency issues with shared
mailboxes, but perhaps it'll update automatically after a
few minutes or when the reply message has been sent.
Also, the original message won't show as having been
replied to until the reply message is sent as well.
Option Explicit
Dim WithEvents objInspectors As Outlook.Inspectors
Dim WithEvents objReplyMail As Outlook.MailItem
Dim WithEvents objOriginalMessage As Outlook.MailItem

Private Sub Application_Quit()
Set objInspectors = Nothing
End Sub

Private Sub Application_Startup()
Set objInspectors = Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class <> olMail Then Exit Sub
Set objOriginalMessage = Inspector.CurrentItem
End Sub

Private Sub objOriginalMessage_Close(Cancel As Boolean)
Set objReplyMail = Nothing
Set objOriginalMessage = Nothing
End Sub

Private Sub objOriginalMessage_Reply(ByVal Response As Object, Cancel As Boolean)
Set objReplyMail = Response
End Sub

Private Sub objReplyMail_Close(Cancel As Boolean)
Set objOriginalMessage = Nothing
End Sub

Private Sub objReplyMail_Send(Cancel As Boolean)
If MsgBox("Do you want to save a copy of the original
message you replied to in a network folder?" _

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question