Question

我之前从未使用过宏或使用过Visual Basic for Applications。我需要将其作为Microsoft Excel 2013中的核对表的一部分。

我的目标：一旦填写了清单，我希望将活动工作表附加到电子邮件中，同时自动填写电子邮件地址和主题，这将是＆＃34; Checklist_XXX＆＃34;例如，XXX部分将根据谁使用清单进行修改，因此可以是Checklist_12345。

我采取的步骤：检查表已完成，我创建了一个ActiveX按钮，默认情况下没有代码。

我在网上找到了以下代码，这似乎是我需要的：

Sub Mail_workbook_Outlook_1()
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .to = "myemail@gmail.com,myemail2@gmail.com"
        .Subject = "Checklist_"
        .Body = "I have attached my checklist related to change"
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

我认为这样做：我相信它会创建一封带有附加消息的Outlook电子邮件，并将myemail@gmail.com和myemail2@gmail.com作为收件人，并修改主题和正文。我将它从.send更改为.display，以便我可以在发送之前查看。

简短的问题：如何在Excel电子表格中点击运行此代码，最好是通过按钮？

Answer 1

将代码附加到单击ActiveX命令按钮：

点击按钮，然后选择View Code 您将被带到屏幕中，其中包含一些代码：

Private Sub CommandButton1_Click()

End Sub

只需在其中添加您的程序名称：

Private Sub CommandButton1_Click()
    Mail_workbook_Outlook_1
End Sub

NB：
您可能值得花些时间将按钮名称更新为比CommandButtonx更有意义的内容右键单击，选择属性并更新(name)字段。

在Excel电子表格中点击运行代码，最好通过按钮

1 个答案: