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

我想要做的是让我们在我的工作中使用一些电子邮件模板，当我们拖放一个特定的Excel文件时，它会select并复制一个Excel文件的范围到电子邮件的正文。 我唯一的问题，正如我到处看，我发现的所有代码似乎是接收，而不是写的电子邮件是我如何访问：

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

一旦我能得到当前电子邮件的附件，我确信我可以得到我想要的所有其他代码。

在提到“只是loggingmacros观，看看它是怎样的”之前，由于某种原因，我的前景在任何地方都没有“macros观macros观”项目，因为这也是我第一次参与。

Answer 1

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

这是一个非常基本的例子。 我没有做任何error handling，但我相信你可以照顾它。

假设您正在撰写的电子邮件是这样的

所有你需要的是这个代码

 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 

产量