I would like to format the text for my disclaimer to size 9.
Here is my private function for the email body.
Code:Private Function CreateEmail(ByVal aobjXmlInputDoc As XmlDocument, ByRef aobjSimpleType As Msc.Integration.CourtXml.Library.v4.SimpleType) As String Dim strOri As String = aobjXmlInputDoc.DocumentElement.SelectSingleNode("Case/Court/CourtNCIC").InnerText Dim strCounty As String = aobjSimpleType.GetCompanionEnumerationValueAssociatedValue("CourtLocationTextType", "CountyName", strOri, CourtXml.Library.v4.SimpleType.udtEnumTextCodeType.udtEnumTextCodeTypeCode, CourtXml.Library.v4.SimpleType.udtEnumTextCodeType.udtEnumTextCodeTypeText) Dim strEmail As String = _ "<!DOCTYPE html>" + vbCrLf + _ "<html>" + vbCrLf + _ "<head>" + vbCrLf + _ "<title>Service Information</title>" + vbCrLf + _ "</head>" + vbCrLf + _ "<body>" + vbCrLf + _ "<p><b>Do not reply to this email. This email account is not monitored and any reply will not be read.</b></p>" + vbCrLf + _ "<p></p>" + vbCrLf + _ "<p>Disclaimer: This is an official government communication. As the recipient, you are responsible for the lawful use of this information. This e-mail and any attachments are intended solely for the individual or agency to which they are addressed. </p>" + vbCrLf + _ "</body>" + vbCrLf + _ "</html>" Return strEmail End Function




Reply With Quote
