Outlook

系统：Windows 10
软件：Excel 2016

• 本系列讲讲在Outlook中使用VBA实现一些功能
• 今天讲讲如何实现将特定邮件进行保存

Part 1： 应用场景

1. 需要对特定人员发的邮件进行备份处理

Part 2： 基本逻辑

1. 监听收件箱
2. 新收邮件确认其发件人邮件
3. 判断邮箱，满足则将该邮件另存为msg文件

Part 3： 代码

Private WithEvents Items As Outlook.ItemsPrivate Sub Application_Startup()lookName As NameSpaceSet outlookName = Application.GetNamespace("MAPI")Set outlookFldr = outlookName.GetDefaultFolder(olFolderInbox)Set Items = outlookFldr.Items
End SubPrivate Sub Items_ItemAdd(ByVal Item As Object)'发件人Debug.Print ("新收到的邮件发件人是：" & Item.SenderName)Debug.Print ("新收到的邮件发件人是：" & Item.SenderEmailAddress)send_email = Item.SenderEmailAddressDebug.Print (send_email)If send_email = "xxx@163" Thenstrname = Item.SubjectItem.SaveAs "D:\code\" & strname & ".msg"ElseDebug.Print ("不做处理")End IfEnd Sub

Part 4： 部分代码解读

1. Item.SaveAs另存为新文件，注意格式为msg
2. 根据需求可以生成多种格式的文件，msg信息较完整，效果等同于ctrl+C，ctrl+V一封邮件

• 更多学习交流，可加小编微信号learningBin

更多精彩，请关注微信公众号
扫描二维码，关注本公众号

Outlook

系统：Windows 10
软件：Excel 2016

• 本系列讲讲在Outlook中使用VBA实现一些功能
• 今天讲讲如何实现将特定邮件进行保存

Part 1： 应用场景

1. 需要对特定人员发的邮件进行备份处理

Part 2： 基本逻辑

1. 监听收件箱
2. 新收邮件确认其发件人邮件
3. 判断邮箱，满足则将该邮件另存为msg文件

Part 3： 代码

Private WithEvents Items As Outlook.ItemsPrivate Sub Application_Startup()lookName As NameSpaceSet outlookName = Application.GetNamespace("MAPI")Set outlookFldr = outlookName.GetDefaultFolder(olFolderInbox)Set Items = outlookFldr.Items
End SubPrivate Sub Items_ItemAdd(ByVal Item As Object)'发件人Debug.Print ("新收到的邮件发件人是：" & Item.SenderName)Debug.Print ("新收到的邮件发件人是：" & Item.SenderEmailAddress)send_email = Item.SenderEmailAddressDebug.Print (send_email)If send_email = "xxx@163" Thenstrname = Item.SubjectItem.SaveAs "D:\code\" & strname & ".msg"ElseDebug.Print ("不做处理")End IfEnd Sub

Part 4： 部分代码解读

1. Item.SaveAs另存为新文件，注意格式为msg
2. 根据需求可以生成多种格式的文件，msg信息较完整，效果等同于ctrl+C，ctrl+V一封邮件

• 更多学习交流，可加小编微信号learningBin

更多精彩，请关注微信公众号
扫描二维码，关注本公众号