Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10186 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【22952】ハイパーリンクを利用し､添付ファイルを挿入する方法2 みらい 05/3/8(火) 16:35 質問[未読]
【22957】Re:ハイパーリンクを利用し､添付ファイルを... かみちゃん 05/3/8(火) 20:39 発言[未読]
【22969】Re:ハイパーリンクを利用し､添付ファイルを... みらい 05/3/9(水) 9:05 発言[未読]
【22983】Re:ハイパーリンクを利用し､添付ファイルを... かみちゃん 05/3/9(水) 12:56 発言[未読]
【22992】Re:ハイパーリンクを利用し､添付ファイルを... みらい 05/3/9(水) 16:36 発言[未読]
【23000】Re:ハイパーリンクを利用し､添付ファイルを... G-Luck 05/3/9(水) 17:41 発言[未読]
【23130】Re:ハイパーリンクを利用し､添付ファイルを... みらい 05/3/14(月) 15:26 発言[未読]
【23135】Re:ハイパーリンクを利用し､添付ファイルを... G-Luck 05/3/14(月) 16:31 発言[未読]
【23247】Re:ハイパーリンクを利用し､添付ファイルを... みらい 05/3/17(木) 9:24 お礼[未読]
【22952】ハイパーリンクを利用し､添付ファイルを...
質問  みらい  - 05/3/8(火) 16:35 -
引用なし
パスワード
   もう1つ疑問が出てきたのですが､
添付ファイルとともに､メーラーの本文に決まった文章を入れる方法もあるのでしょうか?
先ほどの文とともに宜しくお願いをいたします｡
【22957】Re:ハイパーリンクを利用し､添付ファイル...
発言  かみちゃん  - 05/3/8(火) 20:39 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>ハイパーリンクを利用して､現在作業中のブックを添付ファイルとして貼付､
>メールする方法について教えてください。
>添付ファイルとともに､メーラーの本文に決まった文章を入れる方法もあるのでしょうか?

Hyperlinksを使う方法ではありませんが、
SMTPサーバー名があらかじめわかっていることが前提ですが、BSMTP.DLLが使えると思います。
次のURLにExcelのサンプルがあります。
http://www.hi-ho.ne.jp/babaq/vbtips.html

※ご質問を追加されるのであれば、元発言に返信という形で追加していただけれ
　ば、と思います。
【22969】Re:ハイパーリンクを利用し､添付ファイル...
発言  みらい  - 05/3/9(水) 9:05 -
引用なし
パスワード
   かみちゃんさん
当方の不手際申し訳ありません｡

会社のpcなのでSMTP等はAdmin権限がないと見れない仕組みになっているそうです｡

あのあと､自分なりにやってみて､簡単なマクロですが､以下のような形にしたら

Application.Dialogs(xlDialogSendMail).Show

メーラー（アウトルック)が立ち上がり､現在作業中のファイルが添付されました｡
これに､送信先のアドレスと､件名､本文を入力する方法はありますか?

どうか､宜しくお願いします｡
【22983】Re:ハイパーリンクを利用し､添付ファイル...
発言  かみちゃん  - 05/3/9(水) 12:56 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>メーラー（アウトルック)が立ち上がり､現在作業中のファイルが添付されました｡
>これに､送信先のアドレスと､件名､本文を入力する方法はありますか?

普段、BSMTP.DLLを使用しているので、よく知りませんが
　Application.Dialogs(xlDialogSendMail).Show "メールアドレス", "メール件名"
でできようです。ただし、本文の設定方法はなさそうです。

>会社のpcなのでSMTP等はAdmin権限がないと見れない仕組みになっているそうです｡

Outlookは、Microsoft Outlook200x か Outlook Expressのどちらなのでしょうか？
いずれにしても、メーラーを設定するときに、SMTPサーバーとPOPサーバーは設定
しないといけないはずですので、その設定は、各々の権限で設定しているはずな
ですので、割と簡単にわかると思うのですが、会社のPCということでしたら無理
にBSMTP.DLL（フリーコンポーネントですが）の導入はおすすめしません。

あと、せっかくですから、もうひとつ別の方法を紹介させていただきます。
CDO（Microsoft Collaboration Data Objects）でメール送信
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_800_080.html
【22992】Re:ハイパーリンクを利用し､添付ファイル...
発言  みらい  - 05/3/9(水) 16:36 -
引用なし
パスワード
   かみちゃんさん

　ありがとうございます｡

　先ほどのマクロで本文（いつも決まった定型文)の挿入はむずかしいでしょうか?

Application.Dialogs(xlDialogSendMail).Show "アドレス", "件名","本文"

とやってみましたが､うまくいきません｡

　また､私の使っているのはアウトルック２０００です｡

宜しくお願いします｡
【23000】Re:ハイパーリンクを利用し､添付ファイル...
発言  G-Luck  - 05/3/9(水) 17:41 -
引用なし
パスワード
   ▼みらい さん：

Outlook 2000であるなら、OutLookのVBAを利用するような形で、
Excelの標準モジュールに書いています。

Miscosoft Outlook 11.0 Object Library
みたいなのを参照設定してください。
実験はしていませんので、あしからず。

'以下コード
Sub myOutLook()
　　Dim myOl As Outlook.Application
　　Dim myMail As MailItem
　　
　　On Error Resume Next
　　　　Set myOl = GetObject(, "OutLook.Application")
　　　　If myOl Is Nothing Then
　　　　　　Set myOl = CreateObject("OutLook.Application")
　　　　End If
　　On Error GoTo 0
　　
　　If myOl Is Nothing Then Exit Sub
　　
　　myOl.GetNamespace("MAPI").GetDefaultFolder(olFolderOutbox).Display
　　Set myMail = myOl.CreateItem(olMailItem)
　　With myMail
　　　　.To = "宛先"
　　　　.CC = "コピー"
　　　　.BCC = "カーボンコピー"
　　　　.Subject = "表題"
　　　　.Body = "本文"
　　　　.Attachments.Add "C:\test.doc"
　　　　.Display
　　End With
　　
　　SendKeys "%s~", True
End Sub
【23130】Re:ハイパーリンクを利用し､添付ファイル...
発言  みらい  - 05/3/14(月) 15:26 -
引用なし
パスワード
   ▼G-Luck さん：

　お返事遅くなりましたが､以下のような形に成りました｡
　最後に､
　1.この形で添付ファイルをつけると添付ファイルの位置が安定しません｡
　　最悪なときは､本文の間に入り､本文が読みにくくなります｡
　2.自動送信させるために､　'myitem.send　をいれましたが
　　これを使うと添付ファイルがはいりません｡

　1.と2.を解消する、何か良い方法がありますか?
　
Sub 送る()
'
　　　Set myOutLook = CreateObject("outlook.application")
　　　Set myitem = myOutLook.CreateItem(olmailItem)
　　　　'OutLookを起動します｡
　　　　
　　　　myitem.To = "アドレス"
　　　　myitem.Subject = "件名"
　　　　myitem.Body = "本文"
　　　　myitem.Display
　　　　'myitem.send
　　　　　
　　　　Set MyAttachments = myitem.Attachments
　　　　MyAttachments.Add "ﾌｧｲﾙの指定", 1, 1, "ﾌｧｲﾙの表示名"
　　　
　　　　 Set MyAttachments = myitem.Attachments
　　　　Set myOutLook = Nothing: Set myitem = Nothing
　
End Sub
【23135】Re:ハイパーリンクを利用し､添付ファイル...
発言  G-Luck  - 05/3/14(月) 16:31 -
引用なし
パスワード
   ▼みらい さん：

>　1.この形で添付ファイルをつけると添付ファイルの位置が安定しません｡
>　　最悪なときは､本文の間に入り､本文が読みにくくなります｡
>　2.自動送信させるために､　'myitem.send　をいれましたが
>　　これを使うと添付ファイルがはいりません｡

Sendの位置(下記)ということではなくてですよね。
申し訳ありませんが、私の環境では実験が出来ません。
他に、ご存知の方がいましたら、よろしくお願いします。

>Sub 送る()
>'
>　　　Set myOutLook = CreateObject("outlook.application")
>　　　Set myitem = myOutLook.CreateItem(olmailItem)
>　　　　'OutLookを起動します｡
>　　　　
>　　　　myitem.To = "アドレス"
>　　　　myitem.Subject = "件名"
>　　　　myitem.Body = "本文"
>　　　　myitem.Display
>　　　　'myitem.send
>　　　　　
'　　　　Set MyAttachments = myitem.Attachments
'　　　　MyAttachments.Add "ﾌｧｲﾙの指定", 1, 1, "ﾌｧｲﾙの表示名"
　　　　 myitem.Attachments .Add "ﾌｧｲﾙの指定", 1, 1, "ﾌｧｲﾙの表示名"
　　　　 myitem.send
>　　　　 Set MyAttachments = myitem.Attachments
>　　　　Set myOutLook = Nothing: Set myitem = Nothing
>　
>End Sub
【23247】Re:ハイパーリンクを利用し､添付ファイル...
お礼  みらい  - 05/3/17(木) 9:24 -
引用なし
パスワード
   メールをおくることができました｡
ご協力いただいた､お二人にはとても感謝しております｡

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