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

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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