Consulting

Results 1 to 7 of 7

Thread: bcc myself

  1. #1

    bcc myself

    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

  2. #2
    Administrator
    VP-Knowledge Base
    VBAX Grand Master mdmackillop's Avatar
    Joined
    May 2004
    Location
    Scotland
    Posts
    14,489
    Location
    Do you need bcc? It looks that this could be done just wih a rule.
    MVP (Excel 2008-2010)

    Post a workbook with sample data and layout if you want a quicker solution.


    To help indent your macros try Smart Indent

    Please remember to mark threads 'Solved'

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

  4. #4
    VBAX Master
    Joined
    Jul 2006
    Location
    Belgium
    Posts
    1,286
    Location
    Quote Originally Posted by 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.
    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

  5. #5
    we are unable to use archive

  6. #6
    Administrator
    VP-Knowledge Base VBAX Grand Master mdmackillop's Avatar
    Joined
    May 2004
    Location
    Scotland
    Posts
    14,489
    Location
    You may still be safer to use the rule to move the email to a personal folder.
    MVP (Excel 2008-2010)

    Post a workbook with sample data and layout if you want a quicker solution.


    To help indent your macros try Smart Indent

    Please remember to mark threads 'Solved'

  7. #7
    Site Admin
    Urban Myth
    VBAX Guru
    Joined
    May 2004
    Location
    Oregon, United States
    Posts
    4,940
    Location
    Besides a rule, which should work just fine, you can also use code...
    [vba]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[/vba]
    HTH

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •