如何使用VBA在Outlook中根据发件人自动创建子文件夹并归档新邮件？请提供示例代码。

在管理大量邮件时，自动化文件夹创建和邮件归档能够显著提升工作效率。针对你的需求，建议参考《VBA自动化邮件归类与自定义功能：智能分文件夹与快捷操作》这一资料。该资料详细介绍了如何通过VBA编程实现Outlook中的邮件自动归档和快速访问功能。

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

在Outlook中，你可以通过VBA的`NameSpace.GetDefaultFolder`方法获取默认文件夹的引用，再使用`Items.Add`方法创建新文件夹。以下是一个简单的示例代码，展示了如何根据发件人的邮箱地址创建相应的子文件夹，并将新收到的邮件移动到该文件夹中：

Public Sub AutoCreateAndMoveMail(ByVal OlItem As Outlook.MailItem)
    Dim myNamespace As Outlook.NameSpace
    Dim myFolder As Outlook.MAPIFolder
    Dim strFolderPath As String
    Dim strSMTPAddress As String
    
    ' 获取默认的收件箱文件夹
    Set myNamespace = Application.GetNamespace(

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