J
jeffcravener
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
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