1

これに対する解決策を探しましたが、運がありません。コードベースになることはわかっていますが、どこから始めればよいか本当にわかりません。

ここに問題があります: 入力: 複数 (50 以上) の個別の「Outlook アイテム」を含む 1 つの zip ファイル 各 Outlook アイテムは、添付ファイルのある電子メールに開きます。出力: Outlook アイテムからのすべての添付ファイルを含む 1 つのファイル。

例: 入力: Myzip.zip ->

Mail_item1.msg

Mail_item2.msg

Mail_item3.msg

出力: MyOutputFile ->

mail_item1_attachment.pdf

mail_item2_attachment.pdf

mail_item3_attachment.pdf

任意のガイダンスをいただければ幸いです。これまでのところ、私の唯一の考えは Outlook VBA です (これにより、C ドライブのフォルダー内の複数の .msg アイテムにアクセスできますか?)

これが私がこれまでに持っているものです：

Sub get_attachments_from_mailItems()
Dim inPath As String
Dim outPath As String
Dim msg As MailItem
Dim doc As Attachment

'What do I dim the following as?
Dim input_folder
Dim output_folder
Dim attachments 'collection? array?

inPath = "C:\temp\input"
outPath = "C:\temp\output"

'--I need most help with the folder objects and how to create them/use them --

'Open input folder as object
'open output folder as object

For Each msg In input_folder
    'check message for attachments, then loop if there are
    For Each doc In attachments
        'Save attachment in output_folder
    Next
Next

End Sub
4

0 に答える 0