Email body via VBA

[gmazza76]

Good Afternoon,

I am able to email info from a range in a sheet from a copy and paste point, but I would like to make the email more readable. I have looked on line, but am having a bit of trouble with this

The code below puts all the information in the email but I would like to space this out by putting a line in between each so say complaint number shows on one line then a line free and so on like :-

A Complaint has been assigned to your reference: " & Me.ComplaintNo.Value

"This is a complaint for : " & Me.ComboBox5.Value

"Please deal ASAP"

Is this possible?

With Destwb
        .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
        On Error Resume Next
        With OutMail
            .From = "me"
            .To = MyEmail
            .CC = ""
            .BCC = "" 
            .Subject = "Notification for your work queue."
            .Body = "A Complaint has been assigned to your reference: " & Me.ComplaintNo.Value & Chr(10) & _
              "This is a complaint for : " & Me.ComboBox5.Value & Chr(10) &  "Revenue: " & Me.ComboBox3.Value & Chr(10) &  "Please deal ASAP" & Chr(10) & _
[code/]

thanks in advance 
Gavin

 

[Norie]

Gavin

Does the code you posted not work?

Using Chr(10), or perhaps vbCrLf, should add line returns.

 

[gmazza76]

I am getting the error "Expected: Line number or label or statement or end of statement" on the line below

.Subject = "Notification of Complaint Assigned to you."
            .Body = "A Complaint has been assigned to your reference: " & Me.ComplaintNo.Value & vbCrLf
             [COLOR=#ff0000] "This is a complaint for : [/COLOR]"& Me.ComboBox5.Value  & vbCrLf
              "Revenue: " & Me.ComboBox3.Value & Chr(10) & _
              "" & Chr(10) & _ "Please deal ASAP" & Chr(10)
[code/]

But I have managed to move down a line with no issues.

 

[Norie]

Think you are missing some line continuation characters, try this.

.Body = "A Complaint has been assigned to your reference: " & Me.ComplaintNo.Value & vbCrLf & _
        "This is a complaint for : " & Me.ComboBox5.Value & vbCrLf & _
        "Revenue: " & Me.ComboBox3.Value & Chr(10) & _
        "" & Chr(10) & _
        "Please deal ASAP" & Chr(10)

 

[gmazza76]

thanks,
I have just entered the code below and am getting "Compile error: Expected: expression" as the code goes red

            .Body = "A Complaint has been assigned to your reference: " & Me.ComplaintNo.Value & vbCrLf & _
            "This is a complaint for : " & Me.ComboBox5.Value & vbCrLf & _
[code/]

Do I need to enter "& vbCrLf & _" at the end of each code I put in?
Can I also put the code in to create a blank line between each as per below

[code]
.Body = "A Complaint has been assigned to your reference: " & Me.ComplaintNo.Value & vbCrLf & _
        "This is a complaint for : " & Me.ComboBox5.Value & vbCrLf & _
    vbCrLf & _
    "Next Line" & vbCrLf & _
[code/]
Sorry to be a pain, but its good to learn