[問題] Excel VBA 寄信給對應的收件人

[kiss970621 (Johnson)]

(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:excel 2010

小弟想寫一個vba將固定的格式內容寄信給對應的人

原始檔長這樣 https://imgur.com/WMgFAnF

收件人都在在F欄

要把表頭加上第一列的內容寄給第一列的收件人([e-mail])
像這樣https://imgur.com/hk4IvVd (左圖就是AAA收到的內容)

然後表頭不動  只加上第二列的內容寄給第二列的收件人([e-mail])
像這樣https://imgur.com/3NI44Ka (左圖就是BBB收到的內容)

執行巨集後 一直依此類推執行到最後一列

該如何寫呢?感謝各位神人

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.226.171.203
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1462004182.A.A78.html
※ 編輯: kiss970621 (36.226.171.203), 04/30/2016 16:18:44
→ soyoso: https://imgur.com/N6Bmfe3 類似這樣
→ kiss970621: .To = r.Offset(, 5) 這部分有點不懂 5是移動到F欄位
→ kiss970621: 那逗號前面的數值應該填多少?
→ kiss970621: 不管填多少執行都會跑出 執行階段錯誤
→ kiss970621: '-2147417851(80010105)':
→ kiss970621: 'To'方法('MailItem'物件) 失敗
→ kiss970621: 麻煩s大解惑><
→ soyoso: 0或省略表示列的部分無移動
→ kiss970621: 執行到 .To = r.Offset(, 5)就會跑出如上說的錯誤
→ kiss970621: 我有哪個地方沒有調整到嗎?><
→ soyoso: 作業系統為win10嗎？是的話請參考http://goo.gl/Fw8KKw
→ soyoso: 解決方式應為https://imgur.com/2IIoadk
→ soyoso: 因無win10，原po試試看是否可解決
→ kiss970621: 成功了!!!!soyoso大太神了....小弟感激不盡