標題: Excel VBA Outlook body 問題 [打印本頁]

---

作者: yowhome    時間: 2013-3-13 21:53     標題: Excel VBA Outlook body 問題

小弟初學VBA, 有點難題希望各位大大幫忙解決!! 萬分感謝.

如果我係EXCEL 入面, 有一個範圍想paste 落個mail boay 到, 可以點做呢?
而家我只可以COPY 左個範圍, 之後係個mail 到paste返落去, 但係我想一出個mail個body 就有埋D字,
上網睇過, 有人講可以group 一格先出, 但係我個範圍太大, 做唔到, 可以點算呢???

---

作者: Hsieh    時間: 2013-3-14 09:45

回復 1# yowhome


   你只要寄出文本內容?

1. Sub ex()
   
2. Set xlOut = CreateObject("Outlook.Application")
   
3. '將寄出範圍命名為Rng，取得Rng所有文字
   
4. For i = 1 To [Rng].Rows.Count
   
5.    For j = 1 To [Rng].Columns.Count
   
6.       s = IIf(s = "", [Rng].Cells(i, j), s & Chr(9) & [Rng].Cells(i, j))
   
7.    Next
   
8.    mystr = IIf(mystr = "", s, mystr & Chr(10) & s)
   
9.    s = ""
   
10. Next
    
11. 
    
12. With xlOut
    
13.   Set Mymail = .CreateItem(olMailItem)
    
14.   With Mymail
    
15.   .Subject = "Mail send test" '信件主旨
    
16.   .Recipients.Add "收件者@hotmail.com" '收件者mailaddress
    
17.   .Body = mystr '以Rng內容為內文
    
18.   .Send '寄出信件
    
19.   End With
    
20. End With
    
21. End Sub

複製代碼

---

作者: yowhome    時間: 2013-3-14 12:37

Hsieh , 我成功了, 謝謝.
如果我想要的是當paste to mail body 的時侯,
保留EXCEL FORMAT,又應如何呢??

---

作者: yowhome    時間: 2013-3-14 13:05

回復 2# Hsieh


    Hsieh , 我成功了, 謝謝.
如果我想要的是當paste to mail body 的時侯,
保留EXCEL FORMAT,又應如何呢??

---

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