Excel VBA質問箱 IV

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

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


2580 / 13645 ツリー ←次へ | 前へ→

【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/S 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に依存するだけ、メール送信はかなり難しいかもしれない。やはりVBや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の環境を作ったら、動きます。

質問1:メール本文を載せることは可能でしょうか?
質問2:実行したら、メッセージ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/S  - 10/11/4(木) 17:57 -

引用なし
パスワード
   keisukeさん

ヒントをいただき、

大変ありがとうございました。

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