excel-vba：太字フォントを文字列テキストの行に割り当てます。

私は、いくつかの行のテキストを含む文字列要素を持っています。しかし、この文字列をOutlook本体のテキストとして使用すると、特定の行に太字のフォントのような書式はありません。私はこの文字列をとり、特定の行に太字のフォントを適用したいと思います（forループを使ってシンボル "@"を含むすべてのものなど）。excel-vba：太字フォントを文字列テキストの行に割り当てます。

電子メールの本文として文字列を組み込む前に、これを自分のコードに実装するにはどうすればよいですか？私はそれから新しいオブジェクトを作成し、代わりに電子メールの本文にそれを取得する必要がありますね。あなたが適切にフォーマットされたHTMLテキストへのHtmlBodyプロパティを設定する必要が

Sub Send_Email() 
Dim OutApp As Object 
Dim OutMail As Object 

Application.ScreenUpdating = False 
Set OutApp = CreateObject("Outlook.Application") 
OutApp.Session.Logon 
Dim iFile As Integer 
Dim strVar As String 'Pre-definition of the input variable 

iFile = FreeFile 

Open "FILE_PATH" For Input As #iFile 
strVar = Input(LOF(iFile), iFile) 'Definition of the input varibale 
Close #iFile 

Set OutMail = OutApp.CreateItem(0) 
On Error Resume Next 

With OutMail 
.To = "" 
.BCC = "" 
.Subject = ""  
.BodyFormat = olFormatRichText 
.Body = strVar 'Creation of the e-mail text body 
.Display 'Or use .Send 
End With 
On Error GoTo 0 

End Sub

出典

2017-09-20 Pascal Stefan Buehrig

WordEditorを使用してテキストを操作することをお勧めします。 https://msdn.microsoft.com/en-us/library/dd492012(v=office.12).aspx – niton

：それはそれで「@」が含まれている場合

strvar = "<html><body>some <b>bold</b> text<br>and <i>italic</i> too</body></html>" 
... 
.HTMLBody = strVar

出典

2017-09-20 22:00:12

よく私のstrVarは既にテキスト部分で構成されています。私は文字列を自分で書くのではなく、太字を割り当てたい。文字列テキストはrtfファイルによって生成されます –

RTFファイルの場合は、RtfBodyプロパティを設定しませんか？ –

出力が同じになる、HTMLが大胆なフォントを保持する場合、私はちょうど試みた –

はここでアクティブセルの太字の文字列へのコードです。あなたはそれが必要なものを理解する必要がありますが、これはあなたを始めるために役立つはずです。これは現時点でアクティブなセルでのみ機能します。

If ActiveCell.Value Like "*@*" Then 
    ActiveCell.Font.Bold = True 
End If

出典

2017-09-20 22:06:34 DaBeau96

ActiveCellのような文字列を作成するにはどうすればよいですか？それは100万ドルの質問 –

私はそれを大胆にそれを大胆な文字列を貼り付けるだろう – DaBeau96

電子メールまたは本文のテキストになるだろう "@"とこの文字列ですか？ – DaBeau96

excel-vba：太字フォントを文字列テキストの行に割り当てます。

答えて

関連する問題