如何使用Microsoft Outlook对象模型重新发送邮件

Question

我有3000封由于网络问题而失败的邮件，现在我需要重新发送所有这些邮件，并且邮件中包含附件

如何从Outlook个人文件夹重新发送3000封邮件

这是我可以导航到包含邮件但无法重新发送邮件的特定个人文件夹的代码

Set objOutlook = CreateObject("Outlook.Application")
Set myNameSpace = objOutlook.GetNameSpace("MAPI")
myNameSpace.Folders.Count


Set ClientFolder = myNameSpace.GetDefaultFolder(6).Folders.Item(4)

msgbox(ClientFolder.Items.Count)
Set myItems = ClientFolder.Items
Set myItem = myItems.GetFirst

for i=1 to ClientFolder.Items.Count
'msgbox(myItem.UnRead)
myItem.Send
'msgbox(myItem.Subject)

Set myItem = myItems.GetNext

next

我没有看到类似“ myItem.Send”的方法或属性来发送邮件，Outlook dom方法中是否有任何选项可以发送邮件？