excel vba 发送邮件，outlook正文如何添加单元格

文西君

我现在是想利用excel 的宏  调用outlook 发邮件，在body 正文里添加一些单元格 ，效果如图

想请教各位，代码改如何修改，奖励不知道如何设置，麻烦各位了，谢谢！

1. Sub lensonlyemail()
   
2. 
   
3. 
   
4.     Sheets("WI").Select
   
5.    
   
6.    Dim objOL As Object
   
7.    Dim itmNewMail As Object
   
8.    Dim attaches
   
9.    Dim attach
   
10.    
    
11.    Set objOL = CreateObject("Outlook.Application")
    
12.     Set itmNewMail = objOL.CreateItem(olMailItem)
    
13. 
    
14.     With itmNewMail
    
15. 
    
16.         .Subject = Cells(63, 2)
    
17. 
    
18.         .body = Cells(63, 4)
    
19.         
    
20.         .Cc = Cells(63, 3)
    
21. 
    
22.         .To = Cells(63, 1)
    
23.         
    
24.         
    
25.    
    
26.          .Display
    
27.          
    
28.       
    
29.     End With
    
30.    
    
31.   
    
32.    
    
33.     Set objOL = Nothing
    
34.     Set itmNewMail = Nothing
    
35.   
    
36. 
    
37. 
    
38. 
    
39. 
    
40. End Sub
    

复制代码