提交按钮和电子邮件- excel

Question

我有一个按钮和宏当前设置，允许工作表保存到文件夹并关闭该工作表。是否有一种方法，我可以添加到宏，这样它就会从Outlook发送一条消息，说一些"机器清单提交"到[e-mail]。下面是我已经有的代码，可以很好地工作。

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 "\filestoreIT$Forms and TemplatesCompleted 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 = "[e-mail]"
    .Cc = ""
    .Bcc = ""
    .Subject = "machine checklist submitted"
    .body = "machine checklist submitted"
    .Send
End With
set olApp = nothing
set olMail = nothing