Excel VBA質問箱 IV

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

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


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

【75092】添付ファイルのつけ方 せんど 13/12/10(火) 18:04 質問[未読]
【75094】Re:添付ファイルのつけ方 γ 13/12/10(火) 19:42 発言[未読]
【75099】Re:添付ファイルのつけ方 せんど 13/12/11(水) 10:35 発言[未読]
【75107】Re:添付ファイルのつけ方 γ 13/12/11(水) 23:29 発言[未読]

【75092】添付ファイルのつけ方
質問  せんど  - 13/12/10(火) 18:04 -

引用なし
パスワード
   こんにちわ!!

メール画面を呼び出し、
宛名・件名・本文までを呼び出すことはできたのですが
ここに添付ファイルをつけたいのです。


Sub メール作成()


Dim sAddr As String
  Dim sBody As String
  Dim sSubj As String
  Dim sComd As String
  Dim Body As String
  Dim sSend As String
  

xMonth = Format(Date, "(MM月)")
 Body = Sheets("仮シート").Range("B4").Value & "%0d%0a" & _
Sheets("仮シート").Range("B5").Value & "%0d%0a" & _
Sheets("仮シート").Range("B6").Value & "%0d%0a" & _
Sheets("仮シート").Range("B7").Value & "%0d%0a" & _
Sheets("仮シート").Range("B8").Value & "%0d%0a" & _
Sheets("仮シート").Range("B9").Value & "%0d%0a" & _
Sheets("仮シート").Range("B10").Value & "%0d%0a" & _
Sheets("仮シート").Range("B11").Value & "%0d%0a" & _
Sheets("仮シート").Range("B12").Value & "%0d%0a" & _
Sheets("仮シート").Range("B13").Value & "%0d%0a" & _
Sheets("仮シート").Range("B14").Value & "%0d%0a" & _
Sheets("仮シート").Range("B15").Value & "%0d%0a" & _
Sheets("仮シート").Range("B16").Value & "%0d%0a" & _
Sheets("仮シート").Range("B17").Value & "%0d%0a" & _
Sheets("仮シート").Range("B18").Value & "%0d%0a" & _
Sheets("仮シート").Range("B19").Value & "%0d%0a" & _
Sheets("仮シート").Range("B20").Value & "%0d%0a" & _
Sheets("仮シート").Range("B21").Value & "%0d%0a" & _
Sheets("仮シート").Range("B22").Value & "%0d%0a" & _
Sheets("仮シート").Range("B23").Value & "%0d%0a" & _
Sheets("仮シート").Range("B24").Value & "%0d%0a"


sAddr = "+++++@+++++.co.jp";
sSubj = "ポイント" & xMonth
sBody = Body

sComd = "Mailto:" & sAddr & "?Subject=" & sSubj & "&Body=" & sBody
Debug.Print sComd
CreateObject("WScript.Shell").Run sComd

End Sub

教えていただければ幸いです。
よろしくお願い致します。

【75094】Re:添付ファイルのつけ方
発言  γ  - 13/12/10(火) 19:42 -

引用なし
パスワード
   ht★tp://hardsoft.at.webry.info/201307/article_3.html
などを見てもらうとわかりますが、
元々、仕様(RFC2368)では添付ファイルの利用を認めていません。

非公式で可能なものがあるそうですが、メールソフトは何ですか?
試してみて下さい。成功する可能性は低いと思いますが。

1) Excelから操作が可能なOutlookを利用して送信する。
2) CDOを利用して送信する。
などの方法を利用してはどうですか?

【75099】Re:添付ファイルのつけ方
発言  せんど  - 13/12/11(水) 10:35 -

引用なし
パスワード
   ▼γ さん:
>ht★tp://hardsoft.at.webry.info/201307/article_3.html
>などを見てもらうとわかりますが、
>元々、仕様(RFC2368)では添付ファイルの利用を認めていません。
>
>非公式で可能なものがあるそうですが、メールソフトは何ですか?
>試してみて下さい。成功する可能性は低いと思いますが。
>
>1) Excelから操作が可能なOutlookを利用して送信する。
>2) CDOを利用して送信する。
>などの方法を利用してはどうですか?


お返事ありがとうございます。

非公開なのですね‥
ちなみにメールはWindowsliveメールです。

【75107】Re:添付ファイルのつけ方
発言  γ  - 13/12/11(水) 23:29 -

引用なし
パスワード
        ** 文章が混乱していたので修正しました **
>非公開なのですね‥
非公開ということではありません。

業界関係者が定めた mailto:プロトコルでは、
添付ファイルを指定する機能はありません。
ですから、mailtoに反応する機能を実装する開発者は、
添付機能を実現しなくてよいのです。それが普通です。
しかし、中には親切心からその機能を実装している一部のソフトが
あるようです、ということです。

実装する義務もないので、実装していないことにクレームをつける権利は
なにもなく、偶然に実装されていたらラッキー、ということです。
(少しくどいかな。)

>ちなみにメールはWindowsliveメールです。
試されたように、たぶん、それは添付機能を実装していないということですね。

mailto:にこだわらなければ、もっと選択肢は広がります。

(0)まず、ExcelからWindowsliveメールをコントロール方法は、
それらをコントロールする術をマイクロソフトが提供していないので、
難しいと思われます。

(1)Outlookをマクロから操作する。
(OutlookはExcelなどから操作される手段が提供されており、使い易いです。)

(2)Basp21というメール送信機能を持ったツール(無料)を利用する。

(3)CDOという仕組みを利用する。
(追加の設備は不要ですが、難しいかも)

などの方法があります。
ネットなどで検索して、難易度など色々検討してみてください。
外部ツールをインストールすることが可能なら、(2)が使用例もネット上にあり、
比較的容易かも知れません。


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