Outlook vba 怎么设置回复邮件的文本格式

shen112

下面的设置文本格式为纯文本设定了 之后好像没有用，请高手指点，还有这个方法之对应了【回复】按钮，请问【全部回复】也想添加的下面代码怎么改

1. Option Explicit
   
2.   
   
3. Private WithEvents mItem As MailItem
   
4. Public WithEvents myExplorer As Explorer
   
5.   
   
6. ' #########
   
7. ' 析构函数.
   
8. ' #########
   
9. Private Sub Class_Terminate()
   
10.     If Not (mItem Is Nothing) Then
    
11.         Set mItem = Nothing
    
12.     End If
    
13.       
    
14.     If Not (myExplorer Is Nothing) Then
    
15.         Set myExplorer = Nothing
    
16.     End If
    
17. End Sub
    
18.   
    
19. ' #############################################################
    
20. ' 事件: 当用户为项目 (父对象的一个实例) 选择 "答复" 动作时发生.
    
21. ' #############################################################
    
22. Private Sub mItem_Reply(ByVal Response As Object, _
    
23.                         Cancel As Boolean)
    
24.     '设置文本格式为纯文本
    
25. <font color="#ff0000">    Response.BodyFormat = OlBodyFormat.olFormatPlain</font>
    
26.      
    
27.     MsgBox ("ok")
    
28.      
    
29. End Sub
    
30.   
    
31. ' ##################################################
    
32. ' 事件: 选择其他或更多 Microsoft Outlook 项目时发生.
    
33. ' ##################################################
    
34. Private Sub myExplorer_SelectionChange()
    
35.     Dim mySel As Selection
    
36.       
    
37.     Set mySel = myExplorer.Selection
    
38.       
    
39.     ' /* 浏览器窗口中有且只有一个项目被选中. */
    
40.     If mySel.Count = 1 Then
    
41.         Dim objItem As Object
    
42.          
    
43.         Set objItem = mySel.Item(1)
    
44.          
    
45.         ' /* 该选中项目是邮件. */
    
46.         If objItem.Class = olMail Then
    
47.             ' /* 动态注册邮件的 Reply 事件. */
    
48.             Set mItem = objItem
    
49.         End If
    
50.     End If
    
51.       
    
52.     Set mySel = Nothing
    
53.     Set objItem = Nothing
    
54. End Sub
    
55.   
    
56. ' #####################################
    
57. ' 强制触发浏览器窗口中的选中项改变事件.
    
58. ' #####################################
    
59. Public Sub ForceSelectionChange()
    
60.     Call myExplorer_SelectionChange
    
61. End Sub

复制代码