Outlook 發郵件時忘記寫主題或者添加附件的腳本處理辦法

?Outlook發郵件時忘記寫主題或者添加附件的腳本解決方法：

按ALT+F11進入VBA集成開發環境，在左上角的工程資源管理器中依次展開Project1/MicrosoftOfficeOutlook對象/ThisOutlookSession，雙擊ThisOutlookSession，打開代碼輸入界面，貼入下面的代碼，保存退出即可。

以后每次發郵件outlook會自動調用該函數檢查是否有主題、是否漏附件。

PrivateSubApplication_ItemSend(ByValItemAsObject,CancelAsBoolean)

DimlngresAsLong

'檢查郵件是否添加附件

IfInStr(1,Item.Body,"附件")<>0Then

IfItem.Attachments.Count=0Then

Application.Explorers(1).Activate

lngres=MsgBox("郵件內容中包含附件，但是沒有發現附件！"&Chr(10)&"仍然發送？",_

vbYesNo+vbDefaultButton2+vbQuestion,"提示")

Iflngres=vbNoThen

Cancel=True

Item.Display

ExitSub

EndIf

EndIf

EndIf

'檢查是否寫主題

IfItem.Subject=""Then

Application.Explorers(1).Activate

lngres=MsgBox("郵件還沒有寫主題呢！"&Chr(10)&"仍然發送？",_

vbYesNo+vbDefaultButton2+vbQuestion,"提示")

Iflngres=vbNoThen

Cancel=True

Item.Display

ExitSub

EndIf

EndIf

EndSub