0
Outlook Professional Plus 2010を使用していて、フォントの色を設定しようとしています。WordのwdColorRedを使用してOutlookメールテキストに色を適用します。
誰かが手がかりを与えることができますか?
Sub InsertText()
Dim sText As String
sText = "Myname" + Format(Now(), "mm/dd/yyyy") + ":"
On Error GoTo ErrHandler
If TypeName(ActiveWindow) = "Inspector" Then
If ActiveInspector.IsWordMail And ActiveInspector.EditorType = olEditorWord Then
Set oRng = ActiveInspector.WordEditor.Application.Selection.Range
With oRng
.Text = sText
.Font.Color = wdColorRed
.Font.Size = 11
.Collapse wdCollapseEnd
.Select
End With
'ActiveInspector.WordEditor.Application.Selection.TypeText sText
End If
End If
Exit Sub
ErrHandler:
Beep
End Sub
.. ..オフィスVBAのオブジェクトは製品によって制限されている知らなかった私のために働いた私はあなたのコード - に何か問題がエラーを取得している表示されないのですか? - 「on error goto」を削除し、ActiveExplorerまたはactivewindowでも動作していることをテストしてください。 – 0m3r
@ 0m3r Outlookは単語の列挙型を認識しません。ユーザーはRGB(255,0,0)またはOutlook.OlColor.olColorRed – Sorceri
を使用できますが、OPコードを見ている可能性があります。彼はすでに単語に設定されています。 – 0m3r