2017-05-19 7 views
2

Outlookでマクロを作成するようにユーザーからリクエストを受け取りました。Outlook VBAを使用して電子メールのカーソルの配置とテキスト形式を指定する方法

彼の要件は、太字、ハイライト、イタリックの電子メールヘッダーを持つことでした。

この部分は達成できましたが、ヘッダーのすぐ下の電子メールの本文にカーソルがあり、通常の書式設定オプション(フォント、サイズ、色)を使用してテキストを入力できるようになりました。

現在、マクロが実行されると、カーソルは電子メールヘッダーの先頭で終了します。

カーソルをヘッダーの下の行に移動すると、テキストは太字でイタリック体になります。

ヘッダーが挿入された後にテキスト書式をリセットする方法はありますか?カーソルがヘッダーの下にくるように指定する方法はありますか?これは、我々がこれまでに出ているものです:

Sub Testmacro2() 

    Dim olApp As Outlook.Application, olEmail As Outlook.MailItem, signature As String 

    Set olApp = CreateObject("Outlook.Application") 
    Set olEmail = olApp.CreateItem(0) 
     With olEmail 
     .Display 
     End With 
      signature = olEmail.HTMLBody 
     With olEmail 
     .HTMLBody = "<HTML><BODY><span style='background:yellow;mso-highlight:yellow'><em><b><p style=font-size:14pt>Privileged & Confidential Attorney Client Communication & Work Product.</b></em><br></span></BODY></HTML>" & vbNewLine & signature 




    End With 
Set olEmail = Nothing 
Set olApp = Nothing 

End Sub 

答えて

0

あなたはInspector.WordEditorで作業する必要があるでしょうが、すなわちInspector.WordEditor.Application.SelectionWord.Documentオブジェクトのインスタンスを返します)。

インスペクタオブジェクトはMailItem.GetInspectorから取得できます。

+0

ありがとうございます。私はこれを試してみましょう。 – dutsey

関連する問題