Macros - Fonts and Hard Returns

  • Thread starter Thread starter srm
  • Start date Start date
S

srm

I'm using Outlook 2003. I'm very new to VB coding and finding my way
around looking at samples and experimenting. I got the following to
insert a date. How correct it is, I don't know, but it works.

Public Sub DateOnly()

Set objItem = Application.ActiveInspector.CurrentItem
objItem.Body = objItem.Body & Format(Date, "mm/dd/yy") & " - "

End Sub

Is there a way to have the date be bolded when entered and have a few
hard returns added after the date?

Thank you.

Shawn
 
That depends in part on what kind of item it is, which you didn't say.

FYI, there is a newsgroup specifically for general Outlook programming issues "down the hall" at microsoft.public.outlook.program_vba or, via web interface, at http://www.microsoft.com/office/community/en-us/default.mspx?dg=microsoft.public.outlook.program_vba

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
Back
Top