Results 1 to 4 of 4
  1. #1
    3 Star Lounger
    Join Date
    Apr 2001
    Location
    London, Gtr London, England
    Posts
    357
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Saving Emails (Outlook 2000)

    Apologies as I'm sure this has probably already been covered, but I can't find anything on how best to save all of my emails. What 's the best way to do this? Many thanks.

    Raemer

  2. #2
    Uranium Lounger
    Join Date
    Jan 2001
    Location
    Cincinnati, Ohio, USA
    Posts
    7,089
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Saving Emails (Outlook 2000)

    To preserve them exactly as-is, I would simply create a new PST file for archival purposes and move them into that. Otherwise, you are going to have to make choices and trade-offs, such as saving them in text or HTML format. Attachments will also be a problem.

    I just keep everything of importance in my current PST file in Outlook, and archive off certain things that I want to keep but do not use regularly to keep performance at its best. Is there a specific reason you do not want to keep them in Outlook?
    -Mark

  3. #3
    New Lounger
    Join Date
    Nov 2003
    Posts
    10
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Saving Emails (Outlook 2000)

    You can use a third-party add-on MessageSave to save messages in .msg format to your hard drive.

  4. #4
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Salt Lake City, Utah, USA
    Posts
    9,508
    Thanks
    0
    Thanked 6 Times in 6 Posts

    Re: Saving Emails (Outlook 2000)

    I had a business need to write this, so here it is for posterity:

    Sub savemessagestodrive()
    Dim strT As String, strSaveName As String, strSavePath As String
    Dim intC As Integer, intN As Integer
    Dim fldrSource As MAPIFolder

    ' user selects Outlook folder for messages to be saved
    Set fldrSource = Outlook.Application.Session.PickFolder
    ' user selects drive folder to save to
    strSavePath = CreateObject("Shell.Application").BrowseForFolder( 0, _
    "Select Folder for saving selected files", 0, 17).Items.Item.Path
    With fldrSource
    For intC = 1 To .Items.Count
    With .Items(intC)
    intN = 0
    ' set file name, clean out illegal characters
    strT = Replace(Replace(Replace(.Subject & "_" & .SenderName, "/",""), "*", ""), "!", "")
    strT = Replace(Replace(Replace(Replace(Replace(strT, "?", ""),Chr(34), ""), ":", ""), "", ""), "|", "")
    Do ' check for duplicate, add a number if it is
    strSaveName = Replace(strT & "_" & intN & ".msg", "_0", "")
    intN = intN + 1
    Loop Until Len(Dir(strSavePath & strSaveName, vbDirectory)) = 0
    ' Debug.Print strSavePath & strSaveName ' testing purposes
    On Error Resume Next
    .SaveAs strSavePath & strSaveName, olMSG ' save in msg format to preserve attachments
    If Err.Number Then Debug.Print strSaveName ' check immediates window for problems
    On Error GoTo 0
    End With
    Next intC
    End With
    Set fldrSource = Nothing
    End Sub
    -John ... I float in liquid gardens
    UTC -7ąDS

Posting Permissions

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