|
「Win7・OfficeXPです」
エクセルBook中のSheetを、マクロ操作一発でメールの送信・メールの宛先(校閲用)としてメール画面の出現までやりたいのです。
Sheetの保存先は“Dドライブのディスクトップの送信記録”、ファイル名はSheetの“A1セルの文字列”としています。
マクロ初心者ゆえ、マクロの記録で出来上がったものに、見よう見真似で修正を加えたのですが、
途中どうしても名前を付けて保存Dialog Boxが出てきて“保存”釦を2回押さなければメール画面に行きません。
現状マクロは次ですが、何処を修正すればDialog Boxが出ること無く、一発で出来るでしょうか。
上記でメールの宛先(校閲用)はメールの宛先(添付ファイル)でもかまいません。
Sub Macro1()
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "D:\ディスクトップ\送信記録"
Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("A1")
ActiveWorkbook.SendForReview ShowMessage:=True
End Sub
ご教授のほどよろしくお願いいたします。
|
|