Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
189 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【81613】指定のアドレスに送信させる ソロ 21/1/25(月) 13:29 質問[未読]
【81614】Re:指定のアドレスに送信させる γ 21/1/25(月) 19:49 発言[未読]
【81615】Re:指定のアドレスに送信させる ソロ 21/1/26(火) 9:59 質問[未読]
【81617】Re:指定のアドレスに送信させる γ 21/1/26(火) 15:26 発言[未読]
【81613】指定のアドレスに送信させる
質問  ソロ  - 21/1/25(月) 13:29 -
引用なし
パスワード
   マクロのスイッチを押すと、そのExcelファイルが指定のアドレスに送信されるマクロを組みたいです。
【81614】Re:指定のアドレスに送信させる
発言  γ  - 21/1/25(月) 19:49 -
引用なし
パスワード
   "ExcelVBA ブックをメールで送信する"でネット検索して下さい。
【81615】Re:指定のアドレスに送信させる
質問  ソロ  - 21/1/26(火) 9:59 -
引用なし
パスワード
   ▼γ さん：
>"ExcelVBA ブックをメールで送信する"でネット検索して下さい。

γ さん
早速の回答ありがとうございます。

調べた結果以下のコードが見つかりました。
こちらを利用するとメールが出来上がるのですが、送信までさせる場合はどのコードが必要でしょうか？

また、わたしが使うとoutlookでメールが作成されるのですが
outlookを利用していない人がこのマクロを使うと、その人のいつも使っているメールソフトで実行されるという認識でよいでしょうか？

Sub Sample1()

Application.Dialogs(xlDialogSendMail).Show _
arg1:="Sample1@****.com";, arg2:="サンプル表示です", _
arg3:=True
　
'xlDialogSendMailは「arg1⇒宛先」、「arg2⇒件名」
'「arg3⇒受信通知有無」の指定のみ出来ます

End Sub
【81617】Re:指定のアドレスに送信させる
発言  γ  - 21/1/26(火) 15:26 -
引用なし
パスワード
   こんな風にするとよいと思います。
　SendKeys "%s"

　Application.Dialogs(xlDialogSendMail).Show arg1:="abc@def.co.jp";,arg2:="test", arg3:=False

Outlook以外は手元に無いので、明確なことは言えません。
周囲に環境があったら確認してみてください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
189 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free