1、在outlook裡面鍵入alt+f11開啟vba編輯器;
2、鍵入ctrl+r啟用左邊的那個工程面板,展開並雙擊上面的「project (vbaproject.otm)\microsoft office outlook 物件\thisoutlooksession」;
''''''''''''''''''''''''''''''''''''''''''''''
'檢查標題或者正文裡「附件」字樣,是否可以傳送附件?
''''''''''''''''''''''''''''''''''''''''''''''
private function checkattachment(message as outlook.mailitem) as boolean
checkattachment = true
if (message.attachments.count = 0 and _
(instr(message, "附件") = 0 or instr(message.body, "附件") = 0)) then
dim answer as vbmsgboxresult
answer = msgbox("沒有附件, 是否繼續傳送?", vbyesno + vbquestion, "microsoft office outlook")
if answer = vbno then
checkattachment = false
else
checkattachment = true
end if
end if
end function
5、鍵入ctrl+s儲存,再鍵入alt+q退出vba編輯器返回outlook主介面;
6、選擇選單「工具-信任中心」,在彈出視窗中選擇「巨集安全性」;
7、選擇「為所有巨集提供警告」或者「不執行巨集安全性檢查」(建議選擇前者);
8、重新啟動outlook,看到提示是否否用巨集,選擇啟用。
C語言預處理巨集命令
1.巨集 1.1不帶引數的巨集 形式 denfine 使用者識別符號 字串 1 define 使用者識別符號 字串 eg define x 5 2 define 使用者識別符號 表示式 eg define x 3 y 1 3 define 使用者識別符號 字串 eg define p printf ...
Outlook中自定義新郵件提醒
由於我平時工作的時候總是在遠端桌面或者虛機裡邊,所以經常有新郵件或者reminder沒有能及時察覺,所以便寫了這麼乙個vba,在有新郵件或者reminder的時候使用主機板小喇叭來點動靜。關於outlook的程式設計可以參考這篇文章 option explicit private declare f...
Outlook中自定義新郵件提醒
由於我平時工作的時候總是在遠端桌面或者虛機裡邊,所以經常有新郵件或者reminder沒有能及時察覺,所以便寫了這麼乙個vba,在有新郵件或者reminder的時候使用主機板小喇叭來點動靜。關於outlook的程式設計可以參考這篇文章 option explicit private declare f...