Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2593 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【66754】現在ブックを添付してメールするには MASATO 10/10/3(日) 20:17 質問[未読]
【66801】Re:現在ブックを添付してメールするには ASP21 10/10/6(水) 21:31 回答[未読]
【66815】Re:現在ブックを添付してメールするには keisuke 10/10/7(木) 18:47 発言[未読]
【66818】Re:現在ブックを添付してメールするには Masato/S 10/10/7(木) 20:41 質問[未読]
【66819】Re:現在ブックを添付してメールするには keisuke 10/10/7(木) 21:09 発言[未読]
【66904】Re:現在ブックを添付してメールするには Masato/S 10/10/16(土) 12:23 質問[未読]
【66911】Re:現在ブックを添付してメールするには keisuke 10/10/16(土) 16:13 回答[未読]
【66937】Re:現在ブックを添付してメールするには Masato/S 10/10/18(月) 21:45 質問[未読]
【66938】Re:現在ブックを添付してメールするには neptune 10/10/18(月) 22:51 発言[未読]
【67059】Re:現在ブックを添付してメールするには Masato/S 10/10/29(金) 21:58 質問[未読]
【67063】Re:現在ブックを添付してメールするには keisuke 10/10/29(金) 23:59 発言[未読]
【67111】Re:現在ブックを添付してメールするには Masato／Ｓ 10/11/4(木) 17:57 お礼[未読]
【66754】現在ブックを添付してメールするには
質問  MASATO  - 10/10/3(日) 20:17 -
引用なし
パスワード
   こんばんは

　現在ブックを添付してメールするには、以下のコードを組みました。
うまく動きません。どこに間違っているかはわからなくて、
困っています。ご指導ください。
よろしくお願いします。

----------------------------------------------------------------------
環境：WindowsVistaHome
　　　Office2007
　　　Windowsメール

実施計画：ブックを開いた状態で、以下のVBAを実行すると、現在の
　　　　　ブックを添付して、固定のアドレスへ送信される。
　
Sub 現在ブック添付送信()

　Dim strAdd As String
　Dim strSub As String

　'宛先のアドレスを変数strAddへ代入
　strAdd = "abcdefg@hijk.co.jp";
　'件名表示を変数strSubへ代入
　strSub = "現在ブックを添付してメールを送信する"

　ActiveWorkbook.SendMail Recipients:=strAdd, Subject:=strSubEnd

Sub
----------------------------------------------------------------------
【66801】Re:現在ブックを添付してメールするには
回答  ASP21  - 10/10/6(水) 21:31 -
引用なし
パスワード
   　Excelのブック環境で、VBAに依存するだけ、メール送信はかなり難しいかもしれない。やはりＶＢやBasp21を使うべき・・・。
【66815】Re:現在ブックを添付してメールするには
発言  keisuke  - 10/10/7(木) 18:47 -
引用なし
パスワード
   OutLookはインストールされていますか？？
【66818】Re:現在ブックを添付してメールするには
質問  Masato/S  - 10/10/7(木) 20:41 -
引用なし
パスワード
   keisuke さん：

>OutLookはインストールされていますか？？

outlook expressはインストールされています。
【66819】Re:現在ブックを添付してメールするには
発言  keisuke  - 10/10/7(木) 21:09 -
引用なし
パスワード
   ▼Masato/S さん：
>keisuke さん：
>
>>OutLookはインストールされていますか？？
>
>outlook expressはインストールされています。

***　outlook expressでは動作しませんですよ〜

outlook expressならコントロールできるASP21などをインストールする
必要があると思います。
ｴｸｾﾙとOutLookなら同じOFFICE製品なのでお手軽ですが、、、

確かActiveWorkbook.SendMail Recipients:=strAdd, Subject:=strSubEnd
もOutLookのはずですが、、違っていたらごめんなさい。
【66904】Re:現在ブックを添付してメールするには
質問  Masato/S  - 10/10/16(土) 12:23 -
引用なし
パスワード
   keisuke さん

確認したら、やはりoutlook expressだと動作しません。
OutLookの環境を作ったら、動きます。

質問１：メール本文を載せることは可能でしょうか？
質問２：実行したら、メッセージBOXが表示されて、宛先も項目は
　　　　空欄になっています。
　　　　Recipients:=strAddになっているから、
　　　　そのstrAddの値が表示されるはずですが、どうじて空欄のまま？　　　　
　
教えていただきたいです。
【66911】Re:現在ブックを添付してメールするには
回答  keisuke  - 10/10/16(土) 16:13 -
引用なし
パスワード
   この当たりを参考にしてください。

***********************************
1.2の答えがあります。
Outlookを操作してメールを送りたいで検索してみてください。
参考になるサイトのアドレスはErrorになるようなので


strAddの値が表示されるはずですが、、、、
参照設定が出来ていないかも？？
Microsoft Office 11.0 Object Libraly
【66937】Re:現在ブックを添付してメールするには
質問  Masato/S  - 10/10/18(月) 21:45 -
引用なし
パスワード
   　内容を確認したが、Microsoft Office 11.0 Object Libralyを選択したことになっています。
　正しく動いていますので、特に大きな問題はありません。ただ宛先のところに
なにも反映されていないこと（件名は表示あり）は、解明したいです。
　何かヒントをいただけませんか？
【66938】Re:現在ブックを添付してメールするには
発言  neptune  - 10/10/18(月) 22:51 -
引用なし
パスワード
   ▼Masato/S さん：
>　内容を確認したが、Microsoft Office 11.0 Object Libralyを選択したことになっています。
>　正しく動いていますので、特に大きな問題はありません。ただ宛先のところに
>なにも反映されていないこと（件名は表示あり）は、解明したいです。
>　何かヒントをいただけませんか？
ht tp://msdn.microsoft.com/ja-jp/library/cc343887.aspx
にCreateOutlookMailというサンプルプロシージャが有ります。
その名のとおりのプロシージャです。古いですが、基本同じはずです。
【67059】Re:現在ブックを添付してメールするには
質問  Masato/S  - 10/10/29(金) 21:58 -
引用なし
パスワード
   ご回答いただき、

ありがとうございます。

URLをみましたが、私の質問「宛先が反映されない・・・」との関係は

まだわかっていません。
【67063】Re:現在ブックを添付してメールするには
発言  keisuke  - 10/10/29(金) 23:59 -
引用なし
パスワード
   しっかり、読みましたでしょうか？？？
書いてありますが、、、、
一度、実行してみてください。


Sub CreateOutlookMail()
　 Dim olApp　　　　　　　　　As Outlook.Application
　 Dim olMailMessage　　　　　As Outlook.MailItem
　 Dim olRecipient　　　　　　As Outlook.Recipient
　 Dim blnKnownRecipient　　　As Boolean
　
　 ' Outlook の新しいインスタンスを作成または現在のインスタンスを開きます。
　 Set olApp = New Outlook.Application
　 ' 新しいメッセージを作成します
　 Set olMailMessage = olApp.CreateItem(olMailItem)
　 ' メッセージの受信者に通知し、アドレスを解読して、
　 ' 送信または表示します。
　 With olMailMessage
　　　Set olRecipient = .Recipients.Add(InputBox("メッセージの受信者名を入力します", _
　　　　 "受信者名"))
　　　blnKnownRecipient = olRecipient.Resolve
　　　.Subject = "オートメーションでメールをテストする"
　　　.Body = "このメッセージはオートメーションを使用して Outlook を " _
　　　　 & "起動する VBA コードによって作成されました。"
　　　If blnKnownRecipient = True Then
　　　　 .Send
　　　Else
　　　　 .Display
　　　End If
　 End With
　 Set olMailMessage = Nothing
　 olApp.Quit
　 Set olApp = Nothing
End Sub
【67111】Re:現在ブックを添付してメールするには
お礼  Masato／Ｓ  - 10/11/4(木) 17:57 -
引用なし
パスワード
   keisukeさん

ヒントをいただき、

大変ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2593 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free