Excelのマクロについて教えてください。

下記の数式にてPDF化されたファイルをマクロを使用してこのファイルを添付ファイルとして
相手側にメールで送る方法がありましたら教えてください。
「Sub 審査結果()
Call output_pdf(ThisWorkbook.Path, "審査結果", Worksheets("審査結果").Range("Y1").Text)
End Sub

'output_pdf(出力したいフォルダパス, 出力したいシート名,保存するPDFファイル名)
Sub output_pdf(PA As String, sh_name As String, f_Name As String)
On Error GoTo SaveError
Worksheets(sh_name).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PA & "\" & f_Name & ".pdf"
Exit Sub
SaveError:
MsgBox ("保存先パス、対象シート名、保存ファイル名が適切ではありません")
End Sub」
のマクロ式を設定しております。
シート10のシート名が審査結果の
セルB5に「=IFERROR(HYPERLINK("mailto:"&VLOOKUP("✔",K1:Q4,ROW()+2,FALSE),"mailto:" & VLOOKUP("✔",K1:Q4,ROW()+2,FALSE)),"")」
の数式を設定しており、このセル値は質疑を送る相手のメールアドレスが条件の元に自動表示されます。
又・セルA1には「=IFERROR(VLOOKUP("✔",K1:Q4,2,FALSE)&"　"&VLOOKUP("✔",K1:Q4,3,FALSE)&" 　様","")」の数式を設定
C16には物件名がそれぞれ表示されるようになっております。
マクロを実行した場合、
1.　自動でOUTLOOKが立ち上がり
2.　上記のマクロでPDF化したファイルを自動で添付
3.　セルB5の相手先が自動で宛先（T）となり
4.　セル16の物件名が自動で件名（U）となり
5.　本文にセルA1の担当名が自動となり
6.　本文に担当者以外の固定文章（例：この度の審査結果をお送りいたします、子ご確認とご対応をよろしくお願いいたします。）と自動で入力したいです。
以上、1～6の項目はあくまでも希望です。
出来るだけ希望に沿って設定はしたいのですが、全てが無理であれば
出来るだけ、1・2・3までは設定希望です。
何卒、よろしくお願いいたします。

質問者からの補足コメント

• 

  早速の回答ありがとうございます。
  回答のHpを確認させていただきました。
  私の希望が全て出来るようですね。
  しかし、私には少々高度すぎて、今回のマクロ式にどの式をどのように追加したらよいかが解りません。
  申し訳ありませんが、私のお送りしましたマクロ式に式の追加をお願い出来ますでしょうか？
  お手数をおかけしますがよろしくお願いいたします。

  No.1の回答に寄せられた補足コメントです。 補足日時：2022/01/07 12:17

No.1 ベストアンサー 回答者： fujillin 回答日時： 2022/01/07 10:47

こんにちは

こんな感じでは？
http://www.fingeneersblog.com/1882/

https://moripro.net/vba-outlook-attach/