Outlookのメールを送信するマクロ

Question

お世話になっております。

Microsoft　Outlook2003使用で
メール送信のマクロを見様見真似で作ってみたのですが、本文部分がうまくいきません（Best　regardsしか表示されません）。
どうすれば正しく反映されるでしょうか？

シートのB1にToアドレスを記入していてTo_addressと名前付
以下、Cc_addressとSubjectも同様にしています。
本文の文章は何行かあり、途中で空白行も入れたいのですが、そこまでまだ手がつけられていません。
本文の文章が3行あるとすると、このマクロではComment1、Comment2、Comment3と名前付しています。

Sub SendEmail()
    
  Dim OlApp As Outlook.Application
  Dim mItem As Outlook.MailItem
  
  Dim cell As Range
  Dim Subj As String
  Dim EmailAddr As String
  Dim Recipient As String
  Dim Msg As String
  Dim Message As String
  Dim Sender As String
  Dim Comments As String
  Dim Comments2 As String
  Dim report As String
    
  Worksheets("Sheet1").Activate
  
 'Create Outlook object
  　Set OutlookApp = New Outlook.Application 
 'Get the data
      Subj = Range("Subject")
      EmailAddr = Range("To_address")
      CCAddr = Range("Cc_address")
      Body = Range("Comment1") & ("Comment2") & ("Comment3")
           
'Compose message
      Msg = Msg & Comment1 & vbCrLf & vbCrLf
      Msg = Msg & Comment2 & vbCrLf & vbCrLf
      Msg = Msg & "Best regards," & vbCrLf & vbCrLf
  'Create Mail Item
      Set mItem = OutlookApp.CreateItem(olMailItem)
      With mItem
        .To = EmailAddr
        .CC = CCAddr
        .BCC = BCCAddr
        .Subject = Subj
        .Body = Msg
        .Display
        
      End With
   End Sub

宜しくお願い致します。

Wendy02 · Accepted Answer

こんにちは。＞Msg = Msg & Comment2 = "
" & " " 落ち着いて!　　　　　　　　　　　　　　　「= 」が入ると、False になります。 'Compose message Msg = "" Msg = Msg & Comment1 & "

" Msg = Msg & Comment2 & "goole検索 " Msg = Msg & Comment3 & "

" Msg = Msg & Comment4 & "

" Msg = Msg & "Best regards," & "

" Msg = Msg & "" 　"goole検索 " 　　　　　　　　　　　　↑　　　　　　　　　　　　↑ 　　　　　　　リンク先アドレス　　　　　リンク名　(表示はずれるかもしれません）

Wendy02 · Answer

こんにちは。

>出来ました！！
>アドレスをテキスト形式で定義し直して

そうですね。そのほうが、コードでごちゃごちゃ書くよりも、確かです。

出来たそうで、良かったですが、こちらから、少しお聞きしたいのですが。
実は、こちらは、そうしたシステムを構築する話を聞かれたのですが、管理する側の問題もあって、やめておいたらと言ってしまったのです。

実は、私は、SharePointは、使ったことがありません。サーバー自体にセキュリティがある限りは、直ハイパーリンクを書いても、サーバーの中から外には出来ても、外から中には出来ないのではありませんか。試したことがないので、これに関しては、良く分かりません。

Wendy02 · Answer

こんばんは。 >リンクではなく文章に。。。文章が対象とされてしまうということですね。 >Msg = Msg & Comment3 &"「表示する内容」"&"

" 「表示する内容(TextToDisplay)」ハイパーリンクで表示されるテキスト--が必要ですね。[......] いらない場合は、同じ内容のアドレスとか。なお、作成画面だけでは、Outlook の場合は、セキュリティが働いて、ハイパーリンクが成功しているのか分からないかもしれませんが、こちらで、実際の送信・受信して、ハイパーリンクが成功しているか確認していますから、まず間違いないです。それと、 #3で書いた、「VB型で作る方法は、他の人の方法も、だいたい同じようです。」というのは、実は、有名なコンピュータの会社が書いていた、実際のコードを参考にしていますので、作り方自体は間違いはないはずです。なお、Outlook VBAのマニュアルは、かなり値段の高いものですし、内容も慣れないせいか、かなり難しいです。VBAも、Access, Excel 以外は、なかなか手の届かない世界だと思います。私は、Office VBAに関わり過ぎて、一体、何に時間を費やしているのだろう、と思うことがあります。マニュアルも、Developer クラスのものは高い割には、そんなに真剣に読んでいません。いずれ、こういうものは、他に変わる日も近いと思うと、集中できません。

Wendy02 · Answer

こんにちは。例えば、 CommentAD = "
" & "goole検索 " HyperLink は、こんなものを、Comment の中に入れてやれば良いわけです。VB型で作る方法は、他の人の方法も、だいたい同じようです。コードだけをみると、少し分かりにくいですね。

Wendy02 · Answer

こんにちは。 >メールのフォントをArialにしたい場合は設定はなんと書けばいいのでしょうか？前回の、テキスト形式のメールには、基本的には、フォントの種類というものが存在しないので、相手の設定まかせですが、こちらでフォントの種類の指定が必要なら、HTML形式ファイルにしないといけません。そこで以下の部分は変わります。'Arial' は、Windows のデフォルトのフォントの種類で、もっとも確実なフォントの種類ですね。フォントファイルが入っていなくても表示するだったと思います。フォントサイズは、2 =>10, 3 =>12 という大きさになります。 'Compose message Msg = "" Msg = Msg & Comment1 & "

" Msg = Msg & Comment2 & "

" Msg = Msg & Comment3 & "

" Msg = Msg & Comment4 & "

" Msg = Msg & "Best regards," & "

" Msg = Msg & "" 'Create Mail Item Set mItem = OutlookApp.CreateItem(olMailItem) With mItem .To = EmailAddr .CC = CCAddr .BCC = BCCAddr .Subject = Subj .HTMLBody = Msg 'ここを変える .Display End With

Wendy02 · Answer

こんばんは。

この行がヘンです。
>Body = Range("Comment1") & ("Comment2") & ("Comment3")

Comment1 = Range("Comment1").Value
Comment2 = Range("Comment2").Value
Comment3 = Range("Comment3").Value
としておいて、

Msg = Msg & Comment1 & vbCrLf & vbCrLf
Msg = Msg & Comment2 & vbCrLf & vbCrLf
Msg = Msg & Comment3 & vbCrLf & vbCrLf
Msg = Msg & "Best regards," & vbCrLf & vbCrLf

とすればよいと思います。

Body という変数はいらないです。(Body という変数は予約語としてバッティングしませんが、こうした変数名は使わないほうがよいです。）

それと、一般的に、Nameオブジェクトの名前－定義－登録は、VBAでは、ワークシートから、引っ張って使わないほうがよいです。トラブル発生の元になります。名前－定義は、一見、固定のように見えますが、いくつかの条件が重なると、移動してしまいます。一回トラブると、さっぱりエラーの原因が読めなくなります。

明示的に、Range("A1") などとしたほうがよいです。ここの掲示板でいろんなトラブルを見てきて言っているのですが、いくら私が言っても、初級レベルの人ですと、耳を貸さない人がほとんどですが、注意だけは与えておきます。説明すると、難しくなります。

Outlookのメールを送信するマクロ

こんにちは。

こんにちは。

この回答への補足

こんばんは。

この回答への補足

こんにちは。

こんにちは。

こんばんは。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング