Inserting Dates With Quick Parts (or Macros)

[srmsrm]

I'm using O2010. In my notes (tasks and contacts), I use Quick Parts to enter repetitive text.

What I currently do is either type in the date or use insert date and then use the quick parts. Based on where I enter the text, the format of the date may change.

I also don't want the date to change in my notes, so I am not using the update automatically option in Data and Time.

What I would like to do is be able to use quick parts and have it insert today's current date in the format I require (and font attributes) and the text. So for example, when I select "Test" from Quick Part, it enters:

<today's date in required format> - <text
Its not a big deal to select insert the date each time, however, it would be nice to reduce once more click and have QP do it all for me.

If its not possible, it there a simple macro to insert today's current date in the format I require (and font attributes) and the text into the Task and Contact notes (using the above example)? Maybe I can use macros to insert the data and text instead of quick parts.

Thank you.

Shawn

 

[Diane Poremsky]

The date is doable but the formatting is going to be more difficult. Autocorrect can do the formatting but needs to use the insert date with updating command.




See http://www.slipstick.com/outlook/insertdate.asp for a simple sample with a custom button on a form. This won't work as a QAT button - i haven't had a chance to check formatting codes with it.

 

[srmsrm]

Donna - I got the date and text to work in the format required, but not using and attributes or color. Thank you.

Are you saying with Macros I cannot use the formatting (e.g. bold, color, etc.).

In Outlook 2003, I had used Redemption using RTF. Can I use Redemption in Outlook 2010?

Shawn

 

[Diane Poremsky]

You can set the formatting but its more complicated to do and you need the formatting code. AFAIK, its RTF, not HTML.




This is RTF code from an RTF file -it might be shorter and cleaner for email.




{\rtlch\fcs1 \af37 \ltrch\fcs0 \cf1\insrsid12061625 Testing RTF


\par }\pard \ltrpar\ql \li0\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 {\rtlch\fcs1 \af0 \ltrch\fcs0 \insrsid12061625


\par }{\rtlch\fcs1 \af0\afs24 \ltrch\fcs0 \b\fs24\cf6\insrsid2756157\charrsid8025584 September 6 2011}{\rtlch\fcs1 \af0\afs24 \ltrch\fcs0 \b\fs24\cf6\insrsid2756157 \endash }{\rtlch\fcs1 \af0\afs24 \ltrch\fcs0 \fs24\insrsid2756157\charrsid8025584 Note:}{


\rtlch\fcs1 \af0\afs24 \ltrch\fcs0 \b\fs24\cf6\insrsid2756157\charrsid8025584

 

[srmsrm]

Diane:

Thank you for your help.

I think what you noted is beyond my capabilities. I understand enough to get by and these forums and people who help like you have been great. I think I should just pick up a book and read it or just take a class.

I did have one other question. I got the work so when I run the macro the date appears as:
<cursor is here> 09/07/11 -

I can then use the Quick Parts to add the text.

My question is the cursor always jumps back to the beginning of the date. I saw code on cursor position, but was hoping there was an easy command to keep the cursor position after the date. For example:

09/07/11 - <cursor is here
Below is the code I'm using:

Sub ContactDate1()
Dim objItem As Object
Dim objNS As NameSpace

Set objNS = Application.GetNamespace("MAPI")
Set objItem = Application.ActiveInspector.CurrentItem
If objItem.Class = olContact Then
objItem.Body = objItem.Body & Format(Now(), "mm/dd/yy") & "
End If

Set objItem = Nothing
Set objNS = Nothing

End Sub

Shawn