|
|
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. |
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. |
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. |
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. |
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. |
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. |
Automatically enter the date in the details field (Contacts)
OK, thank you.
"Sue Mosher [MVP-Outlook]" wrote: 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. |
| All times are GMT +1. The time now is 10:56 AM. |
Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2006 OutlookBanter.com