
エクセルからマクロを使用し「OUTLOOK」を立ち上げ、メール宛先、件名、本文が自動で入力起動出来るようにはなりました。本文のフォントサイズ、スタイル等変更したいのですがどうすれば良いでしょうか?
今の状態でマクロを実行すると、outlook本文は「メイリオ」の「12pt」になります。
これを「MS Pゴシック」の「11pt」にするには下記マクロをどのように書き換えればよろしいでしょうか?よろしくお願いします。
―ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Dim objOutlook As Object
Sub ●メール作成()
Dim tbl As Range
If Range("A1") <> "No." Then
MsgBox "【宛名】シートからアドイン→メール作成を押してください"
Exit Sub
End If
On Error GoTo myError
msgRow = Sheets("メッセージ").Cells(Rows.Count, 1).End(xlUp).Row
Set tbl = Sheets("メッセージ").Range("A2:E" & msgRow)
Set objOutlook = CreateObject("outlook.Application")
lstRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lstRow
If Range("G" & i) <> "" Then
With WorksheetFunction
aSubject = .VLookup(Range("G" & i), tbl, 2, False)
aBody = Range("F" & i) & vbCrLf & vbCrLf & .VLookup(Range("G" & i), tbl, 3, False) & vbCrLf & .VLookup(Range("G" & i), tbl, 4, False)
anAttachment = .VLookup(Range("G" & i), tbl, 5, False)
MakeMail Range("C" & i), Range("D" & i), Range("E" & i), aSubject, aBody, anAttachment
End With
End If
Next
Columns(7).Copy
Columns(9).Insert
Application.CutCopyMode = False
Range("I1") = Date
Exit Sub
myError:
If Err.Number = -2147024894 Then
MsgBox "添付ファイルのパスを見直してください", vbExclamation
Else
MsgBox "該当するメッセージが見つかりません。", vbExclamation
End If
End Sub
Sub MakeMail(aTo, aCc, aBcc, aSubject, aBody, anAttachment)
Set objMail = objOutlook.CreateItem(0)
objMail.To = aTo
objMail.Cc = aCc
objMail.Bcc = aBcc
objMail.Subject = aSubject
objMail.Body = aBody
If anAttachment <> "" Then
buf = Split(anAttachment, vbLf)
For i = 0 To UBound(buf)
If Len(buf(i)) > 0 Then
objMail.Attachments.Add buf(i)
End If
Next i
End If
'objMail.BodyFormat = 2
objMail.Display
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは
VBAからOutLookを操作したことがないので、検索してみただけですが…
通常、プレーンテキストのメールでは、内容は文章のみになるので、フォントや文字サイズの情報はメール自体に含まれないはずです。
(操作側の見た目は、ソフトのデフォルト表示設定に依存。)
フォントや文字サイズの情報をメールに含ませたいのであれば、HTML形式かリッチテキストで作成するしかないように思います。
(ご提示のコードにも、その形跡らしきものがコメントアウトされていますが…)
検索してみただけですが、リッチテキスト形式で直接設定するのはなかなか難しいみたいですね。
とりあえず、
◇HTML形式の場合(目次の6を参照)
http://www.fastclassinfo.com/entry/vba_outlook_s …
◇リッチテキスト形式の場合(結局、後で形式変換しているようです)
http://officevba.info/richtextmailpreparation/
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセルVBAでOutlookメールの書式を変える
Excel(エクセル)
-
VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本
Visual Basic(VBA)
-
outlook文字色付け/マーカーのVBAコード
その他(Microsoft Office)
-
-
4
Excel VBA メール作成について Excel D7セルをOutlookの本文(HTML)にしま
Visual Basic(VBA)
-
5
Excel VBA Outlookメール作成について
Excel(エクセル)
-
6
Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを
Visual Basic(VBA)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法
Visual Basic(VBA)
-
9
マクロ初心者です。 マクロで範囲選択したセルをOutlookのメールの本文に貼り付けたいのですがなか
Visual Basic(VBA)
-
10
ExcelVBAでOutlookにセル内容を送る
その他(プログラミング・Web制作)
-
11
Excel VBA メール作成について 下記についてどのように記述したらいいか、教えて頂けると幸いで
Visual Basic(VBA)
-
12
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
13
【Excel】 VBAを使って毎回名前が変わるファイルを添付してメール送信したい。
Excel(エクセル)
-
14
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
15
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
16
【Excel VBA】マクロで書き込んだセルのフォントが「MS Pゴシック」になってしまう。
Visual Basic(VBA)
-
17
Excel VBA メール作成について Excelで作った表を写真のハイパーリンクの後に 図形にして
Visual Basic(VBA)
-
18
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
19
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
20
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VB.NET2005 TextBox 高さ(Heig...
-
コンボボックス内の文字サイズ変更
-
VBAのフォント変更(エクセルか...
-
プロポーショナルフォントの文...
-
エディットボックスのフォント...
-
リソースエディタでスタティッ...
-
フォントの大きさ
-
枠内に文字列をぴったり収めるには
-
チェックボックスの文字サイズ...
-
JTableのヘッダー文字のサイズ変更
-
Msgboxで使用するフォントの指...
-
作成したアプリケーションの画...
-
[VC]リストビューで等幅フォント
-
static 文字が上に張り付いて・...
-
wordで分数打とうとするとフォ...
-
ハングル文字を入力するには、...
-
イラストレーターCS6が必ずフリ...
-
EDITBOXに関して
-
エクセルで作った新しいウイン...
-
グラフの交点の求め方(Excel)
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コンボボックス内の文字サイズ変更
-
VBAのフォント変更(エクセルか...
-
VB.NET2005 TextBox 高さ(Heig...
-
エディットボックスのフォント...
-
ドロップダウンリストのフォン...
-
リソースエディタでスタティッ...
-
文字色 エクリプス
-
コンボボックスの一部のアイテ...
-
JakaraPOI セル内部のフォント...
-
プロポーショナルフォントの文...
-
Macbook Word フォント色変更で...
-
VBA TEXTBOXテキストボックスの...
-
フォントごとの文字列の幅の取得
-
wordで分数打とうとするとフォ...
-
ワードでコントロールツールボ...
-
static 文字が上に張り付いて・...
-
C# のフォームデザイン&レイア...
-
リストコントロールの文字の大...
-
CSSでの大きさの単位について
-
リストコンロールの一行だけを...
おすすめ情報