私はテキスト領域を持っています。それは複数行のテキストを持ち、テキスト領域に入力されるとすべての書式を保持する出力が必要です。これはどうすればできますか？ここで私はテキスト領域を作成しています方法です：私は複数の行のテキストを持つテキスト領域を持っています
<table border="0" cellpadding="5" cellspacing="5" width="95%">
<tr>
<td colspan="2">
<b>Status: </b>
<textarea name="Text2" id="styled"></textarea>
</td>
</tr>
</table>
あなたが要求したとして<textarea>にテキストの書式を維持することはできません。
テキストに一部が存在する場合は、新しい行（基本的にテキストはラップされています）を維持することができます。 "wrap=Hard"を使用する必要があります。
https://www.w3schools.com/tags/att_textarea_wrap.asp
また、私は数字にできた<textarea>
にテキストから書式を保持に関する詳細な説明（もコメントに見える）がStackOverflowの答えを、参照してください。テキストエリアをテキストファイルにエクスポートし、データを追加してからを使用してインポートする方法fso.OpenTextFile（ "C：\ file.txt"、ForReading）.ReadAllを使用して書式設定する （html body pre） このようにすると、改行を保持してCDO.Messageを使用して情報を送信できます。
Const FOR_APPENDING = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTSO = objFSO.OpenTextFile("C:File.txt", FOR_APPENDING)
objTSO.WriteLine strDT & ":" & vbCrLf & Text2.value & vbCrLf
objTSO.Close()
Sub SendEmail(strSubject, strBody, strBody8, strFrom)
Const ForReading = 1
Dim fso, BodyText
Set fso = CreateObject("Scripting.FileSystemObject")
strMailbox = "Address<[email protected]>"
' E-Mail address being sent to
strSMTPServer = "SMTP Server"
' Primary SMTP relay server name
strSMTPPort = 25
' SMTP Port Number
Set objEmail = CreateObject("CDO.Message")
BodyText = fso.OpenTextFile("C:\file.txt",ForReading).ReadAll
With objEmail
.From = strFrom
.To = strMailbox
.Subject = strSubject
.HTMLBody = "<html><body><pre>" & strBody & "<BR>" & BodyText & "<BR>" &
strBody8 & "</pre></body></html>"
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) =
strSMTPServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
strSMTPPort
.Update
End With
.Send ' Send the message!
End With
Set objEmail = Nothing
出力は何ですか？どのような書式設定ですか？ –
私は、CDO.Messageを使用して送信している電子メールメッセージのテキスト出力を作成するために、そのテキストエリアに入力されたテキストを使用しています。 – Jason