ファイルを添付してサンダーバードのメールを作成するVBA

今回は「ついにやったった」と自分で思える内容、メールを操作するVBAです！！
うちの会社では請求書を郵送しているのですが、最近得意先から「メールで送ってくれ」と依頼されることが多くて。
とある得意先（ここでは「アイウエ（株）」としています）には複数支店があるのですが、それらをまとめて本社にメールをするように言われました。仕事の流れとしては、

①社内システムから請求書をPDF形式でスキャンフォルダに保存、そのタイトルを「アイウエ（株）〇〇支店様請求書」にする。
②納品データ（毎週金曜日にメールで送っている物、月曜日～請求書発行日までの間にデータがあれば送る）を社内システムからデスクトップにエクセルで保存する。
③請求書PDFとエクセルの納品データを添付して、アイウエ（株）本社にメールする。

という感じです。

こんな感じのメール文章に添付ファイルを付けます

これがまた面倒くさくて！！！
特に請求書PDFを1つずつ支店名で保存しなければならないというのと、デスクトップに保存した納品データエクセルを探して（※デスクトップのアイコンを適当に配置しているから、システムからデータ出力した時に色んな位置に保存されてしまう）添付する作業が、請求書発行の忙しい日にはたまったもんじゃないんです！！

というわけで、PDFタイトルを「アイウエ（株）〇〇支店様請求書」に変えて、それと納品データエクセルを添付してメールを作成する、というVBAを作りました。
以下はいつもどおり、ネットで調べれば誰でも分かるような内容なので、同じシチュエーションで悩んでいて今すぐ簡単にする方法を知りたい！ という超限定的な方のみ、ここから先をお進みください。