VB脚本用于更改发件箱中电子邮件的发件人字段

Question

我的Outlook中的发件箱中有电子邮件，我想运行一个vb脚本来将这些电子邮件的字段更改为其他电子邮件

我设法做了以下事情，但它并没有像我一样工作，因此我错过了主要部分。如果有人可以提供帮助，我会很感激。

intFolderOutbox = 4
msoFileDialogOpen = 1

' Load requied objects
Set WshShell = WScript.CreateObject("WScript.Shell")    ' Windows Shell
Set ObjOlApp = CreateObject("Outlook.Application")      ' Outlook
Set ns = ObjOlApp.GetNamespace("MAPI")                  ' Outlook
Set box = ns.GetDefaultFolder(intFolderOutbox)          ' Outlook    

For Each Item In box.Items        

    *** HERE IS WHAT I NEED TO REPLACE THE FROM FIELD ****
    Item.sender = "email2@gmail.com"
    Item.Update 
    Item.Save

Next

以下内容可以添加收件人，但我找不到与from字段相同的内容。

Item.Recipients.Add "email2@gmail.com"

这可能会有所帮助，但在我的案例中它并不起作用

Set oAddrEntry = CreateObject("MAPI.AddressEntry") 
oAddrEntry.Name = SYSTEM_ADDRESS 
oAddrEntry.resolve
Set oNewMsg.sender = oAddrEntry
oNewMsg.Update
oNewMsg.Send 

由于