如何利用VBA编写宏，在Outlook中根据发件人信息自动创建子文件夹，并将新收到的邮件归档到相应的文件夹中？

为了更好地掌握VBA在Outlook中的应用，尤其是实现邮件的自动化管理，建议你参考这本《VBA自动化邮件归类与自定义功能：智能分文件夹与快捷操作》。这本资料详细介绍了如何通过宏来自动化邮件管理流程，包括自动创建文件夹和邮件归档的功能。

参考资源链接：[VBA自动化邮件归类与自定义功能：智能分文件夹与快捷操作](https://wenku.csdn.net/doc/6esc29pt2c?spm=1055.2569.3001.10343)

在Outlook中，你可以使用VBA来监听新邮件的到达事件，并根据发件人信息自动创建子文件夹以及归档邮件。以下是实现该功能的基本步骤和示例代码：

1. 打开Outlook，按下`Alt + F11`键打开VBA编辑器。
2. 在`Project1`中插入一个新的模块（Module1）。
3. 编写一个宏，利用`NameSpace`对象获取Outlook的命名空间，`Items`集合来访问邮件，以及`Folders`集合来管理文件夹。
4. 使用`Find`或`Restrict`方法来搜索特定发件人的邮件。
5. 通过`Items.Add`方法创建新文件夹，并使用`MoveTo`方法将邮件移动到新创建的文件夹。

示例代码如下：

    Dim outlookApp As Outlook.Application
    Dim namespace As Outlook.NameSpace
    Dim inbox As Outlook.MAPIFolder
    Dim subFolder As Outlook.Folder
    Dim newMail As Outlook.MailItem

    Set outlookApp = New Outlook.Application
    Set namespace = outlookApp.GetNamespace(

参考资源链接：[VBA自动化邮件归类与自定义功能：智能分文件夹与快捷操作](https://wenku.csdn.net/doc/6esc29pt2c?spm=1055.2569.3001.10343)