[求助]如何改动这段关于OUTLOOK代码才可以发送附件呢!谢谢!
请帮忙看看下面得代码。怎么改才可以将文件”E:\Eng Work Planning -IR.xls“作为附件发送!非常感谢!
Private Sub Command1_Click()
Dim xlApp As Excel.Application, xlBook As Excel.Workbook, xlSheet As Excel.Worksheet
Dim ret As String
Dim App As Object
Dim Itm As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("E:\Eng Work Planning -IR.xls")
Set xlSheet = xlBook.Worksheets("LiWei")
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = "Work plan update"
.To = "jicktom11@163.com"
.Body = test
.Send
End With
xlBook.Save
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
End Sub