Question

任何人都可以帮我使用excel vba代码将我收件箱中的多个/特定电子邮件作为附件发送给我想要的新邮件。

所以基本上我要求的是，如果我去我的Outlook Express收件箱并选择让我们说三个邮件，然后点击功能区上的前进按钮，它将创建一个新的邮件项目，其中包含被选为的邮件附件。我希望从excel vba自动化。

请高度赞赏任何帮助。

此致 Premanshu

Answer 1

我从一个在线论坛/社区进行了一些搜索后找到了我的问题的答案，并且能够根据我的需要对其进行修改。发布以下代码供任何人参考，以及我为我的目的使用和修改的原始帖子的链接。

Sub ForwardSelectedItems()

On Error Resume Next
Dim myolApp As Outlook.Application
Dim objItem As Outlook.MailItem

Set objOL = CreateObject("Outlook.Application")

If objOL.ActiveExplorer.Selection.count = 0 Then
   MsgBox ("No item selected")
   Exit Sub
End If

For Each objItem In objOL.ActiveExplorer.Selection
    Set objMsg = objItem.Forward()
    With objMsg
        .Display
        For Each itm In objOL.ActiveExplorer.Selection
        .Attachments.Add itm, olEmbeddeditem
        Next itm
        .Subject = "example"
        .To = "example@example.com"
        .Body = “”
        .Send
    End With
Exit For
Next

Set objItem = Nothing
Set objMsg = Nothing

End Sub

我提到的popst的链接是： - Forwarding Outlook Item as attachment and adding it to a category in the same VBA macro

谢谢大家。问候， Premanshu

将多封电子邮件作为附件转发到excel vba的新电子邮件中

1 个答案: