Application.Dialogs(xlDialogSendMail).Show报错，如何解决？

销香叶雨

我在EXCEL中写入以下代码，运行后出现报错，提示“应用程序定义或对象定义错误”（提示：1）。不解为什么会出现这种情况，以前好像没有出现过类情况。请教各位专家这个问题是怎么造成的？如何解决？谢谢了！
Sub 邮件()
Application.Dialogs(xlDialogSendMail).Show
End Sub


excel 文档使用excel2007做的，现在使用的是EXCEL2010 和outlook2010。

2、代码放在其他工作簿中运行，提示-2：


3、使用下面的代码也会出现错误提示-3：
Sub xlSendFileThroughOutlook()
    Dim fileName As String
    Dim olApp As Object
    Dim myMail As Object

    fileName = ActiveWorkbook.FullName  文件的名称、路径

    Set olApp = CreateObject("Outlook.Application")
    Set myMail = olApp.CreateItem(olMailItem)
    With myMail
        .To = "abc@abc.com"
        .Subject = "Send you a file"
        .Body = "Hi abc ..."
        .AttachMents.Add (fileName)  '添加附件
'        .Send  '发送邮件
    End With
    Exit Sub

End Sub

huang1314wei

代码测试无误，如果楼主的电脑上提示错误，检查一下outlook组件是否正常

销香叶雨

huang1314wei 发表于 2015-10-23 16:18
代码测试无误，如果楼主的电脑上提示错误，检查一下outlook组件是否正常

如何检查？检查哪些组件？
这句代码我以前可以用的，忽然用不了了，也没找到原因。还请您指教，谢谢！