' デフォルトの送信元にしてメールを送信する
Private Sub SendMailBySpecificAccount()

    ' Outlookオブジェクト
    Dim outlook As outlook.Application
    Set outlook = New outlook.Application

    ' Outlookメールオブジェクト
    Dim mail_item As outlook.MailItem
    Set mail_item = outlook.CreateItem(olMailItem)
               
    ' 差出人アカウントを設定する
    Dim account As outlook.account
    Set account = Nothing
    Set account = outlook.Session.Accounts("★差出人メールアカウント★")
    mail_item.SendUsingAccount = account
        
    ' メールの内容を設定する
    ' 本文は.bodyでなく.htmlBody
    ' BodyFormat = olFormatHTML
    Dim html_body As String
    html_body = "<p>本文: これはテストメールです<p>&nbsp;" _
        & "<a href='https://www.youtube.com/?app=desktop&hl=ja'>リンク</a>"

    With mail_item
        ' To: 宛先メールアドレス
        ' CC: メールアドレス
        ' Subject: 件名
        ' HTMLBody: 本文
        .To = "★宛先メールアドレス★"
        .CC = "★CCメールアドレス★"
        .Subject = "件名"
        .htmlBody = html_body
        .BodyFormat = olFormatHTML
        
        ' 添付ファイルの追加
        ' .Attachments.Add "★パス★"
        ' .Attachments.Add "★パス★"
    End With
    
    ' メールを送信する
    Call mail_item.Send
End Sub