从已发送邮件中检索VBA中的Outlook附件

Question

我想要做的就是让它在我们工作的几个电子邮件模板上，当我们将某个Excel文件拖放到它时，它将选择并复制一个范围的将Excel文件放入电子邮件正文中。我唯一的问题是，我随处可见，我发现的所有代码似乎都是针对正在接收但未写入的电子邮件，我该如何访问：

1. 我正在撰写的电子邮件中的附件
2. 我正在写的电子邮件正文

我确定在获得当前电子邮件的附件后，我可以获取其他所有其他内容的代码。

在任何提及之前＆＃34;只记录宏观，看看它是如何做到的＆＃34;由于某种原因，我的前景没有＆＃34;记录宏＆＃34;任何地方的项目，因为这是我的第一次去。

Answer 1

  

我如何访问：我正在撰写的电子邮件中的附件   我写的电子邮件正文

这是一个非常基本的例子。我没有做任何错误处理，但我相信你可以处理它。

假设您正在撰写的电子邮件看起来像这样

您只需要这段代码

Sub Sample()
    Dim NewMail As MailItem, oInspector As Inspector
    Set oInspector = Application.ActiveInspector

    '~~> Get the current open item
    Set NewMail = oInspector.CurrentItem

    With NewMail
        Debug.Print .To
        Debug.Print .subject
        Debug.Print .Body

        AttchCount = .Attachments.Count

        If AttchCount > 0 Then
            For I = 1 To AttchCount
                '~~> Print Attachment names
                Debug.Print .Attachments.Item(I).DisplayName
            Next I
        End If
    End With
End Sub

<强>输出