![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
こんにちは。
送りたいメールの形は
数行の文章のあとに、表を貼り付け、また数行の文章という形式です。
Outlookメールでメールを立ち上げて
Comment1と2は文章ですのでエクセルのコラムを引っ張ってくるようにしているのですが、
Comment3部分に別のエクセルにある表をメタ貼りし、Comment4でまた文書を引っ張ってくるとさせたいのですが
Comment3部分の動きが出来ません。
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
'日付の設定
DMY = Range("b_date")
DM = Format(Range("b_date").Value, "mmdd")
Worksheets("mail").Activate
'Create Outlook object
Set OutlookApp = New Outlook.Application
'Get the data
Subj = Range("B69") & "_" & DM
EmailAddr = Range("B63")
CCAddr = Range("B66")
Comment1 = Range("H63").Value
Comment2 = Range("H65").Value
Comment3 = この辺りがわかりません
Comment4 =Range("H67").Value
'Compose message
Msg = "<font face=""Arial""><font size=2>"
Msg = Msg & Comment1 & "<BR><BR><BR>"
Msg = Msg & Comment2 & "<BR><BR><BR>"
Msg = Msg & Comment3 & "<BR><BR><BR>"
Msg = Comment4 & "<BR><BR><BR><BR>"
Msg = Msg & "Best regards," & "<BR><BR>"
Msg = Msg & "</font></font>"
'Create Mail Item
Set mItem = OutlookApp.CreateItem(olMailItem)
With mItem
.To = EmailAddr
.CC = CCAddr
.BCC = BCCAddr
.Subject = Subj
.HTMLBody = Msg
.Display
End With
End Sub
どなたかご存知ではないでしょうか?
毎回で申し訳ございませんが、どうぞ宜しくお願い致します。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは。
前回は、最後のレスが付けられなくなってしまいました。しばらく、アクセスは難しくなってしまいます。
ところで、そこまで出来てといいたいところなのですが、表に関しては、別のサブルーチンを設けないと出来ません。一度作れば簡単なのですが、今のところ、こちらも十分な時間が取れないので、きちんと作れる自信がありません。
ただ、しばらく締めないで、前のレスから読んでもらえれば、逆に、こういうものを得意な人がいます。夏で、みなさん不定期なアクセスになりがちです。たぶん、そういうコードを書く、特別な分野があるのだと思います。もともと、自社サーバーを使っている人たちは、こういうのが得意です。
一応、私のマクロの予想ですが、データは、配列にしておいて、そのデータの1次側、2時側の上限(Ubound)から、Excelで線を描くように、Table --BORDER で囲みを作ってあげます。
数字だけだったら、別に、スペースだけ(たぶん全角?)で済みますが、表(罫線付き)というと、そういう作業が必要です。
簡単にしてしまうなら、貼り付けのほうが早いです。
もし、レスを付ける方は、ここを読んでください。
http://oshiete1.goo.ne.jp/qa4246579.html
前のレス
>サーバーの中から外には出来ても、外から中には出来ないのではというのとは違い社内レベルです。
納得しました。やっぱりそうだと思います。
お礼が遅くなり申し訳ございません。
寝込んでしまいまして。。
ご教示ありがとうございます!
いろいろ探してみたのですが、やはりダメでした。。。
締め切って、もう一度質問を投稿してみます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本 1 2022/04/27 13:31
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Excel(エクセル) エクセルVBA Msgboxでの変数の活用 4 2023/07/23 08:33
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- PHP php ログイン 1 2022/11/01 00:24
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
受信メールの添付ファイル忘れ...
-
お祝い金を徴収するメールの書き方
-
失礼な文とは分からず、先生に...
-
一度聞いたかも知れないのをっ...
-
通帳口座番号 メールで送っても...
-
メールの書き方 保護者から先生へ
-
株式会社NSCと言う所から、現金...
-
送信しても『Mail System Error...
-
"***@***.ocn.ne.jp"の"@***"は...
-
送信エラーの際、CCには届い...
-
詐欺メールでしょうか?
-
URLをコピーしてメールにリ...
-
空メールって何も書かなくてい...
-
ソースネクストという会社の広...
-
文末にAll the best! 返信しな...
-
Winmail.dat ファイルが開けない
-
相手にメールを送信したら、 Ea...
-
iphoneからメールで写真を送付...
-
土日に大学教授にメールを送る...
-
windowsメールとOutlookメール...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
受信メールの添付ファイル忘れ...
-
お祝い金を徴収するメールの書き方
-
失礼な文とは分からず、先生に...
-
windowsメールとOutlookメール...
-
送信エラーの際、CCには届い...
-
URLをコピーしてメールにリ...
-
Winmail.dat ファイルが開けない
-
"***@***.ocn.ne.jp"の"@***"は...
-
メール送信すると以下のような...
-
株式会社NSCと言う所から、現金...
-
一度聞いたかも知れないのをっ...
-
通帳口座番号 メールで送っても...
-
iphoneからメールで写真を送付...
-
訳せる方お願いします!!
-
送信しても『Mail System Error...
-
メールの書き方 保護者から先生へ
-
OUTLOOK2016(「メッセージが変...
-
相手にメールを送信したら、 Ea...
-
既婚者の異性とメールするのは...
-
詐欺メールでしょうか?
おすすめ情報