Comments on: Saving All Attachments in Outlook

By: ralphbarlow

ralphbarlow — Tue, 04 Oct 2011 08:10:53 +0000

I don’t seem to be able to get to the code page…

By: tjousk

tjousk — Tue, 27 Sep 2011 23:22:07 +0000

I’ve looked for a new post as mentioned in the comment I am replying to, and cannot find it.

By: Krishna Chaitanya

Krishna Chaitanya — Sat, 20 Aug 2011 12:30:16 +0000

I have checked your new post and downloaded it from there. Thanks Arcane for a Wonderful Code!

By: Krishna Chaitanya

Krishna Chaitanya — Tue, 16 Aug 2011 19:26:09 +0000

Hi arcane code,

I’m running into an issue while downloading the macro to my computer when I click the link you gave it says “You must both be a user of this blog as well as be currently logged into WordPress.com” I’m logged on already. Thanks.

By: Jose

Jose — Fri, 22 Apr 2011 06:42:04 +0000

Hello, this is an excellent site. 10 point for the programmer. Also, I have been looking for years a tool to allow me to compress a folder or file, split it in specific size an email it on separated emails to the same address. Very useful when sending big files to a limited inbox. All in one single sequence. Please help. My knowledge in programing will take me time to reach this target.
Thanks

By: Vinod Kumar

Vinod Kumar — Wed, 24 Mar 2010 13:34:15 +0000

Hi,

Am also having a problem in the coding while running the macro “Set att = Sel.Item(cnt).Attachments.Item(AttachmentCnt)” getting type mismatch error msg and also i tried changing “Set Sel = Exp.CurrentFolder.Items” & “Dim Sel As Outlook.Items” as per your instrution.

Regards,
Vinod

By: Vinod Kumar

Vinod Kumar — Wed, 24 Mar 2010 11:12:47 +0000

Hi,

Can you please help to retrieve all the attachment from a particular folder and save it in C:\SCB_Attachment.

Note: Sorry, could you please CC: a copy of the coding in the below email.

Thanks Inadvance.

Best Regards,
Vinod Kumar. S
vinodgo@gmail.com

By: Nils Gruson

Nils Gruson — Tue, 27 Oct 2009 10:25:32 +0000

Have you any idea how to save password protected attachments to disk?
I receive mails with attached password protected CSV files.
Now I’m trying to write a piece of VBA code to save these files to disk, but the SaveToFile call on these attachments obviously fail because I didn’t provide a password. But I can’t find where to do this anyway.
Or is there any way to open these attachments without saving them to disk first with the Excel Object Model and go from there?

Tia,
Nils Gruson

By: Justin

Justin — Tue, 13 Oct 2009 09:05:32 +0000

Thank you very much, this saves me so much time

By: kedar

kedar — Fri, 24 Apr 2009 15:13:26 +0000

Hi Rogelio,

Can you help me to get the entire code pls?

Kedar

By: Fw

Fw — Wed, 21 Jan 2009 11:51:22 +0000

awesome. Thank you very much indeed

By: Roberto

Roberto — Wed, 14 Jan 2009 22:05:28 +0000

I’m trying to save the attachments for the mail incoming. Is it possible to run the macro that saves attachments for every mail in ?
Thanks in advance!!

By: Paul

Paul — Mon, 07 Jul 2008 09:40:29 +0000

I’m running the script on all my work mail, but I’m getting the following runtime error: ‘-2147024809 (80070057)’: Cannot save the attachment. When I click on debug it brings me to the att.SaveAsFile (outputDir + outputFile) line. Seems to happen after the 66th attachment has been downloaded. Any ideas? Thank you!

By: Connie

Connie — Tue, 24 Jun 2008 18:26:38 +0000

I figured it out. No need to answer. I went to the Visual Basic Editor, Tools, References and clicked on Microsoft Scripting Runtime.

By: Connie

Connie — Tue, 24 Jun 2008 16:12:08 +0000

‘Requires reference to Microsoft Scripting Runtime (SCRRUN.DLL)
Dim fso As FileSystemObject

I ran into a compile error at this point in the macro. What do I need to do?
Thanks.
Connie

By: Attila

Attila — Thu, 05 Jun 2008 14:16:26 +0000

Dear expert,

I do not know much about VBA programming and I hope You can help me by modifying the sample You have put on this site.
I would like to ask some help in saving attachment with the following condition:

1. I got mails every day with attachments and I would like to save only attachments of mail messages for that day (not all, and not from previous dates) from a subfolder named “MEAS” in Inbox.

2. I usually select each message one by one, and would like to run the macro for each message. Message titles contain date (if it is important..) and a few letter for further identification like Meas1 +date, Meas2 +date.

3. I would like to save attachments of each mail to C:/Attachment/2008 (no rest exists..) so:
with creating folder in folder 2008 like: 2008.06. as a subfolder,
than create another subfolder for the day the mail received like 06.10 (for example)
and saving each message attachments to further subfolders named by the letter in the title of the message for example Meas1.
So if the message title contains Meas1, the saving destination subfolder in that day’s folder would become AttachMeas1Saved.

I hope could explain it well and I would highly appreciate if You could help me with this matter.

Thank You in advance again.

Sincerely

Attila

and thanks for it in advance

By: Nicholas

Nicholas — Fri, 09 May 2008 20:47:34 +0000

Is there any simpler way to do this for non-techies?

I’m not able to understand all of this macro and certificate business.

Thanks.

By: Romain

Romain — Thu, 13 Mar 2008 10:58:13 +0000

Thank you so much for this macro. It saves me a lot of time.

By: Shay

Shay — Sun, 02 Dec 2007 14:44:29 +0000

Sorry, I didn’t know how to contact you so I decided to post it here since it regards to attachments.

I have incoming emails (a lot of) that has one attachment HTML file (newsletter).
The attached newsletter contains (at the bottom) an email address link of a user (A tag).
I need to extract that address and unsubscribe the user from one of my web applications.

Up until now, using Exchange 2003 & outlook 2007 I was able to do it with a macro.
I saved the attachment to a text file on disk and then parsed it to extract the email address.
Later on I converted it to a PowerShell script.

When I switched to Exchange 2007, things started to go wrong.
Now, when I save the attachment to a text file, the contents looks like binary encoding.

I also posted this question in the Outlook.general and Exchange.admin newsgroups, Nothing returned
Is there a way to *fix* it? How can I save the attachment to a text file?

Thanks,

Shay Levi
$cript Fanatic
http://scriptolog.blogspot.com

By: chad young

chad young — Fri, 02 Nov 2007 15:18:01 +0000

I have 100′s of PDF scans sent by a printer/scanner, all using the same “scan001.pdf” filename.

In case anyone has the same situation as me, I modified the loop a bit to automatically save attachments with the same name by attaching a sequence number to the end rather than asking for a new name.

The result is “scan001.pdf 0.PDF”, “scan001.pdf 1.PDF”, etc

This is a quick hack and leaves the filenames with extra extension characters, but it works fine for my needs. I rename them manually once I view them.
————-
‘ Sequence Number for matching filenames
Dim sequenceNumber As Integer
Dim fileExtension As String

sequenceNumber = 0
fileExtension = “.PDF”
—————-
Do While fileExists = True
‘ prompt for new filename (original code)
‘outputFile = InputBox(“The file ” + outputFile _
‘ + ” already exists in the destination directory of ” _
‘ + outputDir + “. Please enter a new name, or hit cancel to skip this one file.”, “File Exists”, outputFile)

‘ new code to just append a sequence number at the end for multiple mails using the same filename
‘ time and data stamp of the attachment are preserved
outputFile = (outputFile + “.” + Str$(sequenceNumber) + fileExtension)
sequenceNumber = sequenceNumber + 1

‘If user hit cancel
If outputFile = “” Then
‘Exit leaving fileexists true. That will be a flag not to write the file
Exit Do
End If
fileExists = fso.fileExists(outputDir + outputFile)
Loop
——————