- 帖子
- 8
- 主題
- 2
- 精華
- 0
- 積分
- 55
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-2-21
- 最後登錄
- 2012-8-13
|
用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呢？
謝謝各位！ |
|
發表於 2011-3-16 23:28
| 
發表於 2011-3-17 10:28
| 