Hello Everyone
I have an excel userform which generates an email and populates it with information the user has inputted within the various textboxes.
The code works fine until the information within a textbox exceeds a certain length.
I understand there is a way to lock column sizes with HTML/CSS but thus far I have been unsuccessful in my attempts to overcome this problem.
Has anyone got any suggestions?
I have simplified my code a little as follows:
I have an excel userform which generates an email and populates it with information the user has inputted within the various textboxes.
The code works fine until the information within a textbox exceeds a certain length.
I understand there is a way to lock column sizes with HTML/CSS but thus far I have been unsuccessful in my attempts to overcome this problem.
Has anyone got any suggestions?
I have simplified my code a little as follows:
Code:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim OutApp As Object
Dim OutMail As Object
Dim signature As String
Dim strbody As String
Set OutApp = CreateObject("Outlook.<wbr>Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "<!DOCTYPE html><html>****** style=font-size:11pt;font-<wbr>family:Calibri>Example text </BODY></html>"
On Error Resume Next
With OutMail
.display
End With
signature = OutMail.HTMLBody
With OutMail
.to = "Example Email address"
.CC = ""
.BCC = ""
.Subject = "Example Title" & " - " & TextBox1
.HTMLBody = strbody & "<table style=height: 30px; width=600 table-layout: fixed>" & "<tr>" _
& "<td style='padding: 10px; border-style: solid; border-color: [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=ccc]#ccc[/URL] ; border-width: 1px 1px 0 0;'>" & "<strong>" & "Example Header:" & "</strong>" & "</td>" _
& "<td style='padding: 10px; border-style: solid; border-color: [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=ccc]#ccc[/URL] ; border-width: 1px 1px 0 0; word-wrap: break-word;'>" & TextBox1 & "</td>" & "</tr>" _
& "</tr>" & "</table>" & signature
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub