根据excel中的主题行将电子邮件自动转发给受让人

Question

Public Sub File_Stock_Incoming_Message(Item As Outlook.MailItem) 

'从向导构建的规则中调用此宏，其中'规则对每条传入消息进行操作，并且其动作'是调用此宏。

Dim NS As Outlook.NameSpace 
Set NS = Application.Session 
Dim MoveToFolder As Outlook.MAPIFolder 
Set MoveToFolder = NS.Folders("mainboxname").Folders("MsgLog") 
Dim sbjstr As String sbjstr = Item.Subject 
If (sbjstr = "Whatever Site Error") 
Then Item.Move MoveToFolder 
End If 
End Sub

我想编辑上面的代码，以便根据主题行和受让人保存在excel文件中，将电子邮件转发给特定的受让人。