Retention Policy Roundtable

This innovative survey may answer a lot of questions, and be very useful!

You can see the retention policies of various organizations here. If you add your own experience, you get a summary of the findings.

 Martin.

Microsoft to join e-discovery bandwagon?

Just in case any of you had not seen this, it appears that Exchange has new ‘E-discovery’ features attached see : http://www.microsoft.com/events/EventDetails.aspx?CMTYSvcSource=MSCOMMedia&Params=%7eCMTYDataSvcParams%5e%7earg+Name%3d%22ID%22+Value%3d%221032304395%22%2f%5e%7earg+Name%3d%22ProviderID%22+Value%3d%22A6B43178-497C-4225-BA42-DF595171F04C%22%2f%5e%7earg+Name%3d%22lang%22+Value%3d%22en%22%2f%5e%7earg+Name%3d%22cr%22+Value%3d%22US%22%2f%5e%7esParams%5e%7e%2fsParams%5e%7e%2fCMTYDataSvcParams%5e

Print outlook in date order

Something of a secret up until now.  Faced with the problem of printing thousands of emails sorted in Chron order from outlook 2000, sorted by date. When we printed, the emails would come out in a random order all together.

I battled for a while to find the answer. Simply go to tools options, the Mail Format and set the defult to ‘Plain Text’ for outgoing mail… and hey presto, it prints in order…..  Obvious really… (!?!?!). Anyone need any help with this one, feel free to mail Martin.Nikel@gmail.com

Export Outlook to HTML

A function to export emails to HTML (exluding the attachments, but thats just a SaveAs to be added. Just place it in ‘This Outlook Session’

Sub testExportToHTML()Dim inBox As Outlook.MAPIFolderDim objEmail As MailItemDim inBoxItems As Outlook.Items

Set inBox = Me.ActiveExplorer().Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)

Set inBoxItems = inBox.ItemsinBoxItems.Sort “SentOn”, 1 For Each objEmail In inBoxItems Dim mailObj As MailItem Set mailObj = objEmail
If (objEmail.BodyFormat = olFormatPlain Or olFormatRichText Or olFormatUnspecified) Then

mailObj.BodyFormat = olFormatHTML ‘converts body to HTML if RTF, Text or other format.
End If
mailObj.SaveAs “c:\test” & Format(i, “0000″) & “.html”, olHTML ‘location and name and format to save in i = i + 1

Next

End Sub

Feel free to email me about this. Ciao