因之前都是將outlook郵件另存，再用物件連結至儲存的郵件，但儲存的郵件愈來愈多，
目前只會應用到呼叫開啟outlook
Function startoutlook()
1001 Set k = CreateObject("outlook.application")
1002 Set k1 = k.getnamespace("mapi")
1003 Set k2 = k1.getdefaultfolder(olfolderinbox) '收件匣
1004 k2.display
End Function
功力太淺，無法寫到開啟指定郵件，能否請高手協助，謝謝！
