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

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”

By: ben

ben — Thu, 13 Jan 2011 18:50:31 +0000

I want to move emails with only PDF attachments to a folder. Does anyone know if it is possible to specify which type of attachments triggers a rule?

By: Reta

Reta — Mon, 27 Dec 2010 17:00:03 +0000

I figured it out! I modified two lines for my purposes:

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

‘This line creates the filename from the email subject and adds the current date
strFilename = Item.Subject & ” ” & Format(CDate(Now), “yyyy_MM_dd”) & “.pdf”

By: Reta

Reta — Wed, 22 Dec 2010 17:37:17 +0000

This works perfectly! It would be even MORE perfect if it could be possible to have the attachment saved with another filename – something more meaningful than, say, 0979_001.pdf. Specifically, could the filename be compiled from the subject line and the date of the email?

By: Mister M

Mister M — Fri, 17 Dec 2010 13:55:42 +0000

abhay, can you post the code that you are using?