VBA - Send Excel Userform Data to Outlook Email

[kaemerso]

Hello All,

I want to send the entry from a userform to an email box. I have everything set up correctly. But the code is only sending the "entries" and not the labels, etc.

See below:[

CODE]Dim olapp As Outlook.Application
Set olapp = CreateObject("outlook.application")

Dim olmail As Outlook.MailItem
Set olmail = olapp.CreateItem(olMailItem)
On Error Resume Next
With olapp

olmail.To = "notifications.hov@gmail.com" & ";" & Me.ComboBox3 & "@gmail.com" & ";" & Me.ComboBox6 & "@gmail.com"
olmail.Subject = "Drawing/PL Rejection Notification"
olmail.Body = "Please see Feedback from Drawing/PL Submittal:" & vbCrLf & vbCrLf & Me.ComboBox1.Value & vbCrLf & Me.ComboBox2.Value & vbCrLf & Me.ComboBox3.Value & vbCrLf & Me.TextBox1.Value & vbclrf & Me.TextBox2.Value & vbCrLf & Me.ComboBox4.Value & vbCrLf & Me.ComboBox5.Value & vbCrLf & Me.TextBox3.Value & vbCrLf
olmail.Send
End With

Application.DisplayAlerts = False
erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row[/CODE]


How can I format the body better? I keep reading about HTML tags but Im not sure where to go with this.

Thank you.

 

[kaemerso]

This is it in quotes, sorry about that:

Dim olapp As Outlook.Application
 Set olapp = CreateObject("outlook.application")

    Dim olmail As Outlook.MailItem
    Set olmail = olapp.CreateItem(olMailItem)
 On Error Resume Next
    With olapp

    olmail.To = "notifications.hov@gmail.com" & ";" & Me.ComboBox3 & "@gmail.com" & ";" & Me.ComboBox6 & "@gmail.com"
    olmail.Subject = "Drawing/PL Rejection Notification"
    olmail.Body = "Please see Feedback from Drawing/PL Submittal:" & vbCrLf & vbCrLf & Me.ComboBox1.Value & vbCrLf & Me.ComboBox2.Value & vbCrLf & Me.ComboBox3.Value & vbCrLf & Me.TextBox1.Value & vbclrf & Me.TextBox2.Value & vbCrLf & Me.ComboBox4.Value & vbCrLf & Me.ComboBox5.Value & vbCrLf & Me.TextBox3.Value & vbCrLf
    olmail.Send
 End With

 Application.DisplayAlerts = False
 erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row