Sub 添付ファイル一括保存() Dim sl As Object, attachFile As Object Dim app As New Outlook.Application Dim exp As Outlook.Explorer Dim sel As Outlook.Selection Dim sh As Object, f As Object Dim path As String Dim checkExpath As String Dim lV…

>||Sub 添付ファイル一括保存() Dim sl As Object, attachFile As Object Dim app As New Outlook.Application Dim exp As Outlook.Explorer Dim sel As Outlook.Selection Dim sh As Object, f As Object Dim path As String Dim checkExpath As String Dim…

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) SaveToCsv EntryIDCollectionEnd Sub'Private Sub SaveToCsv(ByVal EntryIDCollection As String) Const AUTO_SAVE_TITLE = "受注" ' 自動処理するメールの件名 Const CSV_FILE = "c:…

Sub 添付ファイル一括保存() Dim sl As Object, attachFile As Object Dim app As New Outlook.Application Dim exp As Outlook.Explorer Dim sel As Outlook.Selection Dim sh As Object, f As Object Dim path As String Dim checkExpath As String Dim lV…

テスト