開？錯誤？GoTo？1000?
暗淡？myOlApp？作為？申請？
暗淡？myNameSpace？作為？命名空間？
暗淡？myibox？作為？MAPIFolder？
暗淡？我的郵件？作為？MAPIFolder？
暗淡？我的項目？作為？MailItem？
設置？myOlApp？=?CreateObject(？“展望。申請？”)?
設置？myNameSpace？=?myOlApp。GetNamespace(？“麻皮？”)?
設置？奧拉普？=?展望。應用
設置？nmsName？=?奧拉普。GetNamespace("MAPI ")
為了什麽？每個？fldFolder？在？nmsName。文件夾
為了什麽？每個？子文件夾？在？fldFolder文件夾
如果？(子文件夾。名字？=?“收件箱”)？然後呢？
為了什麽？每個？objitem？在？子文件夾。項目
如果？objitem。Subject=？"妳的主題"？然後
objitem。收件人。添加嗎？(“aaa@163.com”)
objitem。收件人。添加嗎？(“bbb@163.com”)
objitem。收件人。添加嗎？(“ccc@163.com”)
objitem。發送
結束？如果
然後
結束？如果
然後
然後
結束？Sub好久沒寫這個了。大概就是這麽回事。還沒測試過。本地試試，自己改。