小闻趣话之- 邮件自动回复

闻启学

今日，小闻在办公室里看微信，忽然老佛爷出现眼前，阴沉讲一句“小闻，上班时间居然玩手机，跟我来，看过怎样处理你”。小闻灰溜溜地跟着后面。江少和斌哥互相对望一眼，老佛爷坐住办公椅讲“小闻，最近很自在？居然在上班时间玩手机！！！”。小闻默默不出声。老佛爷“既然你有时间玩，我帮你增加工作量”，指住笔记本讲，邮箱里未读邮件帮我回复他们，上午要完成任务！！！
小闻睁大眼睛 不出声,老佛爷抛了一句“完成不了，今个月绩效扣500元”！！  这！这真无天理




小闻马上处理 研究 终于以代码完成了

1. 
   
2. '引用：Microseft Outlook *.0 Object Library
   
3. 
   
4. Public j As Inspector
   
5. 
   
6. Sub GetUnReadMailAutoReplyAll()
   
7. 
   
8.     '未读邮件自动回复
   
9. 
   
10.     '功能：根据发件人过滤，读取未读邮件，转发邮件
    
11. 
    
12.     Dim outApp As Outlook.Application
    
13. 
    
14.     Dim myNamespace As Namespace
    
15. 
    
16.     Dim myFolder As MAPIFolder
    
17. 
    
18.     Dim Folder As MAPIFolder
    
19. 
    
20.     Dim iMail As Outlook.MailItem
    
21. 
    
22.     Dim attFilename As String
    
23. 
    
24.     Dim myAttachment As Outlook.Attachment
    
25. 
    
26.     Dim mytmp As String
    
27. 
    
28.     Dim tmpa As String
    
29. 
    
30.     Application.DisplayAlerts = False
    
31. 
    
32.     Application.AskToUpdateLinks = False
    
33. 
    
34.     Application.ScreenUpdating = False
    
35. 
    
36.     '//  Set outApp = GetObject("outlook.Application")
    
37. 
    
38.     '
    
39. 
    
40.     Set outApp = New Outlook.Application
    
41. 
    
42.     Set myNamespace = outApp.GetNamespace("MAPI")
    
43. 
    
44.     'Set myFolder = MyNameSpace.PickFolder
    
45. 
    
46.     Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)    '//获得收件箱文件夹
    
47. 
    
48.     For Each iMail In myFolder.Items
    
49. 
    
50.         Call GetUnReadMail(iMail, myFolder.Name)
    
51. 
    
52.     Next iMail
    
53. 
    
54.   
    
55. 
    
56.     '//数据清零
    
57. 
    
58.     Application.DisplayAlerts = True
    
59. 
    
60.     Application.AskToUpdateLinks = True
    
61. 
    
62.     Application.ScreenUpdating = True
    
63. 
    
64.     Set iMail = Nothing
    
65. 
    
66.     Set myFolder = Nothing
    
67. 
    
68.     Set myNamespace = Nothing
    
69. 
    
70.     Set outApp = Nothing
    
71. 
    
72. End Sub
    
73. 
    
74. Sub GetUnReadMail(myMail As Outlook.MailItem, myFolderName As String)
    
75. 
    
76.     Dim attFilename As String
    
77. 
    
78.     Dim tmpa As String
    
79. 
    
80.     Dim mytmp As String
    
81. 
    
82.     '创建邮件体
    
83. 
    
84.     myForwardHTMLBody = CreateHTMLBody(2)
    
85. 
    
86.     If myMail.UnRead Then
    
87. 
    
88.      
    
89. 
    
90.         Set myAutoForwardMailItem = myMail.ReplyAll
    
91. 
    
92.         MsgBox myMail.SenderEmailAddress
    
93. 
    
94.         '设置收件人
    
95. 
    
96.         myAutoForwardMailItem.Recipients.Add "417149126@qq.com"
    
97. 
    
98.      
    
99. 
    
100.         rcvhtmlBody = myMail.HTMLBody
     
101. 
     
102.         rcvBody = myMail.Body
     
103. 
     
104.         mto = myMail.To
     
105. 
     
106.         '设置邮件体格式为outlook html格式
     
107. 
     
108.         myAutoForwardMailItem.BodyFormat = olFormatHTML
     
109. 
     
110.         '将原始邮件与新邮件连起来
     
111. 
     
112.         myAutoForwardMailItem.To = mto
     
113. 
     
114.         myAutoForwardMailItem.HTMLBody = myForwardHTMLBody & myAutoForwardMailItem.HTMLBody
     
115. 
     
116.         myAutoForwardMailItem.Send
     
117. 
     
118.         myMail.Save
     
119. 
     
120.     End If
     
121. 
     
122.   
     
123. 
     
124. End Sub
     
125. 
     
126. Public Function CreateHTMLBody(id As Integer) As String
     
127. 
     
128.     'Creates a new e-mail item and modifies its properties
     
129. 
     
130.     Dim objHTMLBody As String
     
131. 
     
132.     '可以设置多个模板
     
133. 
     
134.     If id = 1 Then
     
135. 
     
136.         objHTMLBody = _
     
137. 
     
138.         "<font face = 微软雅黑 size = 3>" & _
     
139. 
     
140.         "感谢你的来信。我是<font color=red>机器人小星</font>，邮件我已代为阅读。" & _
     
141. 
     
142.         "<br/> <br/> " & _
     
143. 
     
144.         "来自小星的智能转发</font>"
     
145. 
     
146.     ElseIf id = 2 Then
     
147. 
     
148.         objHTMLBody = _
     
149. 
     
150.         "<table style = border-collapse:collapse <tbody>" & _
     
151. 
     
152.         "<tr><td style = border:1px solid #B0B0B0 colspan= 2>版本</td></tr>" & _
     
153. 
     
154.         "<tr><td style= border:1px solid #B0B0B0 >APP版本</td></tr>" & _
     
155. 
     
156.         "<tr><td style = border:1px solid #B0B0B0>SDK版本</td></tr>" & _
     
157. 
     
158.         "</tbody></table>" & _
     
159. 
     
160.         "" & _
     
161. 
     
162.         "<br/> <br/> " & _
     
163. 
     
164.         "来自小星的智能回复</font>"
     
165. 
     
166.     End If
     
167. 
     
168.     CreateHTMLBody = objHTMLBody
     
169. 
     
170. End Function
     
171. 
     

复制代码

minren118

厉害了，还可以编故事