Results 1 to 6 of 6
  1. #1
    Star Lounger
    Join Date
    Nov 2001
    Location
    Alabama, USA
    Posts
    62
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Saving email and attachment list (2002)

    I send our a lot of emails to clients with a couple of attachments included. Once the email has been sent, I would like to save a copy of the email to my hard drive in the client's folder, but I do not need to save the email with a full blown copy of the attachments (the attachments are saved elsewhere and are usually the same for each client). Currently, when I open the sent email, I perform a Save As and save it in the client's folder, however, when I do this, the saved email does not show the names of the attachments that were sent with the email. Is there a way to show Attachments as part of the header information From:, Sent:, To:, and Subject: ? I did a search on this topic, but I did not see anything that pertains to it.....but, maybe I missed it.

    Thanks,

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Saving email and attachment list (2002)

    Once you have removed attachments, you can't list them in the message header.

    You could use JohnBF's <!post=Outlook Attachment Removal Manager,443421>Outlook Attachment Removal Manager<!/post>. It saves attachments to disk and replaces them with hyperlinks to the saved attachments in the body of the e-mail.

  3. #3
    Star Lounger
    Join Date
    Nov 2001
    Location
    Alabama, USA
    Posts
    62
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Saving email and attachment list (2002)

    Hans,
    Thank you for the reply. Maybe I didn't say it correctly. All I want to do is save the email (say in .txt format and just show the names of the attachments on the saved email file. Currently the saved file just shows From, Sent, To, and Subject. It does not show Attachment in the header.

    I hope that explained it better.

    Thanks,

  4. #4
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Saving email and attachment list (2002)

    If you save an e-mail as a .txt file, attachments aren't listed unless their names had already been placed in the body of the e-mail. (That's what JohnBF's add-in does)

    If you save an e-mail as a .msg file, the attachments will be saved with the file.

  5. #5
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Saving email and attachment list (2002)

    I noticed that my delivery receipts had copies of (often large) messages attached, so I wrote a procedure to strip the attachments. As written, it removes .msg attachments. I haven't looked at the code for two years, so I can't be completely confident, but I think you can adapt it to remove any and all attachments if you like.

    <code>Sub RemoveRelayedMessageAttachment()
    ' Jefferson Scher 9/29/06; rev. 10/21/06 to target selected message(s)
    Dim msg As Outlook.MailItem, blnLoop As Boolean, intCounter As Integer, _
    strInsert As String, intSelCount As Integer
    blnLoop = False
    If Inspectors.Count > 0 Then
    ' Go to work on this "message" if it is a mail item
    If ActiveInspector.CurrentItem.Class <> olMail Then Exit Sub
    Set msg = ActiveInspector.CurrentItem
    Else
    ' Try to clean selected message(s)
    With ActiveExplorer
    Select Case .Selection.Count
    Case 0
    Exit Sub
    Case 1
    If .Selection(1).Class <> olMail Then Exit Sub
    Set msg = .Selection(1)
    Case Else
    blnLoop = True
    intSelCount = 1
    If .Selection(intSelCount).Class <> olMail Then Exit Sub
    Set msg = .Selection(intSelCount)
    End Select
    End With
    End If
    Do
    strInsert = vbNullString
    With msg.Attachments
    For intCounter = .Count To 1 Step -1
    If LCase(Right(.Item(intCounter).FileName, 4)) = ".msg" Then
    strInsert = strInsert & vbCrLf & .Item(intCounter).DisplayName
    .Item(intCounter).Delete
    End If
    Next
    End With
    If strInsert <> vbNullString Then
    msg.Body = msg.Body & vbCrLf & vbCrLf & String(65, "=") & vbCrLf & _
    "Message-type attachment(s) removed to save storage space:" & vbCrLf & strInsert
    End If
    If msg.Saved = False Then msg.Save
    If blnLoop = False Then Exit Do
    intSelCount = intSelCount + 1
    With ActiveExplorer
    Do
    If .Selection(intSelCount).Class = olMail Then
    Set msg = .Selection(intSelCount)
    If .Selection.Count = intSelCount Then blnLoop = False
    Exit Do
    Else
    If .Selection.Count = intSelCount Then
    Set msg = Nothing
    Exit Sub
    End If
    intSelCount = intSelCount + 1
    End If
    Loop
    End With
    Loop
    Set msg = Nothing
    End Sub</code>

    I don't know how easy it would be to integrate with the saving function, but it would be a logical next step.

  6. #6
    Star Lounger
    Join Date
    Nov 2001
    Location
    Alabama, USA
    Posts
    62
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Saving email and attachment list (2002)

    Thanks Hans and Ischer for your replies. I'll look into both to see what will work for me.

    Thanks again.

Posting Permissions

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