从已发送邮件中检索VBA中的Outlook附件-Java 学习之路

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

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

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

在任何提及之前“只记录宏并看看它是如何做到的”由于某种原因，我的前景在任何地方都没有“记录宏”项目，因为这也是我的第一个目标 .

1 回答

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

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

假设你写的电子邮件看起来像这样

enter image description here

您只需要这段代码

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

Output

enter image description here

回复于 2024-05-04T11:18:26+08:00

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

1 回答

相关问题