Pls help to change the code for inserting date in Ol contact body

[Witzker]

Hi

Here is the code
it puts a date AT THE TOP of The OL contact body
Pls help to put the date AT THE END of the contact body

Public Sub AddNote()
  Dim DefaultMsg$
 
  DefaultMsg = ""
 
  AddNote_Ex Application.ActiveInspector, DefaultMsg
End Sub

Private Sub AddNote_Ex(Inspector As Outlook.Inspector, Optional Msg As String)
  Dim WdSel As Word.Selection
  Dim p&

  Msg = Format(Date, "mm/dd/yyyy", vbUseSystemDayOfWeek, vbUseSystem) & _
    ": " & Msg
  Msg = vbCrLf & "---" & vbCrLf & Msg
  Set WdSel = GetCurrentWordSelection(Inspector)
  p = Len(Msg) - 2
  WdSel.Start = 0
  WdSel.End = 0
  WdSel.InsertBefore Msg
  WdSel.Start = WdSel.Start + p
  WdSel.End = WdSel.Start
End Sub

Private Function GetCurrentWordSelection(OpenInspector As Outlook.Inspector) As Word.Selection
  Dim Doc As Word.Document
  Dim Wd As Word.Application
 
  Set Doc = OpenInspector.WordEditor
  Set Wd = Doc.Application
  Set GetCurrentWordSelection = Wd.Selection
End Function

What to change
THX
regards
Witzker

 

[Diane Poremsky]

WdSel.InsertBefore Msg inserts it before the current line. insertafter will insert it after the first line. IOf you want it at the end of everything, you need to move the cursory to the end -
WdSel.EndKey Unit:=wdStory
WdSel.InsertBefore Msg


The format of the body line controls where the date is inserted

Sub StampDate()
Set Item = Application.ActiveInspector.currentItem
' first line
 '  Item.Body = Format(Date, "mm/dd/yyyy", vbUseSystemDayOfWeek, vbUseSystem) & vbCrLf & vbCrLf & Item.Body

'last line
   Item.Body = Item.Body & vbCrLf & vbCrLf & Format(Date, "mm/dd/yyyy", vbUseSystemDayOfWeek, vbUseSystem)
End Sub

 

[Witzker]

you need to move the cursory to the end -
WdSel.EndKey Unit:=wdStory
WdSel.InsertBefore Msg

I do not know where to put this in the macro or what to replace PLS help.
Can you Pls put it in the macro I have posted?

If I use your macro
Sub StampDate()
The formatted body get lost!
e.g. lines in red get black again and format is lost!

 

[Diane Poremsky]

Try HTMLBody instead of just Body.

You'd use my StampDate macro in place of your AddNote macro.


To keep using your macro, you need to add WdSel.EndKey Unit:=wdStory before the insertbefore line in your macro

WdSel.Start = 0
WdSel.End = 0
WdSel.EndKey Unit:=wdStory
WdSel.InsertBefore Msg
WdSel.Start = WdSel.Start + p
WdSel.End = WdSel.Start
End Sub

 

[Witzker]

when I use StampDate macro

Sub StampDate()
Set Item = Application.ActiveInspector.CurrentItem
' first line
'  Item.Body = Format(Date, "mm/dd/yyyy", vbUseSystemDayOfWeek, vbUseSystem) & vbCrLf & vbCrLf & Item.Body

'last line
   Item.HTMLBody = Item.HTMLBody & vbCrLf & vbCrLf & Format(Date, "mm/dd/yyyy", vbUseSystemDayOfWeek, vbUseSystem)
End Sub

Is Something wrong in the code?

I found this - loosing format:

Formatierung beim Bearbeiten von HtmlBody verloren - Outlook

Bietet eine Problemumgehung für Formatierungen, die verloren gehen, wenn Sie die HtmlBody-Eigenschaft eines Outlook-Elements mithilfe des Outlook-Objektmodells bearbeiten.

docs.microsoft.com

What to try next?

 

[Witzker]

To keep using your macro, you need to add WdSel.EndKey Unit:=wdStory before the insertbefore line in your macro

WdSel.Start = 0
WdSel.End = 0
WdSel.EndKey Unit:=wdStory
WdSel.InsertBefore Msg
WdSel.Start = WdSel.Start + p
WdSel.End = WdSel.Start
End Sub

This works BUT
The next problem is that the focus is not at the cursor!
Meaning when I start to write the letters go There Were the cursor was before starting the macro.!

How to set the focus to the cursor position where the macro puts it?