Excel VBA質問箱 IV

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

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


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

【56166】自身を添付ファイルにしてメーラーを起動するには にしもり 08/6/6(金) 18:21 質問[未読]
【56167】Re:自身を添付ファイルにしてメーラーを起... マクロマン 08/6/6(金) 18:33 発言[未読]
【56178】Re:自身を添付ファイルにしてメーラーを起... マクロマン 08/6/7(土) 15:45 発言[未読]
【56217】Re:自身を添付ファイルにしてメーラーを起... にしもり 08/6/9(月) 8:51 お礼[未読]
【56501】Re:自身を添付ファイルにしてメーラーを起... にしもり 08/6/19(木) 16:25 質問[未読]
【56503】Re:自身を添付ファイルにしてメーラーを起... マクロマン 08/6/19(木) 16:31 発言[未読]
【56505】Re:自身を添付ファイルにしてメーラーを起... にしもり 08/6/19(木) 16:46 質問[未読]
【56506】Re:自身を添付ファイルにしてメーラーを起... マクロマン 08/6/19(木) 16:50 発言[未読]
【56509】Re:自身を添付ファイルにしてメーラーを起... にしもり 08/6/19(木) 17:07 お礼[未読]

【56166】自身を添付ファイルにしてメーラーを起動...
質問  にしもり  - 08/6/6(金) 18:21 -

引用なし
パスワード
   こんにちは。

Excelシート上にCommandBottunがあるとします。
シートにコメントを記入した者AがCommandBottun1を押すとExcelファイルがSAVEされ、そのExcelファイル自身が添付ファイルとなった形でメーラーが起動し、次にコメントを記入する者Bに送られる。

そのようなことはできるでしょうか。

【56167】Re:自身を添付ファイルにしてメーラーを...
発言  マクロマン  - 08/6/6(金) 18:33 -

引用なし
パスワード
   SaveCopyAsメソッドでコピーしたものを添付してはいかがでしょう?

メール送信については↓が参考になると思います。
ファイルの添付も可能です。
CDOでメール送信
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_800_080.html

トップページはこちら
☆ Excelでお仕事!(Excel全般の解説サイト) ☆
http://www.asahi-net.or.jp/~ef2o-inue/top01.html

【56178】Re:自身を添付ファイルにしてメーラーを...
発言  マクロマン  - 08/6/7(土) 15:45 -

引用なし
パスワード
   SaveCopyAsでは、ブック丸ごとコピーになるので、
マクロも一緒にコピーされます。

メール送信先にはマクロが不要なら、必要シートのみを
新規ブックとして保存するなりしてその保存したブック
をメール添付するなどの対策が必要です。

【56217】Re:自身を添付ファイルにしてメーラーを...
お礼  にしもり  - 08/6/9(月) 8:51 -

引用なし
パスワード
   ▼マクロマン さん:
ちょっとわたくしにはむずかしいですがよく読んでみます。
どうもありがとうございました。

【56501】Re:自身を添付ファイルにしてメーラーを...
質問  にしもり  - 08/6/19(木) 16:25 -

引用なし
パスワード
   紹介いただいたURLを参考にやっています.


Option Explicit
Sub TEST2()
  Dim MailSmtpServer As String
  Dim MailFrom As String
  Dim MailTo As String
  Dim MailSubject As String
  Dim MailBody As String
  Dim MailAddFile As Variant
  Dim strMSG As String

  ' 添付ファイルの選択
  MailAddFile = Application.GetOpenFilename("全てのファイル (*.*),*.*", , _
    "添付ファイルを選択して下さい。", , True)
  ' 送信確認
  If MsgBox("メールを送信します。" & vbCr & _
    "SMTP,発信者,宛先等は正しいですか?", vbYesNo) <> vbYes Then Exit Sub
  MailSmtpServer = Cells(1, 2).Text  ' SMTPサーバ
  MailFrom = Cells(2, 2).Text     ' 発信者
  MailTo = Cells(3, 2).Text      ' 宛先
  MailSubject = Cells(4, 2).Text   ' 件名
  MailBody = Cells(5, 2).Text     ' 本文
  ' メール送信(CC,BCCはブランク)
  strMSG = SendMailByCDO(MailSmtpServer, MailFrom, MailTo, "", "", _
    MailSubject, MailBody, MailAddFile)
  ' 文字コードを任意に指定する場合は以下のようにします。
'  strMSG = SendMailByCDO(MailSmtpServer, MailFrom, MailTo, "", "", _
    MailSubject, MailBody, MailAddFile, cdoISO_2022_JP)
  If strMSG <> "OK" Then MsgBox Mid(strMSG, 3)
End Sub

が、実行するとSendMailByCDOが反転して、
subまたはfunctionが定義されていません とでます。
なにがたりないでしょうか。
御教示ください。

【56503】Re:自身を添付ファイルにしてメーラーを...
発言  マクロマン  - 08/6/19(木) 16:31 -

引用なし
パスワード
   参照設定はしてますか?

【56505】Re:自身を添付ファイルにしてメーラーを...
質問  にしもり  - 08/6/19(木) 16:46 -

引用なし
パスワード
   ▼マクロマン さん:
はい。
Microsfot Activwx Data Object 2.7 Library
Microsoft CDO For Exchange 2000 Lbrary
にチェック済みなのですが。。

【56506】Re:自身を添付ファイルにしてメーラーを...
発言  マクロマン  - 08/6/19(木) 16:50 -

引用なし
パスワード
   もしかして、井上さんのHPの下の方に記述してあるFunction
を記述していない、ということはありませんか?

【56509】Re:自身を添付ファイルにしてメーラーを...
お礼  にしもり  - 08/6/19(木) 17:07 -

引用なし
パスワード
   ▼マクロマン さん:
>もしかして、井上さんのHPの下の方に記述してあるFunction
>を記述していない、ということはありませんか?
Functionを記述していませんでした。
下のほうも全部必要なのですね。
ど素人ゆえすみません。
やったらサーバ転送できませんでした、とでます。
ということは送信のステップまではいったということですね。
あとなんとかやってみます。
ありがとうございました。

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