bcc myself

[v2009ba58]

Hi, my company deletes sent emails after 2 weeks, what is the best way to automatically bcc myself all mail I send. This way I thought I could create a rule to put all that mail in a certain folder that would not be deleted after 2 weeks.

I am using outlook 2007

thank you

[mdmackillop]

Do you need bcc? It looks that this could be done just wih a rule.

[v2009ba58]

Just set it up with a rule. Will let you know if it works. I am hoping the copied emails do not get deleted.

[Charlize]

Just set it up with a rule. Will let you know if it works. I am hoping the copied emails do not get deleted.Create a local pst - file and every week you let the archive wizard do his thing ie. archiving e-mails that are 7 days old.

Charlize

[v2009ba58]

we are unable to use archive

[mdmackillop]

You may still be safer to use the rule to move the email to a personal folder.

[Zack Barresse]

Besides a rule, which should work just fine, you can also use code...
Option Explicit

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'http://www.outlookcode.com/article.aspx?id=72
Dim oRecipient As Recipient, sMsg As String
Dim res As Long, sBCC As String
On Error Resume Next
' #### USER OPTIONS ######################################
' address for Bcc -- must be SMTP address or resolvable
' to a name in the address book
sBCC = "someone@somewhere.dom"
' ########################################################
Set oRecipient = Item.Recipients.Add(sBCC)
oRecipient.Type = olBCC
If Not oRecipient.Resolve Then
sMsg = "Could not resolve the Bcc recipient. " & _
"Do you want still to send the message?"
res = MsgBox(sMsg, vbYesNo + vbDefaultButton1, _
"Could Not Resolve Bcc Recipient")
If res = vbNo Then
Cancel = True
End If
End If
End Sub
HTH