自動送信

Option Explicit
 
 Sub MailAutoSend()
 
    Dim ws As Worksheet
    Dim outlookObj As Outlook.Application
    Dim mymail As Outlook.MailItem
    Dim mailbody As String
    Dim credit As String
   
    Set ws = Worksheets("Sheet1")
    Set outlookObj = CreateObject("Outlook.Application")
    Set mymail = outlookObj.CreateItem(olMailItem)
    
    mymail.BodyFormat = 3               'リッチテキストに変更
    mymail.To = ws.Range("B2").Value    'To宛先
    mymail.CC = ws.Range("B3").Value
    mymail.BCC = ws.Range("B4").Value
    mymail.Subject = ws.Range("B5").Value   '件名
    
    mailbody = ws.Range("B6").Value         '本文
    credit = ws.Range("B7").Value           '署名
    mymail.Body = mailbody & vbCrLf & vbCrLf & credit
            
    'メール表示
    mymail.Display     'メール表示(ここでは誤送信を防ぐために表示だけにして、メール送信はしない)
    
    'メール保存
    mymail.Save        '下書き保存
    
    'メール送信
    mymail.Send
 
    'オブジェクト解放
    Set outlookObj = Nothing
    Set mymail = Nothing
    
End Sub