Results 1 to 7 of 7
  1. #1
    2 Star Lounger rjbphillipsiii's Avatar
    Join Date
    Mar 2003
    Location
    Memphis, Tennessee, USA
    Posts
    187
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Outlook Date & Time (MS Office 2000)

    I found a way to customize the tool bar in MS Word to allow placing the Date, Time or both with a click of the mouse. I keep extensive records in my Tasks in Outlook and I have to hand type many, many times a day the current date, sometimes the current time. I try using the C+V and only type the date once a session, this does not really work because before you know it
    you have copied something else and then the Ctrl+c
    puts it where you intended the date:
    If you could exprot the tool bar commands and then import them this might work... ? but I have not figured out how. I had a programmer tell me, you could make tool bar icons for all (3) of these, but alas no info on
    how.
    R.J.B. Phillips III
    Logical Systems Inc. Part Time Drafter
    IBC WONDER HOSTESS Retired 33+ years
    Firestone Tr & Rubber Company 15 Years rjbphillipsiii@yahoo.com

  2. #2
    Gold Lounger
    Join Date
    Dec 2000
    Location
    Hollywood (sorta), California, USA
    Posts
    2,759
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Outlook Date & Time (MS Office 2000)

    The code below will do what you want with one caveat: the date and time will be inserted not at the IP but at the end of task item body. So, if you are typing along and then want the date/time inserted, you're fine. If you click on a sentence mid-paragraph and click the button, the date/time is inserted at the end of the body text. Follow?

    Put the code in the code module ThisOutlookSession for "Project1" in Outlook (press Alt-F11 to bring up the VBE). Once pasted in, close the VBE and save changes if prompted. Then add a button that invokes the code via Tools>Customize>Commands>Macros. Change the text and/or add an icon, etc.

    Sub InsertDate()
    Set OlApp = CreateObject("Outlook.Application")
    On Error Resume Next
    Set TaskItem = OlApp.ActiveInspector.CurrentItem
    TaskItem.Body = TaskItem.Body & Now
    End Sub

    You can use the Format function of alter the Now function to return the date/time in a myriad of ways. Check help for help on that.

    Someone who knows the Outlook object better than I might be able to tell you how to get the date/time inserted at the IP. That would be nice.
    Kevin <IMG SRC=http://www.wopr.com/w3tuserpics/Kevin_sig.gif alt="Keep the change, ya filthy animal...">
    <img src=/w3timages/blackline.gif width=33% height=2><img src=/w3timages/redline.gif width=33% height=2><img src=/w3timages/blackline.gif width=33% height=2>

  3. #3
    2 Star Lounger rjbphillipsiii's Avatar
    Join Date
    Mar 2003
    Location
    Memphis, Tennessee, USA
    Posts
    187
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Outlook Date & Time (MS Office 2000)

    I appreciate this info, but it will not really help. I am pasting the way I put in the Dates below as a small example and this is only from (1) of many tasks
    What really kinda stinks is Microsoft built in the Date & time feature in Word Shift+Alt+d = date and the Shift+Alt+t = time. would have been wonderful had they follow the same format in Outlook <img src=/S/smile.gif border=0 alt=smile width=15 height=15>

    07/25/01 - Got the mounts installed, hoping to start the wiring today, need to follow up on the cable ties. Called David
    Bluff City Electronics on the cable ties needed.
    07/24/01 - Drill & Tap backplate for 10/32 screws and special cable tie mounts
    07/23/01 - Got the wire for the main feeder connections
    07/19/01 - Working on Metal Detector Alarm Boxes
    07/18/01 - Work in progress, some parts already mounted.
    07/17/01 - Hope to work on this some tomorrow.
    07/11/01 - Traced out some of the wiring today, checked the Motor Starter size and coil voltage as well
    R.J.B. Phillips III
    Logical Systems Inc. Part Time Drafter
    IBC WONDER HOSTESS Retired 33+ years
    Firestone Tr & Rubber Company 15 Years rjbphillipsiii@yahoo.com

  4. #4
    Gold Lounger
    Join Date
    Dec 2000
    Location
    Hollywood (sorta), California, USA
    Posts
    2,759
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Outlook Date & Time (MS Office 2000)

    If only we know how to drop the date in at the IP...I see no Selection object (not like Word) in Outlook. Alas...
    Kevin <IMG SRC=http://www.wopr.com/w3tuserpics/Kevin_sig.gif alt="Keep the change, ya filthy animal...">
    <img src=/w3timages/blackline.gif width=33% height=2><img src=/w3timages/redline.gif width=33% height=2><img src=/w3timages/blackline.gif width=33% height=2>

  5. #5
    Plutonium Lounger Leif's Avatar
    Join Date
    Dec 2000
    Location
    U.K.
    Posts
    14,010
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Outlook Date & Time (MS Office 2000)

    Here's some freeware at <A target="_blank" HREF=http://allchars.zwolnet.com/index.html>AllChars</A> that might suit your needs.

  6. #6
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Outlook Date & Time (MS Office 2000)

    SendKeys to the rescue! This works if you don't mind losing whatever is on the clipboard.

    Sub TypeDate()
    Dim doClip As DataObject
    Set doClip = New DataObject 'instantiate DataObject
    doClip.SetText Format(Now, "mm/dd/yy"), 1 'set dataobject to short date
    doClip.PutInClipboard 'transfer contents to clipboard
    SendKeys "^v" 'paste date wherever the insertion point is
    Set doClip = Nothing 'clear object
    End Sub

  7. #7
    Gold Lounger
    Join Date
    Dec 2000
    Location
    Hollywood (sorta), California, USA
    Posts
    2,759
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Outlook Date & Time (MS Office 2000)

    Very good, Jefferson. I bet Richard will love this.
    Kevin <IMG SRC=http://www.wopr.com/w3tuserpics/Kevin_sig.gif alt="Keep the change, ya filthy animal...">
    <img src=/w3timages/blackline.gif width=33% height=2><img src=/w3timages/redline.gif width=33% height=2><img src=/w3timages/blackline.gif width=33% height=2>

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •