1 參考資料

OutLook VBA API介面：

http://www.snb-vba.eu/VBA_Outlook_external_en.html#L_3.2.1

本文僅演示如何讀取draft中的郵件，inbox中郵件讀取方法類似，只修改GetDefaultFolder的值。

VBA中埠中對於Item的獲取部分方法在python中不太適用。親測find方法可用。

2 示例程式碼

import win32com.client as win32
import warnings
import sys
import pythoncom
#reference:http://www.snb-vba.eu/VBA_Outlook_external_en.html#L_2

reload(sys)
sys.setdefaultencoding('utf8')
warnings.filterwarnings('ignore')
pythoncom.CoInitialize()
def sendmail():
    sub = 'outlook python mail test'
    body = 'my test\r\n my python mail'
    outlook = win32.Dispatch('outlook.application')
    receivers = ['
 
[email protected]']
    mail = outlook.CreateItem(0)
    mail.To = receivers[0]
    mail.Subject = sub.decode('utf-8')
    mail.Body = body.decode('utf-8')
    mail.Attachments.Add('C:\Users\h00417865\Desktop\git_auto_pull_new.py')
    mail.Send()

def new_mail_draft():
    sub = "new mail draft test"
    body = "my test\r\ndraft test"
    outlook = win32.Dispatch('outlook.application')
    receivers = ['
 
[email protected]']
    mail = outlook.CreateItem(0)
    mail.To = receivers[0]
    mail.Subject = sub.decode('utf-8')
    mail.Body = body.decode('utf-8')
    mail.Attachments.Add('C:\Users\h00417865\Desktop\git_auto_pull_new.py')
    mail.Save()
def draft_read():
    outlook = win32.Dispatch('outlook.application')
    mail = outlook.GetNamespace("MAPI").GetDefaultFolder(16)
    name = outlook.GetNamespace("MAPI").GetDefaultFolder(16).Name
    print "folder name:" + name
    c01 = mail.Items.Find(r"[Subject]='new mail draft test'")
    c02 = c01.Body
    #co2 = mail.Items(r"tBodyest")
    #mail = outlook.GetNamespace("MAPI").GetDefaultFolder(5).Items.Count
    print "draft body:" + c02
#new_mail_draft()
draft_read()
 

3 使用效果

草稿箱中生成新的草稿

讀取草稿箱內容：

點選允許其他程式訪問。

訪問得到的mail body內容,符合預期。