[fast3kid]

I need to print off attachments automatically from one address and I was looking up add-ins that would allow me to do this but they range in price from $30-$190. Is there just a free add-in somewhere out there that would be SAFE and FREE? I all ready checked all the Cnet.com downloads and couldn't find anything for 2007.

[mitch8]

You don't need an add-on you can just set a message rule.
http://email.about.com/od/mozillathu...auto_print.htm

[fast3kid]

The rules work great if you just want to print off the email. My problem is I don't need the email body to print off, I need just the attachment to. Even if I could get it to work so it prints off the attachment and the email that would be fine. All the sites I have checked out say that you need an add-in to print the attachment and I am hoping there is a free one out there somewhere.

[mitch8]

Sorry I thought you just wanted the e-mail not the attachments.

You could tell outlook to print the attachments when you print an e-mail like in http://office.microsoft.com/en-us/ou...431731033.aspx
but I think you have to set it each time you print so I doubt it would work with a rule. The only way you are going to get it to work for free is if you do your own scripting like in http://www.howtogeek.com/howto/micro...ts-in-outlook/

You could search the internet for a script that would print all attachments if you want to but I don't think there are any free programs that you do if for you.

[fast3kid]

The scripting from the second link works great thanks. But is there any way to get it to run automatically say every half hour or so? Sorry for being so demanding.

[mitch8]

You could set the code to run at startup like in http://www.vbforums.com/showthread.php?t=579676

Option Explicit

Private Sub Application_MAPILogonComplete()
    Dim Inbox As MAPIFolder
    Dim Item As MailItem
    Dim Atmt As Attachment
    Dim FileName As String
    Dim i As Integer

    Set Inbox = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Folders.Item("Batch Prints")

    For Each Item In Inbox.Items
        For Each Atmt In Item.Attachments
            ‘ all attachments are first saved in the temp folder C:\Temp.  Be sure to create this folder.
            FileName = "C:\Temp\" & Atmt.FileName
            Atmt.SaveAsFile FileName
            ‘ please change the program folder accordingly if the Acrobat Reader is not installed on drive C:
            Shell """C:\Program Files\Adobe\Reader 8.0\Reader\acrord32.exe"" /h /p """ + FileName + """", vbHide
        Next

        Item.Delete  ‘remove this line if you don’t want the email be deleted automatically
    Next

    Set Inbox = Nothing

End Sub

Not sure if it would work never worked with scripts


Thanks,
Mitch

[fast3kid]

Ok so I got it to work. What I did was:
1. Create a rule to auto print off the email
2. Set up outlook to print off the attachment (check box on print screen)
Now it prints the email AND the attachment.

[mitch8]

Cool I'm glad you got it working.