| 
    
     |  | ▼γ さん: どうもありがとうがとうございました。
 こちらもやってみようと思います。
 ほんとに初心者なので一つ一つ勉強です。
 
 
 >xlDialogSendMailの引数は
 >recipients、subject、return_receipt
 >であるとヘルプに書かれているので、たぶんCC:はセットできないでしょう。
 >
 >シートにハイパーリンクを張って、それをクリックしてはどうですか?
 >Sub test()
 >  ActiveSheet.Hyperlinks.Add _
 >  Anchor:=Selection, _
 >  Address:="mailto:aaa@xxx.xx.xx&cc=bbb@xxx.xx.xx&Subject=title&body=本文", _
 >  TextToDisplay:="セルに表示する文字列"
 >End Sub
 >こうしておけば、固定の相手への定期的なメールには使えます。
 >ただし添付ファイルを自動でつけることはできませんが。
 >
 >本格的にするなら、既にご指摘のとおりの手法がありますが、
 >まったくの初心者なら、OutlookとかCDOとかの操作は、もっと先の課題でしょう。
 >
 ># 情報提供になんら異論を挟むつもりはありませんし、
 >#「まったくの初心者」などというのは幅のある言葉と承知していますが。
 
 
 |  |