Extract msg attachments from outlook email

**haribo83** · 06-30-2011, 08:32 AM

I have the following vba script that saves attachments in an email.

This works fine for .docx, .jpg etc but I need to use it to extract multiple .msg attachments which doesn't work.

The code is

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String

saveFolder = "C:\Test\"
For Each objAtt In itm.Attachments
stFileName = saveFolder & "\" & objAtt.DisplayName
i = 0
JumpHere:
If Dir(stFileName) = "" Then
objAtt.SaveAsFile stFileName
Else
i = i + 1
stFileName = saveFolder & "\" & i & " - " & objAtt.DisplayName
GoTo JumpHere
End If
Set objAtt = Nothing
Next
End Sub

The error concerns the line - If Dir(stFileName) = "" Then

**Domski** · 06-30-2011, 09:56 AM

I've adapted some code I use for deleting attachments which seems to work:

Please Login or Register  to view this content.

Please remember to use code tags when posting code to the forum per the forum rules.

**haribo83** · 06-30-2011, 11:01 AM

This is excellent thank you. Please excuse a silly question but how would I run this automatically as a script and not have to choose the folder?

**Domski** · 06-30-2011, 11:28 AM

No worries. What would you want to run it on?

Dom

**Domski** · 06-30-2011, 11:45 AM

This has the same construct as the code you posted so maybe fits the bill:

Please Login or Register  to view this content.

I've also changed the position of the first check to see if the file already exists so it's not repeating it.

Dom

**snb** · 06-30-2011, 11:49 AM

I don't see any difference in functionality in those codes.

To save the attachments of all the PostIN items into folder E:\ this suffices:

Please Login or Register  to view this content.

I you want to save the emails as 'msg' use:

Please Login or Register  to view this content.

**jkessler** · 07-02-2012, 10:53 AM

I have edited the code slightly to only save .MSG attachments. Is there a way to open the .MSG attachments and email them to a different address instead of saving them?