這串代碼報大錯了。。。。有什么辦法。。

紙鴿

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
2. 
   
3. If Target.Column <> 14 Then Exit Sub
   
4. 
   
5. Dim Row_Now As Long
   
6. 
   
7. Row_Now = Target.Row
   
8. 
   
9. If Not Cells(Row_Now, 1) Like "#" Then Exit Sub
   
10. If Not Cells(Row_Now, 12) Like "*@*.*" Then Exit Sub
    
11. If Cells(Row_Now, 14) = "" Then Exit Sub
    
12. 
    
13. Dim objOutlook As New Outlook.Application
    
14. Dim objMail As MailItem
    
15. 
    
16. Set objOutlook = New Outlook.Application
    
17. 
    
18. Set objMail = objOutlook.CreateItem(olMailItem)
    
19. With objMail
    
20.     .To = Cells(Row_Now, 12)
    
21.     .Subject = "然健康-面試邀請"
    
22.     .Body = Cells(Row_Now, 3).Text & "：" & Chr(10) & "       您好" & Chr(10) & Chr(10) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & _
    
23.               "然健康中心是一個以傳播身心健康理念和中華傳統(tǒng)智慧為核心，通過獨創(chuàng)的中醫(yī)學(xué)和心理學(xué)相融合的技術(shù)，快速有效地為社會人士解決身心方面的困擾，并進(jìn)一步為個人或企業(yè)量身定制整體身心健康提升方案的專業(yè)服務(wù)平臺。 我們的健康理念是：疾病是自己的功課，療愈是生命的本能。" & Chr(10) & Chr(10) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & _
    
24.               "我們的愿景是希望給整個社會帶來健康，既包括了社會中每個人的身體健康，也包括了每個人的心理健康。然健康的每一個員工，都在為社會健康提供自己的一份力量，希望把身心健康傳遞給每一個人。我們在傳播健康的同時也在傳播一種傳統(tǒng)文化，一個民族的強大在于文化的深入人心。我們致力于將中國的傳統(tǒng)文化傳播到世界的每一個角落，去影響世界。" & Chr(10) & Chr(10) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & _
    
25.               "我們的目標(biāo)是大健康領(lǐng)域的領(lǐng)軍企業(yè)之一； 身心全息領(lǐng)域的建構(gòu)者和領(lǐng)導(dǎo)者；高端人士身心健康的托付人。 如果你有更高的追求，想有長足的發(fā)展；如果你熱愛健康行業(yè)，想自我實現(xiàn)，歡迎加入公司，和公司一同發(fā)展！" _
    
26.              & Chr(10) & Chr(10) & "應(yīng)聘崗位:" & Cells(Row_Now, 4).Text & Chr(10) & Chr(10) & "面談時間:" & Cells(Row_Now, 14).Text & Chr(10) & Chr(10) & _
    
27.               "凡墨健康管理咨詢（上海）有限公司" & Chr(10) & "電話：021-61837579 61837580" & Chr(10) & "手機：13661556796" & Chr(10) & "全國400熱線：400-8358-021" _
    
28.              & Chr(10) & "公司地址：上海市浦東新區(qū)三林路88弄明通文化創(chuàng)意產(chǎn)業(yè)園3號樓，然健康。地鐵8號線凌兆新村2號口出，然后往前幾步過天橋后，在路口右拐，然后往前走到林悅路，沿著林悅路走到三林路，路口即是三林路88弄。" _
    
29.              & Chr(10) & "聯(lián)系人：耿彥麗" & Chr(10) & Chr(10) & "期待有緣的你加入我們！" & Chr(10) & Chr(10) & "公司網(wǎng)址：http://www.ranjiankang.com/"
    
30.    
    
31.     .Send
    
32. 
    
33. End With
    
34. Set objMail = Nothing
    
35. 
    
36. MsgBox "發(fā)送成功"
    
37. 
    
38. End Sub
    
39. 
    

復(fù)制代碼

這串代碼報錯，圖片如下


有什么辦法。。。。
運行環(huán)境office365（2016），系統(tǒng) win10

roych

看看第幾行？或者傳一個附件上來。另外，確保你的電腦裝了Outlook并在Excel的VBE里引用了Outlook庫。

紙鴿

roych 發(fā)表于 2016-7-5 03:45
看看第幾行？或者傳一個附件上來。另外，確保你的電腦裝了Outlook并在Excel的VBE里引用了Outlook庫。

Set objOutlook = New Outlook.Application  這行，好像不是代碼的問題，是機器的問題，這串代碼在別的機器上能用

pureshadow

遇到這類的，通常都是要事先加載個什么東西的

roych

紙鴿 發(fā)表于 2016-7-5 08:49
Set objOutlook = New Outlook.Application  這行，好像不是代碼的問題，是機器的問題，這串代碼在別的機 ...

請檢查那臺電腦有沒有安裝Outlook。

紙鴿

roych 發(fā)表于 2016-7-9 10:03
請檢查那臺電腦有沒有安裝Outlook。

裝了outlook，都是重新裝的，現(xiàn)在我都把365卸載了，裝的2013.不過還是報錯，現(xiàn)在不是那個錯了，是DLL錯誤，在VBA引用里面沒有OUTlook15的  只由outlook16的 問題是我都把16的卸載了啊，現(xiàn)在想加載15的都加載不了。。