マクロのメール作成について教えてください

質問

メール作成に関するマクロで教えて下さい。

下記のマクロで、件名と文章内の＃○○○の○○○の部分には
毎回違う3ケタの数字が入ります。
これを例えば、エクセルのセルA1に101と入力されていたら
件名と文章内の○○○の部分を101にした状態でメールを起動させたいです。

また最後の名前○○の部分には、セルA2にデータ入力規則でリストを作成し
選んだ名前を選択すると○○の部分が反映された状態でメールが起動するようにしたいです。

それと文章内の書体をＭＳ Ｐ明朝にするにはどうすればよいでしょうか？

教えて下さい。

Sub メールマクロ()
Dim oApp As Object
Dim objMAIL As Object
Dim strMOJI(1) As String
Dim n As Long

On Error Resume Next
Set oApp = GetObject(, "Outlook.Application")
On Error GoTo 0
If oApp Is Nothing Then
Set oApp = CreateObject("Outlook.Application")
oApp.GetNamespace("MAPI").GetDefaultFolder(6).display
End If

Set objMAIL = oApp.CreateItem(0)
strMOJI(0) = "【秘/Confidential】 " & vbCrLf & _
"テスト様" & vbCrLf & _
"CC.関係各位様" & vbCrLf & _
" " & vbCrLf & _
"いつもお世話になっております。" & vbCrLf & _
"#○○○ G1 G2の計測を行いました" & vbCrLf & _
"以上です。" & vbCrLf & _
"EMAX株式会社" & vbCrLf & _
"名前○○"
objMAIL.To = "E-Mail_Address_Here"
objMAIL.Subject = "#○○○ G1 G2 計測結果"
objMAIL.BodyFormat = 3 'リッチテキスト
objMAIL.Body = strMOJI(0)
objMAIL.display

Set objMAIL = Nothing
Set oApp = Nothing

End Sub

回答No.1

dogs_cats · ベストアンサー

エクセルでメールVBAを作成した事はありませんが、セルの値を参照するだけなら下記で出来ませんか？

"名前" & range("A2").value
objMAIL.Subject = "#" & range("a1").value & " G1 G2 計測結果"

お礼

返信がおそくなり大変申し訳ございませんでした。

教えて頂いたマクロで目的が果たせました。
書体の変更がわかりませんが、ネットで調べてもでてこないので
諦めたいと思います。

今回は誠に有難う御座いました。今後とも宜しくお願いします。