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

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:

> 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

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

"Michael Bauer [MVP - Outlook]" <(E-Mail Removed)> wrote in message
news:sz4da217ierw$.(E-Mail Removed)...
>
>
> 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:
>
>> 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

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" <(E-Mail Removed)> wrote in message
news:uk%23FYe$(E-Mail Removed)...
> No, it's a custom Task item. Any ideas?
>
> "Michael Bauer [MVP - Outlook]" <(E-Mail Removed)> wrote in message
> news:sz4da217ierw$.(E-Mail Removed)...
>>
>>
>> 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:
>>
>>> 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
>
>

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" <(E-Mail Removed)> wrote in message
news:uo%(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
> news:uk%23FYe$(E-Mail Removed)...
>> No, it's a custom Task item. Any ideas?
>>
>> "Michael Bauer [MVP - Outlook]" <(E-Mail Removed)> wrote in message
>> news:sz4da217ierw$.(E-Mail Removed)...
>>>
>>>
>>> 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:
>>>
>>>> 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
>>
>>
>
>

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
-
"Joel Allen" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
> news:uo%(E-Mail Removed)...
>> 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" <(E-Mail Removed)> wrote in message
>> news:uk%23FYe$(E-Mail Removed)...
>>> No, it's a custom Task item. Any ideas?
>>>
>>> "Michael Bauer [MVP - Outlook]" <(E-Mail Removed)> wrote in message
>>> news:sz4da217ierw$.(E-Mail Removed)...
>>>>
>>>>
>>>> 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:
>>>>
>>>>> 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
>>>
>>>
>>
>>
>
>