OUTLOOK VBA 如何实现转发草稿箱里面的邮件到多个地址

galear

请教大侠帮忙，我的需求是：

我需要将一封邮件发送给N个地址，由于邮件内容比较复杂，我需要先建立此邮件，然后想通过VBA 批量发送出去。

1）我尝试将新建的待发邮件放在INBOX里面，使用如下方式实现转发

Set objMPAIFolder = objnamespace.GetDefaultFolder(olFolderInbox)
   
    For Each objMailItem In objMPAIFolder.Items
        Set objFwdItem = objMailItem.Forward
        
        objFwdItem.Recipients.Add ("aa@bb.com")
        objFwdItem.Send
        
    Next
    Set objFwdItem = Nothing

但是遇到的问题是：这种转发之后主题上有个：FW， 邮件内容的前面也有个头，这个是我不想要的，那么这种方法不可用了。

2）我尝试将新建的待发邮件放在Drafts里面，同样使用上面方法实现转发，只不过INBOX地方换成drafts, 但是遇到的问题是邮件可以转发出去，主题也没有问题，但是邮件的内容没有了。

请问各位高手，能告诉我的需求该如何实现吗？或者我的第二种方法如何做才能保留邮件的内容？

谢谢了。

dsd999

第1种方法，你再把fw去掉不行吗？

小书包的春天

亲，我也想尝试同样的操作，问一下，这个转发到时候原来邮件所带的附件还需要重新上传么？
然后，是否可以用replace修改掉原邮件的主题和内容再进行转发呢？
谢谢