我想实现outlook上转发邮件功能

天外来客123

各位大虾，我想请教一下，VBA如何实现，邮件转发功能：
1.手动选要转发的邮件(用手工批量选需要转发的邮件)
2.按邮件内容中的一个数字来判断邮件地址. (可以在EXCEL按数字对应邮件地址，只要需要转发的邮件上的数字与EXCEL中的一致，就选在EXCEL中的邮件地址转发.)
3.转发时加入统一文本到邮件上.  

以上请各位帮忙实现，谢谢

以下是可以转发，但是邮件地址是固定的。

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem
Set myFwd = Item.Forward
myFwd.Recipients.Add "email@email.com"
myFwd.Send
Set myFwd = Nothing
End Sub

天外来客123

Attached is Purchase Order

Supplier: 67339

邮件地址代码在正文的第三行.

天外来客123

原理就是我每天要收到相同邮件地址发来的资料，需要转给不同的邮箱，但是邮件正文上有一个数字，它是指定为发给哪个人的判断数据。VBA如何实现，谢谢大家