outlook引用工作表对象内容的问题

Alyosha1

各位老师好
我的问题是目前需要在outlook中用vba发送邮件，邮件内容是一个工作表里的内容，目前在引用工作表对象时出现问题，报错“对象不支持该属性或方法”，特来请教在outlook中引用工作表对象的方法
以下为目前出问题的代码

1. Sub test()
   
2. Dim excelapp As Excel.Application
   
3. Set excelapp = New Excel.Application
   
4. Dim a As Excel.Workbook
   
5. Set a = excelapp.Workbooks.Open("C:\Users\20470\Desktop\123.xlsx")
   
6. 
   
7. Dim olapp As Object
   
8. Dim olmail As Object
   
9. Set olapp = New Outlook.Application
   
10. Set olmail = olapp.CreateItem(0)
    
11. 
    
12. With olmail
    
13. .To = "123@123.com"
    
14. .Subject = a.sheet1.Range("a1")'此行报错
    
15. .Send
    
16. End With
    
17. End Sub

复制代码

Alyosha1

自顶一波，outlook区好冷清啊

Alyosha1

还是没解决，再顶一波