Question

我当前设置了一个按钮和宏，允许工作表保存到文件夹并关闭该工作表。有没有办法可以添加到宏，所以它会通过电子邮件发送一条来自Outlook的消息，例如提交“机器检查表提交”到Test123@outlook.com。下面是我已经拥有的代码。

Sub Saveworkbook()
Application.DisplayAlerts = False
Dim Sheet1 As Worksheet
Dim dName$, vName$, sName$
    dName = Range("B8")
    vName = ActiveWorkbook.FullName
    sName = ActiveWorkbook.ActiveSheet.Name
    For Each Sheet1 In ActiveWorkbook.Sheets
    If Not Sheet1.Name = sName Then
    Sheet1.Delete
    End If
    Next Sheet1

    ActiveWorkbook.SaveAs "\\filestore\IT$\Forms and Templates\Completed Checklists\" & dName & "_" & Environ("username") & "_" & Format(Now, "ddmmyy")
    ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

提前致谢萨姆

Answer 1

在下方添加您的代码

dim olApp as object, olMail as object

set olApp = createobject("outlook.application")
set olMail = olApp.createitem(0) 

With olMail
    .To = "Test123@outlook.com"
    .Cc = ""
    .Bcc = ""
    .Subject = "machine checklist submitted"
    .body = "machine checklist submitted"
    .Send
End With
set olApp = nothing
set olMail = nothing

提交按钮和电子邮件 - excel

1 个答案: