這是一項正在進行的工作,但我已經想通了與其他職位的幫助部分答案。以下是通過運行腳本來重寫指定電子郵件的說明。我使用的是Outlook 2007中
下載並安裝pywin32
下載並安裝ExchangeCdo.exe
將這個代碼在一個文件中,並從cmd
運行:
import os, sys, re
import win32com.client
session = win32com.client.gencache.EnsureDispatch("MAPI.session")
win32com.client.gencache.EnsureDispatch("Outlook.Application")
outlook = win32com.client.Dispatch("Outlook.Application")
#print '\n'.join(dir(outlook))
mapi = outlook.GetNamespace('MAPI')
inbox = mapi.GetDefaultFolder(win32com.client.constants.olFolderInbox)
items = inbox.Items
#items.Restrict("[Unread] = true")
#print '\n'.join(dir(items))
while True:
item = items.GetNext()
if item == None: break
#print '\n'.join(dir(item))
if re.compile(r'crazy email').search(item.Subject):
print item.Subject
print item.Body
# works VVVV
item.Body = 'whoya!'
item.Save()
break
您可以參考VBA中的可能性嗎? – 2009-09-17 17:35:17
這個想法聽起來很可怕 – Zoidberg 2009-09-17 17:48:01
當你在公司環境中,並且你不能改變實際上包含一些善良的醜陋電子郵件的格式時,有時你必須解決系統問題。這就是人生。 – 2009-09-17 20:43:21