date & time message header

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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.
 
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
 
Back
Top