如何使用此代码修复编译错误？

Question

这是教程https://wellsr.com/vba/2018/excel/excel-vba-send-email-with-attachment/的链接

Sub AttachMultipleFilesToEmail()
Dim outlookApp As Outlook.Application
Dim myMail As Outlook.MailItem

Set outlookApp = New Outlook.Application
Set myMail = outlookApp.CreateItem(olMailItem)

For i = 2 To 5
  source_file = "C:\Work Files\" & Cells(i, 3)
  myMail.Attachments.Add source_file
Next i
End Sub

发生错误的地方

错误代码

这是我想要做的大事。 从https://wellsr.com/vba/2018/excel/excel-vba-send-email-with-attachment/获得此图像，但文件和目录存在且正确。 可能是什么问题呢？

Answer 1

猜测一下，我会说你没有对outlook dll的引用。

尝试单击VBA编辑器中的“工具”菜单，然后选择“引用”...

然后向下滚动列表，直到找到Microsoft Outlook XX Object Library ，然后选择它。 XX只是版本号。

对于将来的问题，请始终告诉我们发生错误的代码行以及确切的错误消息。 否则我们只是在猜测。

关于你修改过的问题：

我运行你的代码，它工作正常。 但是，我确保将包含文件名的工作表作为活动工作表，否则您将收到错误。

我建议你明确地用数据来引用工作表，而不是仅使用Cells(i,3)因为这是使用活动工作表的简写。

这是一种方法：

Sub AttachMultipleFilesToEmail()
    Dim outlookApp As Outlook.Application
    Dim myMail As Outlook.MailItem
    Dim sheet As Worksheet 'declare an object to point to the sheet with the data

    Set outlookApp = New Outlook.Application
    Set myMail = outlookApp.CreateItem(olMailItem)
    Set sheet = Worksheets("Sheet1") 'set the object to the correct sheet

    For i = 1 To 2
        source_file = "C:\Work Files\" & sheet.Cells(i, 3) 'use the sheet object to ensure the correct cells are used.
        myMail.Attachments.Add source_file
    Next i
End Sub

Answer 2

您可能需要添加引用（工具 - >引用）并将“ThisWorbook”更改为“ActiveWorkoob”。 ThisWorkbook不会，如果你是从你的个人模块runnign宏工作。