Script to always CC for backup

[Michael Bartlett]

Hi all,

I'm wanting all emails that I send to have a CC (or perhaps BCC) to
(e-mail address removed). I would like it to have the following
behaviour:

1. Sending from Outlook
From Outlook, click New -> Mail message. The CC should automatically be
populated to (e-mail address removed)
2. Sending from Right-Click
From Windows Explorer, I right-click on a document and choose Send -> Mail
Recipient, the mail message that pops up should also have CC populated as
per above.

I'm not asking for exact code for this as I do know a bit of VBA - what I
would like to know is the best methodology for this - is there an event to
hook into or something along those lines.

Thanks for your help in advance,

Michael

 

[Michael Bartlett]

Please note, I have found this script:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("(e-mail address removed)")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub

The problem with that is that it does it on the Send event, I would like it
to be populated BEFORE to send event so, for whatever reason, I could just
remove it from the CC field before sending if I DON'T want to CC my archive.

Cheers
Michael

 

[Diane Poremsky [MVP]]

How about a custom form with the field filled in?

--
Diane Poremsky [MVP - Outlook]
Author, Teach Yourself Outlook 2003 in 24 Hours
Coauthor, OneNote 2003 for Windows (Visual QuickStart Guide)
Author, Google and Other Search Engines (Visual QuickStart Guide)



Join OneNote Tips mailing list: http://www.onenote-tips.net/

 

[Michael Bartlett]

Ah, now that's something I hadn't looked into - and don't know too much
about...
I've done:

New -> Mail Message
Tools -> Forms -> Design Form
I've changed the form the way I want it to be, but when I save/publish it
and do a New -> Mail Message it keeps coming up with the old one. How do I
default all new mail messages to this form?

Cheers
Michael

How about a custom form with the field filled in?

--
Diane Poremsky [MVP - Outlook]
Author, Teach Yourself Outlook 2003 in 24 Hours
Coauthor, OneNote 2003 for Windows (Visual QuickStart Guide)
Author, Google and Other Search Engines (Visual QuickStart Guide)



Join OneNote Tips mailing list: http://www.onenote-tips.net/

Please note, I have found this script:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("(e-mail address removed)")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub

The problem with that is that it does it on the Send event, I would like
it
to be populated BEFORE to send event so, for whatever reason, I could just
remove it from the CC field before sending if I DON'T want to CC my
archive.

Cheers
Michael

 

[Andrew Cushen]

Try this:

Right click on the Inbox and choose Properties from the
popup menu. Change "When posting to this folder, use..."
to point to your form.

Note that existing e-mails will not use your form. To do
that, you'd need to write a macro that loops through all e-
mails in your Inbox (or whatever folder they're in) and
changes their .MessageClass property to the name of your
form.

-Andrew
===============================================

-----Original Message-----
Ah, now that's something I hadn't looked into - and don't know too much
about...
I've done:

New -> Mail Message
Tools -> Forms -> Design Form
I've changed the form the way I want it to be, but when I save/publish it
and do a New -> Mail Message it keeps coming up with the old one. How do I
default all new mail messages to this form?

Cheers
Michael

How about a custom form with the field filled in?

--
Diane Poremsky [MVP - Outlook]
Author, Teach Yourself Outlook 2003 in 24 Hours
Coauthor, OneNote 2003 for Windows (Visual QuickStart Guide)
Author, Google and Other Search Engines (Visual QuickStart Guide)


Outlook & Exchange Solutions Center: http://www.slipstick.com
Join OneNote Tips mailing list: http://www.onenote- tips.net/

Please note, I have found this script:

Private Sub Application_ItemSend(ByVal Item As

Object, Cancel As
Boolean) reason, I could
just have CC populated
as a bit of VBA - what
I

.