Excel VBAでメールをすぐに送信する｜ボタンで送信するシート

Option Explicit

Private Declare Function SendMailEx Lib "bsmtp" _
      (szLogfile As String, szServer As String, szTo As String, szFrom As String,_
       szSubject As String, szBody As String, szFile As String) As String

Private Sub ExSendMail()
    Dim sret As String
    Dim szLogfile As String 'ログファイル名
    Dim szServer As String  'SMTPサーバー名
    Dim szFrom As String    '送信元
    Dim szTo As String      '宛先
    Dim szSubject As String '件名
    Dim szBody As String    '本文
    Dim szFile As String    '添付ファイル
    
    szLogfile = "c:\mail_test\log.txt"
    szServer = Range("G13")
    szFrom = Range("G14")
    szTo = Range("G17")
    szSubject = Range("G4")
    szBody = Range("G5")
    szFile = ""
    
    sret = SendMailEx(szLogfile, szServer, szTo, szFrom, szSubject, szBody, szFile)

    ' 送信エラーの場合
    If Len(sret) <> 0 Then
        MsgBox "送信エラー： " & sret
    End If
End Sub

Private Sub CommandButton1_Click()
    ExSendMail
End Sub