Outlook 2003-formatting vba Date stamp

Royzer · #1 03-29-2012, 10:39 AM

Hi.

Is there something I can add to my Outlook code to reformat the Date from mm/dd/yyyy to a date format that uses the month name instead of number? Also, is there any way to place the date in a specific part of the email body? Right now it appears at the bottom left of the email body. Thanks!

Here's what I'm using:

Code:

 Sub StampDateHTML()
    Dim objOL As Outlook.Application
    Dim objNS As Outlook.NameSpace
    Dim objItem As Object
    Dim strStamp As String
    On Error Resume Next
    Set objOL = Application
    Set objItem = objOL.ActiveInspector.CurrentItem
    If Not objItem Is Nothing Then
        If objItem.BodyFormat = olFormatHTML Then
            Set objNS = objOL.Session
            strStamp = "<p>" & Date
            objItem.HTMLBody = Replace(objItem.HTMLBody, _
                               "</body>", _
                               strStamp & "</body>", _
                               , , vbTextCompare)
        End If
    End If
    Set objOL = Nothing
    Set objNS = Nothing
    Set objItem = Nothing
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Date formatting	kjxavier	Excel	18	08-23-2011 08:21 AM
Date formatting	kjxavier	Excel	6	08-12-2011 05:46 AM
Date formatting	kjxavier	Excel	0	08-10-2011 08:17 AM
Date Formatting in MS word 2007	Karthick	Word	4	01-19-2010 05:54 AM
Add date and time stamp to new mail and incoming mail	cadsmarter	Outlook	0	02-02-2006 08:50 AM