Question

我每周都会通过电子邮件发送一个订单，其中附件需要发送以进行处理。处理文件的软件要求电子邮件中没有签名和文本。

我通过查找发件人和附件的规则触发脚本。脚本应该抓取模板并插入附件。我遇到的问题是插入附件。

这是我到目前为止所拥有的。谢谢你的帮助。

Sub SendLeadOrder(Item As Outlook.MailItem)

    Set objMsg = Application.CreateItemFromTemplate("C:\OrderTemplate.oft")

    objMsg.Attachments.Add Item.Attachments
    objMsg.Display
    'objMsg.Send

End Sub

Answer 1

我很确定您需要将附件保存到磁盘，然后将它们重新应用到新邮件中。喜欢这个

Dim Item As Outlook.MailItem
Dim objMsg As Outlook.MailItem
Dim objAtt As Outlook.Attachment
Dim sPath As String

Set Item = ActiveInspector.currentItem
Set objMsg = Application.CreateItemFromTemplate("C:\OrderTemplate.oft")

For Each objAtt In Item.Attachments
    sPath = Environ("TEMP") & "\" & objAtt.FileName
    objAtt.SaveAsFile sPath
    objMsg.Attachments.Add sPath
Next objAtt

objMsg.Display

您是否确定仅仅转发消息并在必要时进行清理并不容易？喜欢这个

Dim Item As Outlook.MailItem
Dim objMsg As Outlook.MailItem

Set Item = ActiveInspector.currentItem
Set objMsg = Item.Forward
With objMsg
    .To = "someone@example.com"
    .Subject = "Predifined Subject"
    .Body = vbNullString
    .Display
End With

将传入消息中的附件添加到新的传出消息

1 个答案: