|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
Thread Tools | Search this Thread | Display Modes |
|
|
|
#1
January 28th 07, 08:28 PM
posted to microsoft.public.outlook.contacts
|
|||
|
|||
Automatically enter the date in the details field (Contacts)
I'm using Outlook 2003 as a CRM-program.
Every time I have contacted a client or a prospect, I write down the date and a few words in the details field. I want to be able to use a shortcut key to place the (system)date in the details field automatically. Do I have to create a macro to do that and what would it look like? Thanks in advance for your answers. 
|
|
#2
February 7th 07, 03:54 PM
posted to microsoft.public.outlook.contacts
|
|||
|
|||
|
Automatically enter the date in the details field (Contacts)
Yes, that takes a macro. See http://www.outlookcode.com/d/code/stampdate.htm
-- Sue Mosher, Outlook MVP Author of Configuring Microsoft Outlook 2003 http://www.turtleflock.com/olconfig/index.htm and Microsoft Outlook Programming - Jumpstart for Administrators, Power Users, and Developers http://www.outlookcode.com/jumpstart.aspx "lion" wrote in message ... I'm using Outlook 2003 as a CRM-program. Every time I have contacted a client or a prospect, I write down the date and a few words in the details field. I want to be able to use a shortcut key to place the (system)date in the details field automatically. Do I have to create a macro to do that and what would it look like? Thanks in advance for your answers.
|
|
#3
February 7th 07, 06:41 PM
posted to microsoft.public.outlook.contacts
|
|||
|
|||
|
Automatically enter the date in the details field (Contacts)
Hi Sue,
Thank you so much for your answer. I already found the code and applied it in my form. I changed it a little bit: ------- Sub StampContact() 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 = FormatDateTime(Now(), 2) & ":" & vbCrLf & vbCrLf & vbCrLf & objItem.Body End If Set objItem = Nothing Set objNS = Nothing End Sub ------- The only question I have (at the moment) is: when I execute this macro, it stamps the date, but the cursor is placed at the beginning of the same line. What do I have to add to place the cursor on the next line so I can start typing my text right away? Hope my question is clear to you. (I bought your book Teach Yourself........ It's very good and I'm busy learning the techniques). "Sue Mosher [MVP-Outlook]" wrote: Yes, that takes a macro. See http://www.outlookcode.com/d/code/stampdate.htm -- Sue Mosher, Outlook MVP Author of Configuring Microsoft Outlook 2003 http://www.turtleflock.com/olconfig/index.htm and Microsoft Outlook Programming - Jumpstart for Administrators, Power Users, and Developers http://www.outlookcode.com/jumpstart.aspx "lion" wrote in message ... I'm using Outlook 2003 as a CRM-program. Every time I have contacted a client or a prospect, I write down the date and a few words in the details field. I want to be able to use a shortcut key to place the (system)date in the details field automatically. Do I have to create a macro to do that and what would it look like? Thanks in advance for your answers.
|
|
#4
February 7th 07, 07:55 PM
posted to microsoft.public.outlook.contacts
|
|||
|
|||
|
Automatically enter the date in the details field (Contacts)
Look at the statement that actually inserts the text:
objItem.Body = FormatDateTime(Now(), 2) & ":" & vbCrLf & vbCrLf & vbCrLf & objItem.Body See what order it uses to concatenate the different text expressions? Now, change that order by rearranging the expressions. What do I have to add to place the cursor on the next line so I can start typing my text right away? That's not possible without a third-party component or Outlook 2007. -- Sue Mosher, Outlook MVP Author of Configuring Microsoft Outlook 2003 http://www.turtleflock.com/olconfig/index.htm and Microsoft Outlook Programming - Jumpstart for Administrators, Power Users, and Developers http://www.outlookcode.com/jumpstart.aspx "lion" wrote in message ... Hi Sue, Thank you so much for your answer. I already found the code and applied it in my form. I changed it a little bit: ------- Sub StampContact() 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 = FormatDateTime(Now(), 2) & ":" & vbCrLf & vbCrLf & vbCrLf & objItem.Body End If Set objItem = Nothing Set objNS = Nothing End Sub ------- The only question I have (at the moment) is: when I execute this macro, it stamps the date, but the cursor is placed at the beginning of the same line. What do I have to add to place the cursor on the next line so I can start typing my text right away? "Sue Mosher [MVP-Outlook]" wrote: Yes, that takes a macro. See http://www.outlookcode.com/d/code/stampdate.htm "lion" wrote in message ... I'm using Outlook 2003 as a CRM-program. Every time I have contacted a client or a prospect, I write down the date and a few words in the details field. I want to be able to use a shortcut key to place the (system)date in the details field automatically. Do I have to create a macro to do that and what would it look like? Thanks in advance for your answers.
|
|
#5
February 8th 07, 09:13 AM
posted to microsoft.public.outlook.contacts
|
|||
|
|||
|
Automatically enter the date in the details field (Contacts)
Maybe it's a bit silly, but I tryed to change the order of the concatenated
strings, but this didn't solve the problem. In the example below the date is placed at the end of the text, but the cursor jumps back to the top (which is even worse). objItem.Body = objItem.Body & FormatDateTime(Now(), 2) & ":" & vbCrLf & vbCrLf & vbCrLf There should be a statement in VBA to move the cursor down one line, isn't there? "Sue Mosher [MVP-Outlook]" wrote: Look at the statement that actually inserts the text: objItem.Body = FormatDateTime(Now(), 2) & ":" & vbCrLf & vbCrLf & vbCrLf & objItem.Body See what order it uses to concatenate the different text expressions? Now, change that order by rearranging the expressions. What do I have to add to place the cursor on the next line so I can start typing my text right away? That's not possible without a third-party component or Outlook 2007. -- Sue Mosher, Outlook MVP Author of Configuring Microsoft Outlook 2003 http://www.turtleflock.com/olconfig/index.htm and Microsoft Outlook Programming - Jumpstart for Administrators, Power Users, and Developers http://www.outlookcode.com/jumpstart.aspx "lion" wrote in message ... Hi Sue, Thank you so much for your answer. I already found the code and applied it in my form. I changed it a little bit: ------- Sub StampContact() 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 = FormatDateTime(Now(), 2) & ":" & vbCrLf & vbCrLf & vbCrLf & objItem.Body End If Set objItem = Nothing Set objNS = Nothing End Sub ------- The only question I have (at the moment) is: when I execute this macro, it stamps the date, but the cursor is placed at the beginning of the same line. What do I have to add to place the cursor on the next line so I can start typing my text right away? "Sue Mosher [MVP-Outlook]" wrote: Yes, that takes a macro. See http://www.outlookcode.com/d/code/stampdate.htm "lion" wrote in message ... I'm using Outlook 2003 as a CRM-program. Every time I have contacted a client or a prospect, I write down the date and a few words in the details field. I want to be able to use a shortcut key to place the (system)date in the details field automatically. Do I have to create a macro to do that and what would it look like? Thanks in advance for your answers.
|
|
#6
February 8th 07, 01:14 PM
posted to microsoft.public.outlook.contacts
|
|||
|
|||
|
Automatically enter the date in the details field (Contacts)
There should be a statement in VBA to move the cursor down one line, isn't
there? See the response on this issue.in my earlier post. -- Sue Mosher, Outlook MVP Author of Configuring Microsoft Outlook 2003 http://www.turtleflock.com/olconfig/index.htm and Microsoft Outlook Programming - Jumpstart for Administrators, Power Users, and Developers http://www.outlookcode.com/jumpstart.aspx "lion" wrote in message ... Maybe it's a bit silly, but I tryed to change the order of the concatenated strings, but this didn't solve the problem. In the example below the date is placed at the end of the text, but the cursor jumps back to the top (which is even worse). objItem.Body = objItem.Body & FormatDateTime(Now(), 2) & ":" & vbCrLf & vbCrLf & vbCrLf There should be a statement in VBA to move the cursor down one line, isn't there? "Sue Mosher [MVP-Outlook]" wrote: Look at the statement that actually inserts the text: objItem.Body = FormatDateTime(Now(), 2) & ":" & vbCrLf & vbCrLf & vbCrLf & objItem.Body See what order it uses to concatenate the different text expressions? Now, change that order by rearranging the expressions. What do I have to add to place the cursor on the next line so I can start typing my text right away? That's not possible without a third-party component or Outlook 2007. -- Sue Mosher, Outlook MVP Author of Configuring Microsoft Outlook 2003 http://www.turtleflock.com/olconfig/index.htm and Microsoft Outlook Programming - Jumpstart for Administrators, Power Users, and Developers http://www.outlookcode.com/jumpstart.aspx "lion" wrote in message ... Hi Sue, Thank you so much for your answer. I already found the code and applied it in my form. I changed it a little bit: ------- Sub StampContact() 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 = FormatDateTime(Now(), 2) & ":" & vbCrLf & vbCrLf & vbCrLf & objItem.Body End If Set objItem = Nothing Set objNS = Nothing End Sub ------- The only question I have (at the moment) is: when I execute this macro, it stamps the date, but the cursor is placed at the beginning of the same line. What do I have to add to place the cursor on the next line so I can start typing my text right away? "Sue Mosher [MVP-Outlook]" wrote: Yes, that takes a macro. See http://www.outlookcode.com/d/code/stampdate.htm "lion" wrote in message ... I'm using Outlook 2003 as a CRM-program. Every time I have contacted a client or a prospect, I write down the date and a few words in the details field. I want to be able to use a shortcut key to place the (system)date in the details field automatically. Do I have to create a macro to do that and what would it look like? Thanks in advance for your answers.
|
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| How to date stamp entries in contacts comments field? | Bob U | Outlook - Using Contacts | 3 | December 26th 11 03:42 PM |
| Outlook 03, Anniversay field fills w/ gibberish if no date enter | fxdllion | Outlook - Using Contacts | 0 | October 19th 06 01:57 AM |
| Why can't I enter data in Outlook task Details Tab? | MMMorrow | Outlook - General Queries | 0 | June 19th 06 11:08 PM |
| 01/01/1601 Anniversary Date adding to Contacts automatically | John Venables | Outlook - Using Contacts | 2 | May 21st 06 02:38 PM |
| date fields - link the calander pop-up to a custom date field | Tom | Outlook - Using Forms | 0 | January 23rd 06 10:13 PM |
Hybrid Mode
