ボタンを送信して電子メールを送信する - excel

Question

私は現在、ボタンをクリックして、シートをフォルダに保存してそのシートを閉じることができるようにしました。マクロに追加できる方法はありますか？Outlookから「Machine checklist submitted」の行に沿って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

は、ExcelからOutlookに電子メールを送信する方法のためのSO検索コードに以下

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