outlook邮件搜索框不见了_如何自动处理工作邮件

大家好，

这是鄙人第一次写专栏。该栏目旨在分享一下小把戏，不能说是tips吧，权当做tricks好啦~请多指教！

由于本人工作时事务繁忙，有时真的无法分心于处理各种邮件（outlook），然后对接人一看我邮件没回复，就会疯狂打电话催我看邮件，那种夺命CALL的感觉，你懂吗？

夺命call

因此，我借鉴并修改了网上大神的代码，实现了自动处理邮件，对于常规事务，相当于有个“机器人”帮我在回邮件了。（当然，如果不会编程的朋友，学会用下outlook的“规则和通知”功能也是不错的选择，只是没有那么智能化。）

首先，介绍一下背景，大部分的微软办公产品，都是可以内嵌VBA代码的，这是我这次文章的基础。

然后，介绍具体操作。

1. 在OUTLOOK中按下alt+F11，进入VBA编程界面。
2. 然后直接点左边的ThisOutlookSession，进入它的页面，然后开始写代码。（session一词翻译为“会话”，在Web编程中广泛使用，但一下子也说不清楚，有兴趣的朋友可以自行百度了解）
3. 输入以下代码：

Sub AutoResponseReceipt(Item As MailItem)
    Debug.Print ("receive an email")   '这是打印一下
    Dim id As String      '定义变量
    Dim SubjectString As String
    Dim sender As String
    Dim email As Outlook.MailItem
    id = Item.EntryID           
    Set email = Application.Session.GetItemFromID(id)  '根据ID得到具体的邮件
    SubjectString = email.Subject        '设置新发送的邮件主题，这里直接把刚才的收件邮件设置为新邮件的主题
    sender = email.SenderEmailAddress      '设置邮件的发件人地址
    Debug.Print ("new email arrivaved: subject is " & SubjectString & " sender is " & sender)    '这里只是打印一下，给你看下新邮件的信息
'下面代码是做主题的过滤，就是针对某些特定主题，我才让它自动处理。不然老板发个特殊邮件来，你也自动智能回复，可能要被打死
    Dim index As Integer
    index = InStr(SubjectString, "会议室")   '新收到的邮件是否含有 “会议室”字眼，假如有，那我默认他可能想咨询会议室订阅的事情。
    If 0 = index Then
        index = InStr(SubjectString, "meeting room") '这里我纯粹装个B，判断相应的英文
        If 0 = index Then
            Return
        End If
    End If
    '经过以上判断，是“会议室”的主题邮件，才接下去智能处理
    Dim OutMail As Object
    Set OutMail = Outlook.Application.CreateItem(olMailItem)
    With OutMail
        .To = "XXXX@aaa.com.cn"
        .CC = "YYYYY@aaa.com.cn;ZZZ@aaa.com.cn"
        .Subject = "（告知）会议室订阅流程"
        .Body = "你好，您的咨询问题是：" & Chr(10) & email.Body&Chr(10)&"解决方式如下：AAAAAAAA"
    End With

    MsgBox ("send")  '设置弹出消息框，告诉自己，已经自动处理一封邮件
    OutMail.Send   '邮件自动发送
    OutMail.Delete   '删除邮件 
End Sub

4. 写完以上代码，请保存。

5. 在“文件—规则和通知—新建规则—邮件到达后—仅在此计算机—运行脚本”，然后选择需要运行的脚本。然后点确定就好了。

6. 温馨提示，当然也可以和OUTLOOK自带的过滤结合着用。就可以很方便的实现对特定人的自动回复。

不足之处，由于这个是session的，所以必须保持一致在线的状态。如果长时间没有碰鼠标，电脑都变成锁屏或睡眠了，那么此时如果有人发送过来邮件，是不能立马相应它的。也就失去了自动回复的意义。以后我将完善这个功能。

这个小案例，就是帮助大家在优化工作的基础上，了解一下自动回复的原理。同理，微信自动回复也可以使用相应语言写出来，但是有女朋友的就算了吧，怕你们被女朋友打死！哈哈哈。

我是柳如风，我们下期再见！

欣喜相逢