OutlookでVBAを使用して電子メールを送信するにはどうすればよいですか？

ボーナス: PowerShell を使用して Outlook から電子メールを送信する

PowerShell では、 Send-MailMessage コマンドレット を使用して電子メールを送信できます。ただし、メール サーバーに対する認証が必要であり、OAuth や Microsoft Modern Authentication などの最新の認証方法はサポートされていません。したがって、コンピュータに Outlook プロファイルが設定されている場合は、電子メールを送信するのがはるかに簡単になります。

これは、Excel  ファイルからデータを読み取り、Outlook プロファイルを使用して電子メールを送信するPowerShell スクリプトの例です。各ユーザー:

# Excel ファイルを開きます
$ExcelObj = New-Object -comobject Excel.Application
$ExcelWorkBook = $ExcelObj.Workbooks.Open("C:\PS\user_list.xlsx")
$ExcelWorkSheet = $ExcelWorkBook.Sheets.Item("Sheet1")
# xlsx ファイル内の埋められた行の数を取得します
$rowcount=$ExcelWorkSheet.usedRange.Rows.Count
# 2 行目から始めて、列 1 のすべての行をループします (これらのセルにはユーザー名と電子メールが含まれます)。
for($i=2;$i -le $rowcount;$i++){
$useremail = $ExcelWorkSheet.Columns.Item(1).Rows.Item($i).Text
$FullUsername = $ExcelWorkSheet.Columns.Item(2).Rows.Item($i).Text
$Status = $ExcelWorkSheet.Columns.Item(4).Rows.Item($i).Text
$pwdchange = $ExcelWorkSheet.Columns.Item(3).Rows.Item($i).Text
# メッセージ本文の生成
$strSubj = " woshub.com ドメイン "
でのアカウント ステータス $strBody = "親愛なる" + $FullUsername
$strBody = $strBody + " `r`n woshub.com ドメインのアカウントは " にあります。 + $ステータス
$strBody = $strBody + "`r`n 最後のパスワード変更の日時は次のとおりです: " + $pwdchange
$strfile="C:\ps\" + $useremail + ".txt"
# Outlook が実行されていると仮定しますが、実行されていない場合は、コマンド $outlook = new-object -comobject Outlook.application
を使用して起動する必要があります。 $outlook = [Runtime.InteropServices.Marshal]::GetActiveObject("Outlook.Application")
$email = $outlook.CreateItem(0)
$email.To = $useremail
$email.Subject = $strSubj
$email.Body = $strBody
# ファイルを添付します (必要な場合)
$email.Attachments.add($strfile)
#電子メールメッセージを送信
$email.Send()
}
$ExcelWorkBook.close($true)

この PowerShell スクリプトは、コンピューター上で Outlook が実行されていることを前提としています。スクリプトは、受信者の SMTP アドレスごとに電子メールの件名と本文を XLSX ファイルに生成し、ファイルを添付します。その後、電子メールを送信します。