Hi goodafternoon,




I have thecode below where I am trying to add another line after the Comments which iswith a checkbox. I want to add ‘ Job Type’as a heading
and the ComboBox6 Data if the Checkbox1 isclicked, can you help please?

[HTML]
Private SubCommandButton2_Click()


If TextBox9.Value = "" Then


MsgBox "Please enter'Comments'"


Exit Sub


Else





End If





Dim aOutlookAs Object


Dim aEmailAs Object


DimrngeAddresses As Range, rngeCell As Range, strRecipients As String





Set aOutlook= CreateObject("Outlook.Application")


Set aEmail =aOutlook.CreateItem(0)





aEmail.htmlBody = "Hi There,"& Chr(10) & vbCrLf & _


"<p>ApptNumber: " & Me.TextBox8.Value & Chr(10) & _


"<p><p>MPAN / MPRN: " & Me.TextBox7.Value& Chr(10) & _


"<p>Post Code:" & Me.TextBox3.Value & Chr(10) & _


"<p><p><font color=black>" &"<span style='background:yellow;mso-highlight:yellow'>" &"<b>Comments:</b>" & Me.TextBox9.Value & Chr(10)& "</font></span>" & _


If UserForm3.CheckBox1.Value = TrueThen


"<p><p>Job Type:" & Me.ComboBox6.Value & Chr(10) & vbCrLf & _


End If


"</b><p>Activity:" & Me.ComboBox3.Value & Chr(10) & _


"<p><p>Action: " & Me.ComboBox1.Value &Chr(10) & vbCrLf & _


"<p>Manythanks " & Chr(10)





aEmail.Recipients.Add(Worksheets("Email Links").Range("A2").Value)





aEmail.CC = ""


aEmail.BCC = ""


aEmail.Subject = "IN DAYREQUEST> PLEASE BOOK FOR TODAY" & " " &Worksheets("Handover").Range("K1").Value


aEmail.Display








End Sub
[/HTML]