外部コンポーネントを利用しないCDOでのメールを送信します。(Windows2000以降) '----- 参照設定 Microsoft CDO for Windows 2XXX Library Public myCDOMsg As New CDO.Message Public Const myADDRESS As String _ = "http://schemas.microsoft.com/cdo/configuration/" Sub SendMail() With myCDOMsg .To = "受信者 <aaa@aaa.com>;受信者2 <bbb@bbb.com>" '----- 宛先 '表示名を設定しない場合は<>の中だけでよい。 '.To = "aaa@aaa.com;bbb@bbb.com" .CC = "ccc@ccc.com" '----- CC .From = "送