add note to body or notes

[Joel Allen]

Outlook 2003 SP1

Hi,

The following script adds a note to existing notes in the notes field.

'-----------------
Sub CommandButtonNewEntry_Click()
On Error Resume Next
Item.Body = Now() & " " & pCurUserName & ": " & vbCrLf & vbCrLf & Item.Body
End Sub
'-----------------

My problem is that all the formatting is lost and turns it to plain text.
Any ideas on how to keep the formatting that exists in the notes field?

Thanks, Joel

 

[Michael Bauer [MVP - Outlook]]

Depends on the item. If it's an email, it's probably html, so read/write the
stuff from/into the HTMLBody property.

--
Best regards
Michael Bauer - MVP Outlook
Manage and share your categories:
<http://www.vboffice.net/product.html?pub=6&lang=en>


Am Wed, 17 Feb 2010 07:42:20 -0800 schrieb Joel Allen:

 

[Joel Allen]

No, it's a custom Task item. Any ideas?

Depends on the item. If it's an email, it's probably html, so read/write
the
stuff from/into the HTMLBody property.

--
Best regards
Michael Bauer - MVP Outlook
Manage and share your categories:
<http://www.vboffice.net/product.html?pub=6&lang=en>


Am Wed, 17 Feb 2010 07:42:20 -0800 schrieb Joel Allen:

 

[Dmitry Streblechenko]

Tasks and appointments store the body in RTF.
You would need to use either Extended MAPI (C++ or Delphi only) or
<plug>Redemption (url below) - set the SafeTaskItem.RtfBody property</plug>

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-

 

[Joel Allen]

Redemption seems like the solution to me. If I bought it and installed it
on my computer, will the code still work on other users computers, or do I
need to install redemption on everyone's computer?

 

[Dmitry Streblechenko]

The dll woudl need to be installed on every computer where it is used. As
simple as copying the dll to a local folder and registering it with
regsvr32.exe will work.

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-