EXCELアンケートの自動回答ボタンを作成したい。

質問

EXCELで作成したアンケートの最後にVBAで回答ボタンを作成しようとしています。

アンケートのワークシートを保存して閉じるプログラムは次のように作成しました。
EXCELそのものを閉じることはできませんが、まあ、これで良しとします。

Private Sub CommandButton1_Click()
Dim myWb As Workbook
Set myWb = ThisWorkbook
myWb.Save
Set myWb = Nothing
Workbooks.Close
End Sub

「ブックを添付ファイルとしてメール送信する」プログラムは次のようですが、Outlookを使っていない私のパソコンではうまく動作しません。

Dim myName As Name
Dim myWb As Workbook
Set myWb = ThisWorkbook
myWb.SendMail Recipients:="*_**@hotmail.com", Subject:="xlsxファイル送信"
Set myWb = Nothing

もっと賢明な方法があったら教えてください。

回答No.1

ap_2 · ベストアンサー

> EXCELそのものを閉じることはできませんが
　Application.Quit

> Outlookを使っていない私のパソコンでは
インターネットオプション＞プログラムで、メーラーを変更できます。ただ、アンケートなら配布目的ですよね？
「VBA入りのブック」自体がセキュリティ的に嫌われます。素直に添付してもらうか、Web上のアンケートCGIをオススメしたいです。

やるなら、いきなり送信は怖い（印象悪い）ので、送信画面で止めた方が良いかも。
　Application.Dialogs(xlDialogSendMail).Show "***@zzz.jp", "title"

お礼

完璧なお答えありがとうございます。

パソコン、VBAにますます興味を持つことができました。