attached2 = Range("AT22").Value '添付ファイル2 myattachments2.Add (attached2) 'コード6|メールを送信する mailItemObj.Display 'メール表示(ここでは誤送信を防ぐために表示だけにして、メール送信はしない) 'コード7|outlookを閉じる(オブジェクトの解放) ...