Python による Outlook リターンメール 抽出　

import win32com.client
accounts=win32com.client.Dispatch("Outlook.Application").GetNamespace("MAPI").Folders
for acnt in accounts: 
    print ("accoun 名　" ,acnt)
    print (" ")
print("root (アカウント数=%d)" % accounts.Count)
print(" ")
for folder in acnt.Folders:
    print ("-- ",folder)
quit()    

# 使用ライブラリー　import
import win32com.client
import openpyxl as px
import re　

#　Returned Mail 不良アドレス　リスト表　rmlist1.xlsx　指定
book = px.load_workbook(filename='rmlist1.xlsx') 
sheet = book.worksheets[0]

# アウトルック　フォルダー内　アカウント　オブジェクト取り出し
accounts = win32com.client.Dispatch("Outlook.Application").GetNamespace("MAPI").Folders
for acnt in accounts:
     print(acnt)
     print(" ")
#print("root (アカウント数=%d)" % accounts.Count) # outlook Folder 内 subfolder 数
print("----- returned mail list -----")     

# 以下　外側の　for ルーチンで　アカウント内　第２項の　受信トレイのみ処理対象とし
# 内側の　for ルーチンで　Returned Mail を検出し　そこから不良アドレスを抽出しています 

k1=1
for folder in acnt.Folders:
    #print ("-- ",folder)
    if k1 == 2:
        r1=2
        c1=2 
        mails = folder.Items
        for mail in mails:
            #print(mail)
            #print("件名: " ,mail.subject)
            #print("受信日時: ", mail.receivedtime)
            #print("未読: ", mail.Unread)
            #print("本文: ", mail.body)
            if mail.sendername ==  "Mail Delivery Subsystem":
                print("-----------------")
                s =  mail.body
                #print("件名: " ,mail.subject)
                #print("差出人: %s [%s]" % (mail.sendername, mail.senderEmailAddress))
                #print("受信日時: ", mail.receivedtime)
                #print("未読: ", mail.Unread)
                #print("本文: ", s)            
                
                # 不良アドレスが　< >  に挟まれているので　p  に　この条件を指定　
                p =r'<[^"<"].*?[^">"]>'
                # 以下　r : Returned Mail 内不良アドレス、b : r 内　第１項の不良アドレス取り出し　
                r = re.findall(p,s)  
                b = r[:1]

                # 不良アドレス 表示から　両側の <　 > 　を　削除
                rma=((','.join(b)).strip(',<>'))
                print(rma)
                # エクセル　表に　転記
                sheet.cell(row=r1, column=c1).value = (rma)
                r1=r1+1
    k1=k1+1
book.save('rmlist1.xlsx')
quit()