Private Sub Command35_Click()
Dim strText As String
strText = "Hi,"
strText = strText & vbCrLf & vbCrLf & "Text1"
If checkbox1 = True Then
strText = strText & vbCrLf & vbCrLf & "Text2"
End If
If Check29 = True Then
strText = strText & vbNewLine & "Text3"
End If
If Check31 = True Then
strText = strText & vbNewLine & "Text4"
End If
DoCmd.SendObject acSendNoObject, "", actext, "[EMAIL="bruce.muscat@bendigoadelaide.com.au"]email at email.com[/EMAIL]", "", , "Subject1", strText
End Sub