Hsieh

¦^´_ 1# yowhome


   §A¥u­n±H¥X¤å¥»¤º®e?

1. Sub ex()
   
2. Set xlOut = CreateObject("Outlook.Application")
   
3. '±N±H¥X½d³ò©R¦W¬°Rng¡A¨ú±oRng©Ò¦³¤å¦r
   
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" '«H¥ó¥D¦®
    
16.   .Recipients.Add "¦¬¥óªÌ@hotmail.com" '¦¬¥óªÌmailaddress
    
17.   .Body = mystr '¥HRng¤º®e¬°¤º¤å
    
18.   .Send '±H¥X«H¥ó
    
19.   End With
    
20. End With
    
21. End Sub

½Æ»s¥N½X