Microsoft Office VB Script Issue
Hi there!
I work for a tour operator and I do basic office work/customer service work. There's this one task where I basically have to scan a form (hundreds of them but each file individually), e-mail them to my e-mail (with each e-mail is about 30 attachments), and then save them as individual .pdf's on my hard drive which then after I run through them and change the name corresponding to the name on the form.
So I wanted to create a macro that automatically saves all 30 or so attachments form each e-mail, and since they are all named something like DC001, I'd like to somehow save it as Form1, Form2, Form3, Form4, Form5, etc and have a counter integer in the macro to continuously save it as a different FormNumber.
The problem is: I'm not too great with Visual Basic (haven't programmed since high school!) and I am quite unfamiliar with this, I have a code that I'm trying to tweak and use at the bottom. For awhile I couldn't get the code to even recognize the attachments, but then finally it saved them all from one e-mail but it was named "Xerox Scanned Document" and it was an outlook file, because you have to double click the attachment to get it as a pdf file. I realize there is an option in Outlook that says "Save all attachments" but like previously it saved them all as one outlook file, here is a picture to kind of show what I mean:
http://img828.imageshack.us/i/problem1w.jpg/
http://img651.imageshack.us/i/problem2j.jpg/
Code:
Sub GetAttachments()
' This Outlook macro checks a the Outlook Inbox for messages
' with attached files (of any type) and saves them to disk.
' NOTE: make sure the specified save folder exists before
' running the macro.
On Error GoTo GetAttachments_err
' Declare variables
Dim ns As NameSpace
Dim Inbox As MAPIFolder
Dim SubFolder As MAPIFolder
Dim Item As Object
Dim Atmt As Attachment
Dim FileName As String
Dim i As Integer
Set ns = GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)
Set SubFolder = Inbox.Folders("Parental Consent Forms")
i = 0
' Check Inbox for messages and exit of none found
If SubFolder.Items.Count = 0 Then
MsgBox "There are no messages in the Parental Consent Forms Folder.", vbInformation, _
"Nothing Found"
Exit Sub
End If
' Check each message for attachments
For Each Item In SubFolder.Items
' Save any attachments found
For Each Atmt In Item.Attachments
' This path must exist! Change folder name as necessary.
FileName = "C:\Documents and Settings\npasmore\My Documents\Parental Consent Forms\" & Atmt.FileName
Atmt.SaveAsFile FileName
i = i + 1
Next Atmt
Next Item
' Show summary message
If i > 0 Then
MsgBox "I found " & i & " attached files." _
& vbCrLf & "I have saved them into the C:\Documents and Settings\npasmore\My Documents\Parental Consent Forms." _
& vbCrLf & vbCrLf & "Have a nice day.", vbInformation, "Finished!"
Else
MsgBox "I didn't find any attached files in your mail.", vbInformation, "Finished!"
End If
' Clear memory
GetAttachments_exit:
Set Atmt = Nothing
Set Item = Nothing
Set ns = Nothing
Exit Sub
' Handle errors
GetAttachments_err:
MsgBox "An unexpected error has occurred." _
& vbCrLf & "Please note and report the following information." _
& vbCrLf & "Macro Name: GetAttachments" _
& vbCrLf & "Error Number: " & Err.Number _
& vbCrLf & "Error Description: " & Err.Description _
, vbCritical, "Error!"
Resume GetAttachments_exit
End Sub
I would be greatly appreciative if someone could help as this is a long and strenuous task which takes hours but with the right macro - could take maybe half an hour.
Re: Microsoft Office VB Script Issue
Re: Microsoft Office VB Script Issue
it appears that the attachment is a single pdf file
to separate the pages, into separate documents, requires some sort of pdf control, to open the pdf file and parse the pages, easy enough to do with a word doc, but not something i have tried with pdf files
search on the net for pdf tools to automate
Re: Microsoft Office VB Script Issue
I don't think he's trying to combine the documents so much as just trying to save them. The pdfs are loaded in separate message files that are also attachments, so he has to open the email message, open each message attachment, and save the pdf file from there. I will have to check the object model to see the best way to grab them.
Re: Microsoft Office VB Script Issue
MS didn't make the outlook model very good. Looks like this may not be possible through straight outlook because the object is so restrictive. You may need to get outlook redemption even as a trial.
Re: Microsoft Office VB Script Issue
Quote:
I don't think he's trying to combine the documents so much as just trying to save them.
yeah i thought he was getting a single attachment he wanted to save each page separately, but on rereading, i believe you are correct, which is much easier
i have certainly seen code in this forum to save email attachments in outlook using vba, but i can not confirm that it works
check out http://www.outlookcode.com/codedetail.aspx?id=70
a quick google brought many results
