("b3:g3")) ' 件名 olMi.Subject = Range("b4").Value ' 本文の書式をテキストにする olMi.BodyFormat = olFormatPlain ' 本文 olMi.Body = Range("b5").Value ' 宛先、CC、BCC のいずれかが入力されているかをチェック Select Case True Case olMi.To = "" And olMi.CC = "" And ...