Question

我在邮箱中的项目中循环，然后使用：Set Append = mailitem.Attachments提取其附件。

然后，当邮件与.Attachments.Add Append一起发送时，我得到对象不支持此方法错误。

在我看来Attachments.Add不接受一个对象，只接受一个字符串。但这对我没有任何意义。

还有其他办法吗？

我的部分代码：

程序的一部分

i = 0

For Each Msg In olItms

    If Msg.Class = olMail Then

        If InStr(1, Msg.Subject, Trackbox.Value) > 0 Then

        ReDim Preserve MyArray(i)

        If Msg.Attachments.Count > 0 Then Set Append = Msg.Attachments

Send_Email函数

Function SendEmail(Who As String, About As Variant, BodyText As Variant, Optional CopyTo As String, Optional HCopyTo As String, _
Optional App As Object)

Set Out = GetObject(, "Outlook.Application")

Set NewMsg = Out.CreateItem(olMailItem)

With NewMsg

    .To = Who
    .CC = CopyTo
    .BCC = HCopyTo
    .Attachments.Add App
    .BodyFormat = olFormatHTML
    .Subject = About
    .HTMLBody = BodyText
    .Send


End With


End Function

Answer 1

Attachments.Add只接受字符串（文件名）或Outlook项目，例如MailItem。

如果你想要一些有意义的东西，你可能想尝试Redemption :-) - 它允许将文件名，url，另一个附件，消息，IStorage作为参数传递给Attachments.Add。< / p>

Outlook mailitem上的附件

1 个答案: