Comments on: Outlook rule to save attachments to a web directory

By: apar

apar — Fri, 18 May 2012 14:28:08 +0000

Thanks for the code. The code works fine a few times. Some times the attachments are not saved.
I debugged and figured out what the issue was. Most of the items the mail item does not have attachments. In my opinion, that is because, the code gets activated even before the mail attachment gets downloaded completely. Is there anyway, I can get the rule to act a few seconds after the mail arrives than right away?

Thanks

By: Jennifer Bennett

Jennifer Bennett — Thu, 17 May 2012 18:52:04 +0000

This was extremely helpful for what i needed. I have a few question on this as far as the functions I need to use this for:

1. I am trying to put this file in a ftp network so what i would have to do is change this line strFolderPath to something else but I was unsure how to code it to a specific networking pathway through an EI directoty

2. The file names and formats are specific in the manner they are sent.. i was curious if this would work for that:
strFilename = Item.Subject & ” ” & Format(CDate(Now), “yyyy_MM_dd”) & “.pdf”

as far as the format ..it would be “wildcard_wildcard_ATMC” “wildcard_wildcard_OHT”

They are send by subject lines in the the first twofield attributes but are distinguished to wish EI path by the “_OHT” attribute

Any help you could provide would be appreciative.

By: Sue

Sue — Tue, 15 May 2012 20:07:10 +0000

@Thantos
I would like to pull both “pdf” and “tif” attachment out to a folder – how would I modify the script to do this?

By: Drew

Drew — Sat, 28 Apr 2012 03:20:34 +0000

Thank you, this is perfect. I have Google Analytics set up to email PDFs of my visitor data on a weekly basis. With close to 10 websites that I monitor regularly, this enabled me to have the files automatically downloaded to a single directory.

Works perfectly in MS Outlook 2010
Just modified the path to where my files are to be stored and replaced “htm” to “pdf” where appropriate.

Thank you for this!

By: DavidA

DavidA — Thu, 02 Feb 2012 19:32:39 +0000

Thanks for sharing. I am using this to file my receipts: I want to take a picture from my phone and send it to myself. I had to edit the folder location where I wanted my attachments saved as well as the attachment extension. It is working great.

By: David

David — Sun, 22 Jan 2012 21:40:45 +0000

This isn’t working for me. The rule is moving the emails to a folder, but it isn’t saving the attachments. The first time I manually ran the rule it asked for permission to run the script due to security, and I allowed it. This is the line I have edited in the code. It’s a valid path. Nothing is being saved to disk.
strRootFolderPath = “e:\backup\”

By: Scott Smith

Scott Smith — Mon, 27 Jun 2011 04:01:02 +0000

This code was exactly waht I was looking for. However I want to add one thing. How do I run a an mdb file after I have this code save a txt file?

I am going to use this to save incoming text files, but I need to run an mdb file to add them to my database.

Scott

By: Thantos

Thantos — Sat, 09 Apr 2011 22:07:03 +0000

This definitely sounds doable. You should be able to embed the code that you supplied into my code. The hard part is parsing the PDF file and saving each page as part of the TIFF, though, and then saving everything in the designated directory. Here is my attached code; I merged the two code snippets together, but PLEASE NOTE that I have not tested it. I am sure that it will need some tweaking, but it will hopefully point you in the right direction. Once I get a bit more free time (my apologies, as I am swamped now), I will see if I can get this working 100%.

Sub SaveAttachmentsToDisk(Item As Outlook.MailItem)
Dim olkFolder As Outlook.MAPIFolder, _
olkAttachment As Outlook.Attachment, _
objFSO As Object, _
strRootFolderPath As String, _
strFilename As String, _
intCount As Integer
Dim noAppend As TiffEncoder = New TiffEncoder(TiffCompression.Default, True)
Dim pdf As PdfDecoder = New PdfDecoder(XXX)
Dim i As Integer=0
‘Change the following path to match your environment
strRootFolderPath = “z:\www\departments\webreports\”
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set olkFolder = Application.ActiveExplorer.CurrentFolder
If Item.Attachments.Count > 0 Then
For Each olkAttachment In Item.Attachments
If objFSO.GetExtensionName(LCase(olkAttachment.FileName)) = “pdf” Then
strFilename = olkAttachment.FileName

‘Begin conversion of PDF to TIFF
Do While i< numPages
Dim img As AtalaImage = pdfDecoder.Read(strFilename,i,Nothing)
noAppend.Save(outStream, img, Nothing)
img.Dispose(XXX)
outStream.Seek(0, SeekOrigin.Begin)
i += 1
Loop
intCount = 0
Do While True
If objFSO.FileExists(strRootFolderPath & strFilename) Then
intCount = intCount + 1
objFSO.deletefile (strRootFolderPath & strFilename)
Else
Exit Do
End If
Loop
'Save TIFF
img.SaveAsFile strRootFolderPath & strFilename
olkAttachment.SaveAsFile strRootFolderPath & strFilename
End If
Next
End If
Set objFSO = Nothing
Set olkAttachment = Nothing
Set olkFolder = Nothing
End Sub

By: Sue

Sue — Wed, 23 Mar 2011 18:18:42 +0000

I am using your code above to save PDF attachments to folder. My goal however is to extract PDF attachments from e-mail, convert them to multi-page TIFF image before saving to a folder. Would it be possible to combine this code with yours to attain my goal? http://www.ehow.com/how_7645423_convert-pdf-tiff-vbnet.html

By: Thantos

Thantos — Thu, 10 Feb 2011 19:38:07 +0000

ben,
Try changing this line:

If objFSO.GetExtensionName(LCase(olkAttachment.FileName)) = “htm” Then

to:

If objFSO.GetExtensionName(LCase(olkAttachment.FileName)) = “pdf” Then

What did we change? The “htm” attachment specification to “pdf”