Excel VBA質問箱 IV

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

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


9828 / 13644 ツリー ←次へ | 前へ→

【25027】メールに他のファイルを添付する方法 ばもばも 05/5/18(水) 10:29 質問[未読]
【25043】Re:メールに他のファイルを添付する方法 kazu 05/5/18(水) 18:29 発言[未読]
【25077】Re:メールに他のファイルを添付する方法 ばもばも 05/5/19(木) 13:51 お礼[未読]
【25092】Re:メールに他のファイルを添付する方法 かみちゃん 05/5/20(金) 0:15 回答[未読]
【25095】Re:メールに他のファイルを添付する方法 ばもばも 05/5/20(金) 9:37 質問[未読]
【25109】Re:メールに他のファイルを添付する方法 かみちゃん 05/5/20(金) 12:52 発言[未読]
【25250】Re:メールに他のファイルを添付する方法 ばもばも 05/5/25(水) 11:44 お礼[未読]

【25027】メールに他のファイルを添付する方法
質問  ばもばも  - 05/5/18(水) 10:29 -

引用なし
パスワード
   Application.Dialogs(xlDialogSendMail).Show
       ↑
で作業中ファイルの添付はできるのですが、
 1.別ファイルを添付
 2.本文の設定
することはできるのでしょうか?

過去ログでいろんなメール送信方法があることは
分かったのですが、SendMailでは可能ですか?

どうしてSendMailを希望しているのかというと
一度、作成されたメール画面を確認してから
送信したいのです。
それができるのでしたが他の方法でもいいのです。

どうぞよろしくお願いします。

【25043】Re:メールに他のファイルを添付する方法
発言  kazu  - 05/5/18(水) 18:29 -

引用なし
パスワード
   ▼ばもばも さん:

メールを作って本文書いて添付ファイル付けてあて先、CCを入れ、表示する。

この一連の流れなら以下で出来ませんでしょうか。

はずしてたらすみません・・・。

Set objolApp = CreateObject("Outlook.Application")
Set objMail = objolApp.createitem(0)
With objMail
  .Subject = "件名"
  .body = "本文"
  .Attachments.Add "添付ファイルをフルパスで"

  Set myRecipient = .Recipients.Add("あて先のメールアドレス")

  Set myRecipient = .Recipients.Add("CCのメールアドレス")
  myRecipient.Type = 2
  .display
End With

Set objMail = Nothing
Set objolApp = Nothing
  

【25077】Re:メールに他のファイルを添付する方法
お礼  ばもばも  - 05/5/19(木) 13:51 -

引用なし
パスワード
   kazu さん お返事ありがとうございます。

実は会社の推奨メールがNetscapeなのです。
Outlookを設定していて、お礼が遅くなりすみません。

Outlook Expressを設定後、kazuさんのマクロが
私の希望通りに動きました。
ありがとうございます。

ただ、私のPC以外ではこのマクロは使えないこと
になります。
Netscapeで同じような作業はできないでしょうか?

何度もすみません。

【25092】Re:メールに他のファイルを添付する方法
回答  かみちゃん  - 05/5/20(金) 0:15 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>Netscapeで同じような作業はできないでしょうか?

メールソフトに依存しない方法であれば、
SMTPサーバー名があらかじめわかっていることが前提ですが、BSMTP.DLLが使えると思います。Excelからメール送信する場合は、私はよく使っています。
次のURLにExcelのサンプルがあります。
http://www.hi-ho.ne.jp/babaq/vbtips.html

【25095】Re:メールに他のファイルを添付する方法
質問  ばもばも  - 05/5/20(金) 9:37 -

引用なし
パスワード
   かみちゃん さん ありがとうございます。
照会頂いたサイトも重宝しそうです。

そのままメールを送信する方法は分かったのですが
送信する前にメール画面を開いた状態で確認してから
自分で送信したく、分からないながら、
少しだけ(Showやdisplayで)試してみたのですが
上手くいきません。

BSMTP.DLLを使ったメール送信でメール作成画面を
開くことは可能でしょうか?

【25109】Re:メールに他のファイルを添付する方法
発言  かみちゃん E-MAIL  - 05/5/20(金) 12:52 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>BSMTP.DLLを使ったメール送信でメール作成画面を
>開くことは可能でしょうか?

紹介したURLに、Excelのサンプルがあったかと思いますが、BSMTP.DLLはメール送受信の際に使います。
つまり、メール作成や、添付ファイル名指定は、Excelシート上に記述して、コマンドボタンをクリックして、送信するということになります。
このことから、Outlookや、Netscapeなどのいわゆるメールソフトは一切使いません。(というか、メールソフトは使えません。)

期待している回答でない場合は、すみません。

【25250】Re:メールに他のファイルを添付する方法
お礼  ばもばも  - 05/5/25(水) 11:44 -

引用なし
パスワード
   かみちゃん さん、回答頂いていたのにお礼が遅くなりすみません。

メールソフトを使えない=送信前の作成画面は見れないということですね。
BSMTP.DLLを使ってみようと思います。

>期待している回答でない場合は、すみません。
いえいえとんでもない、ありがとうございました。

9828 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free