W
Wendy
I've been tinkering around with this script to get it to post Time and Date
in the notes field of a Task form and I've got it to work (I think the
original script came from Sue's wonderful site) except the cursor ends up at
the end of the previous line (or at the beginning of the notes field), not
at the end of the time/date stamp line. Can someone help?
I'm using OL2K with Exchange Svr 5.5
Sub StampTask()
Dim objApp As Application
Dim objItem As Object
Dim objNS As NameSpace
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objItem = objApp.ActiveInspector.CurrentItem
If objItem.Class = olTask Then
objItem.Body = objItem.Body & vbCrLf & Now() _
End If
Set objItem = Nothing
Set objNS = Nothing
Set objApp = Nothing
End Sub
in the notes field of a Task form and I've got it to work (I think the
original script came from Sue's wonderful site) except the cursor ends up at
the end of the previous line (or at the beginning of the notes field), not
at the end of the time/date stamp line. Can someone help?
I'm using OL2K with Exchange Svr 5.5
Sub StampTask()
Dim objApp As Application
Dim objItem As Object
Dim objNS As NameSpace
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objItem = objApp.ActiveInspector.CurrentItem
If objItem.Class = olTask Then
objItem.Body = objItem.Body & vbCrLf & Now() _
End If
Set objItem = Nothing
Set objNS = Nothing
Set objApp = Nothing
End Sub