date & time message header

T

Tachi

I travel constantly in Asia and communicate withh offices back in the USA.
To avoid time confusion, I have to enter day, date, and time at the top of
each message. I would like a 'shortcut' or automatic way to do that. I
handle probably 40 emails per day.
 
E

Eric Legault [MVP - Outlook]

Try this macro:

Sub AddDateHeader()
Dim objMailItem As Outlook.MailItem

If ActiveInspector.CurrentItem.Class = olMail Then
Set objMailItem = ActiveInspector.CurrentItem
objMailItem.Body = Date & vbCrLf & vbCrLf & objMailItem.Body
End If
End Sub
 
Top