Userform Outlook VBA HTML Text Wrapping not working

Deadwil

New Member
Joined
Mar 4, 2019
Messages
2
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:

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
 

Some videos you may like

Excel Facts

Shade all formula cells
To shade all formula cells: Home, Find & Select, Formulas to select all formulas. Then apply a light fill color.

Deadwil

New Member
Joined
Mar 4, 2019
Messages
2
Well this is very awkward - I forgot to turn off HTML and I can't edit my post
 

Watch MrExcel Video

Forum statistics

Threads
1,114,084
Messages
5,545,870
Members
410,711
Latest member
Josh324
Top