PC Review
Forums
Newsgroups
Microsoft Outlook
Microsoft Outlook VBA Programming
Outlook Message body to read only
Forums
Newsgroups
Microsoft Outlook
Microsoft Outlook VBA Programming
Outlook Message body to read only
![]() |
Outlook Message body to read only |
|
|
Thread Tools | Rate Thread |
|
|
#1 |
|
Guest
Posts: n/a
|
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 |
|
|
|
#2 |
|
Guest
Posts: n/a
|
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 news NGdnSVfYrjrE4DfRVn_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! > |
|
![]() |
|
| Thread Tools | |
| Rate This Thread | |
|
|

Main Page 

NGdnSVfYrjrE4DfRVn_vA@giganews.com...
