Python Outlookで会議開催通知を含むメール仕分けについて

Question

Windows10 64bit PCにて、Python3.6.8 64bit を用いて、Outlook2016のメールを仕分けしたく、
以下のサイトを参考にプログラミングを作成いたしました。
リンク内容

しかし、受信トレイにある会議開催通知にて、必須出席者と任意出席者が全て「受信者」となり、
それぞれの仕分けが行えません。
また、「cc」の部分でエラーが生じてしまいます。

#ステップ1｜ライブラリ
from openpyxl import load_workbook
import win32com.client
import datetime
import os

#ステップ2｜所定フォルダ内の「Book1.xlsm」を指定して読み込む
filepath = 'C:/Users/user/Outlook_Book1.xlsx'
wb = load_workbook(filename=filepath)
ws1 = wb['データ']

#ステップ3｜集計範囲の取得
startdate=ws1['B2'].value
enddate=ws1['B3'].value

#ステップ4｜Outlookの情報を取得
outlook = win32com.client.Dispatch("Outlook.Application").GetNamespace("MAPI")
inbox = outlook.GetDefaultFolder(6)
messages=inbox.Items

#ステップ5｜Outlookのt添付ファイル保管用フォルダの作成
now=datetime.datetime.now()
foldermake=now.strftime("%Y/%m/%d %H:%M:%S")
foldermake = foldermake.replace("/","-")
foldermake = foldermake.replace(":","-")
foldermake = foldermake.replace(" ","-")
newfolder_path = 'C:/Users/---/Outlook_'+foldermake
os.makedirs(newfolder_path)

#ステップ6｜Outlookの情報を取得
a=0
for message in messages:
    RT=message.ReceivedTime
    hiduketime = datetime.datetime(RT.year ,RT.month, RT.day, RT.hour, RT.minute, RT.second)
    if startdate <= hiduketime <= enddate:
        # カウント
        ws1.cell(row=7+a, column=1).value = a+1
        # 件名
        ws1.cell(row=7+a, column=2).value = str(message.Subject)
        # 日時
        ws1.cell(row=7+a, column=3).value = hiduketime
        # 送信者
        ws1.cell(row=7+a, column=4).value = str(message.Sender)
        # 受信者
        ws1.cell(row=7+a, column=5).value = str(message.Recipients)
        # cc
        ws1.cell(row=7+a, column=6).value = str(message.CC)
        # 本文        
        ws1.cell(row=7+a, column=7).value = str(message.body)
        # 添付ファイル
        if message.Attachments.Count > 0:
            myDate = RT.strftime("%Y/%m/%d %H:%M:%S")
            myDate = myDate.replace("/","-")
            myDate = myDate.replace(":","-")
            myDate = myDate.replace(" ","-")
            datefolder_path = newfolder_path + '\' + myDate
            os.makedirs(datefolder_path)
            for myAttachment in message.Attachments:
                print(myAttachment.FileName)
                myAttachment.SaveAsFile(datefolder_path + '\' + myAttachment.FileName)
            ws1.cell(row=7+a, column=8).value = '有'
        else:
            ws1.cell(row=7+a, column=8).value = '無'
        a=a+1

#ステップ7｜所定フォルダ内の「Book1.xlsm」で保存する
wb.save(filepath)
print('保存しました')

申し訳ありませんが、
どのように対処したら良いかアドバイスを頂けないでしょうか？

Comments

[otn]

どういう機能を持ったプログラムを作りたいのでしょうか？
具体的に書いてください。

Answer 1

ちょっと作ってみました
ExcelVBAですが、参考になれば。

Public Sub 受信メール()
 
'画面更新停止
    Application.ScreenUpdating = False
 
' 定義
    Dim objOL As Object
    Dim sht As Worksheet
    Dim rowCnt As Long
    Dim To_Addr As String
    Dim CC_Addr As String
    Dim optAtt As String
    Dim reqAtt As String

' 読み込むシート（シート名リスト）をshtと命名
    Set sht = Worksheets("Sheet3") ' シート名
' Ａ列一番下のセルをrowCntと命名
    rowCnt = Cells(Rows.Count, "A").End(xlUp).Row
    
' 「Outlookから取得する」をobjOLと命名
    Set objOL = CreateObject("Outlook.Application")
    Set InboxFolder = objOL.GetNamespace("MAPI").GetDefaultFolder(6) '受信トレイ
    Set subfolder = InboxFolder.Folders("tes") 'サブフォルダーの指定
    
' Outlookの受信ボックスのメールを最終行の１行下に取得・件数分繰り返す
    For Each itms In subfolder.Items ' olFolderInbox:6
     
        Select Case itms.Class
        Case Is = 43 ' olMail
            sht.Cells(rowCnt + 1, 1).Value = itms.Subject ' A列・件名
            sht.Cells(rowCnt + 1, 2).Value = itms.ReceivedTime ' B列・受信日時
            sht.Cells(rowCnt + 1, 3).Value = itms.SenderEmailAddress ' C列・差出人アドレス
            sht.Cells(rowCnt + 1, 6).Value = itms.Body ' F列・本文
            To_Addr = ""
            CC_Addr = ""
            For Each R_itms In itms.Recipients
                Select Case R_itms.Type
                Case Is = 1 'To
                    To_Addr = To_Addr + R_itms.Address & vbCrLf
                Case Is = 2 'CC
                    CC_Addr = CC_Addr + R_itms.Address & vbCrLf
                Case Is = 3 'BCC
                    '?
                End Select
            Next
            sht.Cells(rowCnt + 1, 4).Value = To_Addr ' D列・To
            sht.Cells(rowCnt + 1, 5).Value = CC_Addr ' E列・CC
        Case Is = 53 ' olMeetingRequest
            sht.Cells(rowCnt + 1, 1).Value = itms.Subject ' A列・件名
            sht.Cells(rowCnt + 1, 2).Value = itms.ReceivedTime ' B列・受信日時
            sht.Cells(rowCnt + 1, 3).Value = itms.SenderEmailAddress ' C列・差出人アドレス
            sht.Cells(rowCnt + 1, 6).Value = itms.Body ' F列・本文
            optAtt = ""
            reqAtt = ""
            For Each R_itms In itms.Recipients
                Select Case R_itms.Type
                Case Is = 1 'requiredAttendees
                    optAtt = optAtt + R_itms.Address & vbCrLf
                Case Is = 2 'optionalAttendees
                    reqAtt = reqAtt + R_itms.Address & vbCrLf
                End Select
            Next
            sht.Cells(rowCnt + 1, 7).Value = optAtt ' G列・必須出席者
            sht.Cells(rowCnt + 1, 8).Value = reqAtt ' H列・任意出席者
        End Select
     rowCnt = rowCnt + 1
    Next
 
    Set objOL = Nothing
 
    Range("A1").Select
 
' 画面更新停止を解除
    Application.ScreenUpdating = True
 
' 終了メッセージ
    MsgBox "終了しました。"
 
End Sub

Comments

[BluePi85]

メールと会議開催通知の区別が分からなかったところ、
分かりやすい参考のプログラムを載せて頂き、ありがとうございました

Answer 2

https://docs.microsoft.com/ja-jp/outlook/add-ins/get-and-set-item-data-in-a-compose-form
より

optionalAttendees　任意出席者
requiredAttendees　必須出席者
だそうです。

追記
Outlookの新しいアイテム、会議を選んだ時、ｃｃの枠ありませんでした。
会議に対しては、ｃｃ取得をスキップでよいのではないでしょうか。