这串代码报大错了。。。。有什么办法。。

纸鸽

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.               "然健康中心是一个以传播身心健康理念和中华传统智慧为核心，通过独创的中医学和心理学相融合的技术，快速有效地为社会人士解决身心方面的困扰，并进一步为个人或企业量身定制整体身心健康提升方案的专业服务平台。 我们的健康理念是：疾病是自己的功课，疗愈是生命的本能。" & Chr(10) & Chr(10) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & _
    
24.               "我们的愿景是希望给整个社会带来健康，既包括了社会中每个人的身体健康，也包括了每个人的心理健康。然健康的每一个员工，都在为社会健康提供自己的一份力量，希望把身心健康传递给每一个人。我们在传播健康的同时也在传播一种传统文化，一个民族的强大在于文化的深入人心。我们致力于将中国的传统文化传播到世界的每一个角落，去影响世界。" & Chr(10) & Chr(10) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & _
    
25.               "我们的目标是大健康领域的领军企业之一； 身心全息领域的建构者和领导者；高端人士身心健康的托付人。 如果你有更高的追求，想有长足的发展；如果你热爱健康行业，想自我实现，欢迎加入公司，和公司一同发展！" _
    
26.              & Chr(10) & Chr(10) & "应聘岗位:" & 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) & "公司地址：上海市浦东新区三林路88弄明通文化创意产业园3号楼，然健康。地铁8号线凌兆新村2号口出，然后往前几步过天桥后，在路口右拐，然后往前走到林悦路，沿着林悦路走到三林路，路口即是三林路88弄。" _
    
29.              & Chr(10) & "联系人：耿彦丽" & Chr(10) & Chr(10) & "期待有缘的你加入我们！" & Chr(10) & Chr(10) & "公司网址：http://www.ranjiankang.com/"
    
30.    
    
31.     .Send
    
32. 
    
33. End With
    
34. Set objMail = Nothing
    
35. 
    
36. MsgBox "发送成功"
    
37. 
    
38. End Sub
    
39. 
    

复制代码

这串代码报错，图片如下


有什么办法。。。。
运行环境office365（2016），系统 win10

roych

看看第几行？或者传一个附件上来。另外，确保你的电脑装了Outlook并在Excel的VBE里引用了Outlook库。

纸鸽

roych 发表于 2016-7-5 03:45
看看第几行？或者传一个附件上来。另外，确保你的电脑装了Outlook并在Excel的VBE里引用了Outlook库。

Set objOutlook = New Outlook.Application  这行，好像不是代码的问题，是机器的问题，这串代码在别的机器上能用

pureshadow

遇到这类的，通常都是要事先加载个什么东西的

roych

纸鸽 发表于 2016-7-5 08:49
Set objOutlook = New Outlook.Application  这行，好像不是代码的问题，是机器的问题，这串代码在别的机 ...

请检查那台电脑有没有安装Outlook。

纸鸽

roych 发表于 2016-7-9 10:03
请检查那台电脑有没有安装Outlook。

装了outlook，都是重新装的，现在我都把365卸载了，装的2013.不过还是报错，现在不是那个错了，是DLL错误，在VBA引用里面没有OUTlook15的  只由outlook16的 问题是我都把16的卸载了啊，现在想加载15的都加载不了。。