[已解决]求vba调用outlook对话框的代码？

hamsik11

利用vba代码，调出outlook框，把当前文件作为附件，收件人我可以在outlook对话框里自己选，哪位高手帮帮忙？

谢谢啦

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-9 16:29

1. Sub 发信()
   
2.     Dim outlook As Object
   
3.     Dim mailitem As Object
   
4.     Dim attach As Object
   
5.     Set outlook = CreateObject("outlook.application")
   
6.     Set mailitem = outlook.Application.CreateItem(0)
   
7.     Set attach = mailitem.Attachments
   
8.     attach.Add ThisWorkbook.FullName, 1, 1
   
9.     mailitem.Display
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

dpdmlym

ExcelVBA调用Outlook对象
http://www.excelpx.com/thread-94678-1-1.html

hwc2ycy

1. Sub 发信()
   
2.     Dim outlook As Object
   
3.     Dim mailitem As Object
   
4.     Dim attach As Object
   
5.     Set outlook = CreateObject("outlook.application")
   
6.     Set mailitem = outlook.Application.CreateItem(0)
   
7.     Set attach = mailitem.Attachments
   
8.     attach.Add ThisWorkbook.FullName, 1, 1
   
9.     mailitem.Display
   
10. End Sub
    

复制代码

hamsik11

hwc2ycy 发表于 2013-1-9 16:29

厉害厉害 不胜感激 灰常感谢