Outlook2003でメール本文の一部を色付けする方法
- VBAを使用してOutlook2003でメールの本文の一部に色を付ける方法を教えてください。
- 上記のVBAコードを使用してOutlook2003でメールを作成するマクロを組むことができますが、一部の文字に色をつける方法を知りたいです。
- 赤色の文字をOutlook2003のメール本文に表示させるためには、どのようなコードを記述すれば良いですか。
- ベストアンサー
outlook2003 本文の一部に色を付けたい。
vbaでメールを作成するマクロは組めたのですが 一部の文字に色をつける方法がわかりません。 Sub test() Dim acoutlook As Outlook.Application Dim acmail As MailItem Set acoutlook = GetObject(, "outlook.Application") Set acmail = acoutlook.CreateItem(olMailItem) With acmail .To = "aaaa@com" .Subject = "件名" .Body = "赤です。よろしくお願いします。" .Display End With End Sub 上のコードの「赤」という部分を赤色にするにはどうすればいいでしょうか。 ちなみにこれはアクセスから起動しています。 よろしくお願いします。
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
.Body = "赤です。よろしくお願いします。" の行を .BodyFormat = olFormatHTML .HTMLBody = "<font color=""#FF0000"">赤</font>です。よろしくお願いします。" に差し替えてお試しください。
関連するQ&A
- アクセスからアウトルックでメールを送りたい
アクセスからアウトルックでメールを送るために調べたのですが 新しいメッセージを作ってメールを送信するところまではできたのですが 送信ボタンを押下しても、どうやらアウトルックが開いてないと送信できないことがわかりました。 アウトルックは常に立ち上げていません。 なので下記のコードに、アウトルックを立ち上げるコードを入れたのですが わからないので教えていただけますか？ Sub メール送信() Dim OlApp As Outlook.Application Dim mItem As Outlook.MailItem Set OlApp = New Outlook.Application Set mItem = OlApp.CreateItem(olMailItem) With mItem .To = "○○@docomo.ne.jp" .Body = "test" .display End With End Sub アウトルックのバージョンは２００７です。ご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 初心者ですが、Excelファイル(AAA.xls)の、A1セルの情報を
初心者ですが、Excelファイル(AAA.xls)の、A1セルの情報を Outlookの本文に入力したいと思っています。 そこで、下記プログラムを組んだのですが、間違いだらけのようで 起動しません。どなたか教えていただけませんか？ Sub メール自動送信() Dim my01App As Outlook.Application Dim mymail As Outlook.MailItem Dim body As String Set my01App = CreateObject("Outlook.Application") Set tgtdb = CreateObject("Excel.Application") Set mymail = my01App.CreateItem(olMailItem) With mymail mymail.body = "C:\Users\tomohide\Desktop\AAAA.xls".cells(1,1) End With mymail.Display End Sub
- 締切済み
- Visual Basic
- アウトルックｖｂａ 差出人を指定したい
vbaでメールを送信したいのですが、 アウトルックに二つのアカウントを登録しています。 その時 Sub メール作成() Dim OlApp As Outlook.Application Dim mItem As Outlook.MailItem Set OlApp = New Outlook.Application Set mItem = OlApp.CreateItem(olMailItem) With mItem .To = "test2@docomo.ne.jp" .Subject = "メモ" .Display End With End Sub は、問題なくできるのですが、 差出人（送信者）の部分をどうすればいいかわからないです。 差出人（送信者）の部分とは、画像の部分です。 .Sender = "test@.co.jp" にすると "test@.co.jp"が、コンパイルエラー 型が一致しません。になります。 ヘルプを見ると、 MailItem の送信元のアカウントのユーザーに対応する AddressEntry オブジェクトを取得または設定します。 と書いてあります。 何を言ってるかよくわかりませんが、差出人（送信者）の指定ではないようです。 なので、 .SenderEmailAddress = "test@.co.jp" にしてみましたが、 値の取得のみ可能とのことなので、エラーになりました。 どうやって差出人の指定をすればいいのでしょうか？ バージョンは２０１０です。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロがうまくいきません！
office2000を使用してます。 Excelでボタンをクリックするのみであらかじめ作られたメッセージがメールで送信されるマクロを作成中です。 Private Sub CommandButton2_Click() Dim OLApp As Outlook.Application Dim mItem As Outlook.MailItem Set OLApp = CreateObject("Outlook.Application.9") Set mItem = OLApp.CreateItem(olMailItem) With mItem .Recipients.Add("abcd@abcd.co.jp").Type = olTo .Subject = "明日の件" .BodyFormat = olFormatPlain .Body = "明日、久しぶりに会えるのを" & _ "楽しみにしています。" & vbCr & _ "それじゃ。" .Send End With Set mItem = Nothing Set OLApp = Nothing End Sub このように作成したのですがうまくいきません。 エラーで「オブジェクトは、このプロパティまたはメソッドをサポートしていません」と出ます。参照設定も行ったのですが、どうしてでしょうか？どなたかお願いします。
- ベストアンサー
- オフィス系ソフト
- コンパイルエラーです。 vba
エクセルvbaからメールを生成したいのですが New Outlook.Application の部分でエラーになります。 コンパイルエラーです。 Outlookに参照設定せずに、Objectで宣言しているのが原因だと思いますが、 参照設定せずに、メールを立ち上げるにはどうすればいいですか？ Sub Sample() Dim OlApp As Object Dim mItem As Object Set OlApp = New Outlook.Application Set mItem = OlApp.CreateItem(olMailItem) With mItem .To = "test@yahoo.co.jp" .Body = "test" .display End With End Sub
- ベストアンサー
- オフィス系ソフト
- VBAでエクセルの文をメールに転記
当方エクセル2016使用しています。 エクセルのVBAで、outlookのメールを自動作成したいです。 エクセルの E2に宛先 E3に件名 E4～E6に本文が入っており、 下記VBAでoutlookに各データが入る様にはできました。 しかしエクセルでは文字のサイズや色が異なっているものが、 outlook本文に反映されません。 （1行単位だったり、文字単位だったりでサイズや色が異なる） エクセルに表示されているそのままを outlook本文に表示させるにはどうしたら良いでしょうか。 ******************************** Sub Macro1() Dim toaddress As String Dim subject As String Dim mailbody As String Dim outlookObj As outlook.Application Dim mailItemObj As outlook.mailItem toaddress = Range("E2").Value subject = Range("E3").Value mailbody = Range("E4").Value mailbody = mailbody & vbCrLf & Range("E5").Value mailbody = mailbody & vbCrLf & Range("E6").Value Set outlookObj = CreateObject("Outlook.Application") Set mailItemObj = outlookObj.CreateItem(olMailItem) mailItemObj.BodyFormat = olFormatHTML mailItemObj.To = toaddress mailItemObj.subject = subject mailItemObj.body = mailbody mailItemObj.display Set outlookObj = Nothing Set mailItemObj = Nothing End Sub
- ベストアンサー
- Visual Basic
- AccessからOutlookを立上げファイル添付で自動メールしたいのですが
以下のようなプログラムでファイルを添付して自動的にメール送信したいと思いました。しかし、.Attachments.Add Me![Attachment]のところで、「オブジェクトは、このプロパティーまたはメソッドは、サポートしていません。」というエラーでうまくいきません。Attachmentsで点を打つとAddが表示され、メンバーとして存在しているのになぜエラーになるのでしょうか？このエラーを回避する方法を教えて頂けないでしょうか？WinXP Professionalで、Access2003を使用しております。 Dim appOutlook As Outlook.Application Dim objMailItem As Outlook.MailItem Set appOutlook = CreateObject("Outlook.Application") Set objMailItem = appOutlook.CreateItem(olMailItem) ... With objMailItem .To = Me![宛先] .CC = Me![CC先] .Subject = Me![件名] .Attachments.Add Me![Attachment] .Body = Me![内容] .Display .Send End With appOutlook.Quit Set objMailItem = Nothing Set appOutlook = Nothing
- 締切済み
- その他MS Office製品
- Outlookのメールを送信するマクロ
お世話になっております。 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 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでOutlookメールの書式を変える
エクセル2010です。 下記のようなコードでOutlookメールを作成したとき、たとえば "ABC株式会社" だけを赤字で太文字にするにはどう書けばよいのでしょうか？ Sub TEST001() Dim oApp As Object Dim objMAIL As Object Dim strMOJI(1) As String On Error Resume Next Set oApp = GetObject(, "Outlook.Application") On Error GoTo 0 If oApp Is Nothing Then Set oApp = CreateObject("Outlook.Application") End If Set objMAIL = oApp.CreateItem(0) strMOJI(0) = "こんにちは！" & vbCrLf & _ "色付けテストです。" & vbCrLf & _ "よろしくおねがいします。" & vbCrLf strMOJI(1) = vbCrLf & _ "以上です。" & vbCrLf & _ "ABC株式会社" & vbCrLf & _ "emaxemax" objMAIL.To = "xxxx@xxx.co.jp" objMAIL.CC = "yyyy@xxx.co.jp" objMAIL.Subject = "テスト" objMAIL.Body = strMOJI(0) & strMOJI(1) objMAIL.Display End Sub
- ベストアンサー
- Excel（エクセル）
- エクセルをアクティブにしたい
エクセルとアウトルックを立ち上げた状態でエクセルのシートにコマンドボタンを設置して、 ***************************************************** Private Sub CommandButton1_Click() '参照設定：Microsoft Outlook ○.○ Object Library Dim ObjOut As Outlook.Application Dim OutMail As MailItem Dim myNaSp As Namespace Dim FolderName As String Dim rc As Long Set ObjOut = GetObject(, "OutLook.Application") Set OutMail = ObjOut.CreateItem(olMailItem) Set myNaSp = GetNamespace("MAPI") FolderName = myNaSp.PickFolder MsgBox "「" & FolderName & "」が選択されました。" rc = Shell("C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE" & ActiveWorkbook.FullName, 1) AppActivate rc Set myNaSp = Nothing End Sub ***************************************************** をすると、アウトルックの「フォルダー選択」ダイアログが開くのですが、 フォルダを選択した後に、エクセル画面に戻りません。 手作業でエクセル画面に戻す（アクティブ）にするのですが Shellの部分で、「ファイルが見つかりません」となります。 rc = Shell("C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE", 1) に変更すると、エラーにはならないのですが、 新規のブックが立ち上がってしまいます。 エクセルのシートのボタンを押したら、アウトルックのフォルダ選択画面を出して 選択後、元のエクセルシートをアクティブにさせたいのですがどうすればいいでしょうか？ Dim xlApp As Object Set xlApp = CreateObject("Excel.Application") AppActivate xlApp を追加してもダメでした。 ご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
できました！ HTMLタグを使うのですね！ タグは今勉強中なので色々やってみようと思います。 有難うございました。