Microsoft Office Forums - View Single Post

gmayor · 09-10-2020, 12:43 AM

Hmmm. I see the problem, but it can be addressed with a little vba jiggery pokery. Try the following Outlook macro which creates a temporary note with the added creation date from the original added in place of the modified date.

Code:

Sub PrintNote()
'Graham Mayor - https://www.gmayor.com - Last updated - 10 Sep 2020 

Dim olNote As Outlook.NoteItem
Dim olTempNote As Outlook.NoteItem
Dim dDate As Date
Dim strDate As String
    On Error Resume Next
    Select Case Outlook.Application.ActiveWindow.Class
        Case olInspector
            Set olNote = ActiveInspector.currentItem
        Case olExplorer
            Set olNote = Application.ActiveExplorer.Selection.Item(1)
    End Select
    dDate = Split(olNote.CreationTime, Chr(32))(0)
    strDate = "Created:" & vbTab & Format(CStr(dDate), "ddd ") & olNote.CreationTime
    Set olTempNote = CreateItem(olNoteItem)
    With olTempNote
        .Body = "Created:" & vbTab & Format(CStr(dDate), "ddd ") & _
                olNote.CreationTime & vbCr & vbCr & _
                olNote.Body
        .PrintOut
        .Delete
    End With
lbl_Exit:
    Set olNote = Nothing
    Set olTempNote = Nothing
    Exit Sub
End Sub