Excel VBA Outlook body °ÝÃD

yowhome

¤p§Ìªì¾ÇVBA, ¦³ÂIÃøÃD§Æ±æ¦U¦ì¤j¤jÀ°¦£¸Ñ¨M!! ¸U¤À·PÁÂ.

¦pªG§Ú«YEXCEL ¤J­±, ¦³¤@­Ó½d³ò·Qpaste ¸¨­Ómail boay ¨ì, ¥i¥HÂI°µ©O?
¦Ó®a§Ú¥u¥i¥HCOPY ¥ª­Ó½d³ò, ¤§«á«Y­Ómail ¨ìpasteªð¸¨¥h, ¦ý«Y§Ú·Q¤@¥X­Ómail­Óbody ´N¦³®ID¦r,
¤WºôÚ»¹L, ¦³¤HÁ¿¥i¥Hgroup ¤@®æ¥ý¥X, ¦ý«Y§Ú­Ó½d³ò¤Ó¤j, °µ­ø¨ì, ¥i¥HÂIºâ©O???

yowhome

¦^´_ 2# Hsieh


    Hsieh , §Ú¦¨¥\¤F, ÁÂÁÂ.
¦pªG§Ú·Q­nªº¬O·ípaste to mail body ªº®É«J,
«O¯dEXCEL FORMAT,¤SÀ³¦p¦ó©O??

yowhome

Hsieh , §Ú¦¨¥\¤F, ÁÂÁÂ.
¦pªG§Ú·Q­nªº¬O·ípaste to mail body ªº®É«J,
«O¯dEXCEL FORMAT,¤SÀ³¦p¦ó©O??

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