I'm using the following code to insert the date and time into my
contacts notes. Is there a way to customize the format of the date
and/or time to maybe show only the date? It currently comes out as
"6/7/2005 5:09:27 PM"

I am new to coding, so answers may be such that I need to learn more
before making these changes.

Sub StampDate()
Item.Body = Now() & vbCrLf & vbCrLf & Item.Body
End Sub

Sub CommandButton1_Click()
Call StampDate()
End Sub

thanks

Try just Date() rather than Now().

--
Patricia Cardoza
Outlook MVP
Author - Special Edition Using Microsoft Office Outlook 2003
Lead Author - Access 2003 VBA Programmer's Reference
Author - Absolute Beginner's Guide to Microsoft OneNote 2003

http://blogs.officezealot.com/cardoza
http://www.cardozasolutions.com

"srm" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> I'm using the following code to insert the date and time into my
> contacts notes. Is there a way to customize the format of the date
> and/or time to maybe show only the date? It currently comes out as
> "6/7/2005 5:09:27 PM"
>
> I am new to coding, so answers may be such that I need to learn more
> before making these changes.
>
> Sub StampDate()
> Item.Body = Now() & vbCrLf & vbCrLf & Item.Body
> End Sub
>
> Sub CommandButton1_Click()
> Call StampDate()
> End Sub
>
> thanks
>