標題: 用excel 2007寄email [打印本頁]

---

作者: cchaha_captain    時間: 2011-3-16 23:28     標題: 用excel 2007寄email

各位好，我的excel資料中有一個欄位是儲存廠商的email，我希望能寫一個vba程式碼，能夠直接從excel中發送出所有的email，以前我曾經使用outlook object來寄送，但是每寄一封，excel就警告我："有程式在寄送email"，這樣我根本不可能把寄送email的動作自動化，後來我又找到一個方法：
Set CDOMail = CreateObject("CDO.Message")
With CDOMail
    .From = """發信人""<[email protected]>"
    .To = """收信人""<[email protected]>"
    .Subject = "信件測試"
    .TextBody = "信件ABCDEFG"
    .Send
End With
Set CDOMail = Nothing
等我執行到.send時，就直接發生automation error，請問各位大大，到底改怎麼做？才能自動寄送email呢？
謝謝各位！

---

作者: Hsieh    時間: 2011-3-17 10:28

本帖最後由 Hsieh 於 2011-3-17 18:51 編輯

回復 1# cchaha_captain


    如何疑難排解無法建立 'CDO.Message' 錯誤訊息
先試試連結的方法註冊Cdosys.dll 看看
若還不行就看crdotlin前輩的大作
使用CDO寄送郵件

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)