2

週に数回、処理のために送信する必要がある添付ファイルを含む注文が電子メールで届きます。ファイルを処理するソフトウェアでは、電子メールの本文に署名やテキストが含まれていない必要があります。

送信者と添付ファイルを検索するルールを介してスクリプトをトリガーしています。スクリプトはテンプレートを取得し、添付ファイルを挿入する必要があります。私が抱えている問題は、添付ファイルの挿入です。

これが私がこれまでに持っているものです。助けてくれてありがとう。

Sub SendLeadOrder(Item As Outlook.MailItem)

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

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

End Sub
4

1 に答える 1

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
于 2013-03-28T22:09:02.557 に答える