Outlook 巨集命令提醒插入附件

2021-06-27 21:05:04 字數 967 閱讀 7167

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...