PC Review Forums Newsgroups Microsoft Outlook Microsoft Outlook VBA Programming Outlook Message body to read only

Reply

Outlook Message body to read only

 
Thread Tools Rate Thread
Old 24-02-2005, 08:21 AM   #1
jeffcravener
Guest
 
Posts: n/a
Default Outlook Message body to read only


I have the followibg code

Function Item_ReplyAll(ByVal Response
Dim MyFolde
Dim MyIte

if optApproved.Value = false AND optSomeDenied.Value = false AN
optDenied.Value = false the
msgbox "You have not approved or denied anything.
Item_ReplyAll = fals
exit functio
end i

Item_ReplyAll = Fals

Set MyFolder
Application.GetNameSpace("MAPI").GetDefaultFolder(6
Set MyItem = MyFolder.Items.Add("IPM.Note"

MyItem.To = Item.To & ";" & Item.C
MyItem.Subject = NewSubjec

if txtResponse = "" the
MyItem.Body = Item.Bod
else
MyItem.Body = "NOTES:" & vbcrlf & txtRespons
& vbcrlf & vbcrlf & "EXCEPTIONS REQUESTED:
& vbcrlf & Item.Bod
end i

MyItem.Body_ReadOnly = tru
MyItem.Displa
End Functio


I want to make the 'reply' message that the code creates to be rea
only...can't figure it out...help :

Thanks in advance

  Reply With Quote
Old 24-02-2005, 11:45 AM   #2
Sue Mosher [MVP-Outlook]
Guest
 
Posts: n/a
Default Re: Outlook Message body to read only

You can't make a simple message read-only. Recipients can do whatever they
want with it.

--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"jeffcravener" <jeff@eljefestudios-dot-com.no-spam.invalid> wrote in message
newsNGdnSVfYrjrE4DfRVn_vA@giganews.com...
>I have the followibg code:
>
>
> Function Item_ReplyAll(ByVal Response)
> Dim MyFolder
> Dim MyItem
>
> if optApproved.Value = false AND optSomeDenied.Value = false AND
> optDenied.Value = false then
> msgbox "You have not approved or denied anything."
> Item_ReplyAll = false
> exit function
> end if
>
> Item_ReplyAll = False
>
> Set MyFolder =
> Application.GetNameSpace("MAPI").GetDefaultFolder(6)
> Set MyItem = MyFolder.Items.Add("IPM.Note")
>
> MyItem.To = Item.To & ";" & Item.CC
> MyItem.Subject = NewSubject
>
> if txtResponse = "" then
> MyItem.Body = Item.Body
> else
> MyItem.Body = "NOTES:" & vbcrlf & txtResponse
> & vbcrlf & vbcrlf & "EXCEPTIONS REQUESTED:"
> & vbcrlf & Item.Body
> end if
>
> MyItem.Body_ReadOnly = true
> MyItem.Display
> End Function
>
>
>
> I want to make the 'reply' message that the code creates to be read
> only...can't figure it out...help : (
>
> Thanks in advance!
>



  Reply With Quote
Reply



Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off