Print out ALL emails

[Michael M]

Hi all
I have a client that wants to print ALL EMails from his Inbox once each day.
He wants to do this from Excel and Outlook will be open at all times
Has anyone done anything like this.
I'd appreciate any code, or assistance that can be provided
I'd be more than happy to save to a folder, then print them from there....if that's easier
Regards
Michael

 

[RickXL]

Hi,

This should be a good starting point.

You need to set up a reference to Microsoft Outlook 15.0 Object Library and place the code below into an Excel macro Module.

The macro goes to the InBox and loops round the items in there. It selects the mail items with a received date of today then it prints them.

' Requires Tools-->References-->Microsoft Outlook 15.0 Object Library
Sub PrintInbox()

    Dim olApp As Outlook.Application
    Dim olNs As Outlook.Namespace
    Dim olFldr As Outlook.MAPIFolder
    Dim olItem As Object
    Dim olMailItem As Outlook.MailItem
    
    Set olApp = CreateObject("Outlook.Application")
    Set olNs = olApp.GetNamespace("MAPI")
    Set olFldr = olNs.GetDefaultFolder(olFolderInbox)
    
    For Each olItem In olFldr.Items
        If olItem.Class = olMail Then
            Set olMailItem = olItem
            If olMailItem.ReceivedTime > Date Then olMailItem.PrintOut
        End If
    Next olItem
    
End Sub

 

[Michael M]

Thanks
Really appreciate the response, I think this should do the trick.
Much appreciated....

 

[RickXL]

No problem.

I Googled email printing before I started just in case something was out there that I should know. All I got were lots of references involving Hillary Clinton!
This is not for Hillary, is it?

Regards,

 

[Michael M]

..
I can just imagine the Secret Service saying to each other....."eh boys, how we gonna do this ???.....Dunno lets contact Mr excel"....