Compile Error: Syntax error

[09conor]

Macro that generates emails with for a number of different people with predefined text. Error when trying to run.

'EMAIL TEXT
With OutMail
strbody = "Good " & g01 & " " & Range("C" & ActiveCell.Row).Value & "," & vbNewLine & vbNewLine & _
"<br/>" & _
vbNewLine & _
"Please find attached your March 2017 Flash Statistics " &(Range("I3")& "." & vbNewLine & _
vbNewLine & _
"<br/>" & _
"This indicates your productivity and SLA, month to date, in advance of month end." & vbNewLine & _
vbNewLine & _
"<br/>" & _
"Where the current levels are below 4.75 and 80% respectively, values are shown in red." & vbNewLine & _
vbNewLine & _
"<br/>" & _
"If either your productivity or SLA or both are below the required levels at month end, unfortunately you will not qualify for any incentive payment and you should either complete additional points per day or improve same day sign off from now until month end to exceed these levels." & vbNewLine & vbNewLine & _
"<br/>" & _
"This document is password protected with your SRN (Payroll Number)." & vbNewLine & _
vbNewLine & _
"<br/>" & _
"If you have any queries, please contact the Incentives team by replying to this email, dddd@ddd.co.uk. " & vbNewLine & _
"<br/>" & _
"Kind Regards,"

Thanks for any help in advance.

 

[09conor]

Sorry, should be like this.

  'EMAIL TEXT
With OutMail
    strbody = "Good " & g01 & " " & Range("C" & ActiveCell.Row).Value & "," & vbNewLine & vbNewLine & _
                "<br/>" & _
              vbNewLine & _
              "Please find attached your March 2017 Surveyor Flash Statistics " &(Range("I3")& "." & vbNewLine & _
                vbNewLine & _
              "<br/>" & _
              "This indicates your productivity and SLA, month to date, in advance of month end." & vbNewLine & _
                vbNewLine & _
              "<br/>" & _
              "Where the current levels are below 4.75 and 80% respectively, values are shown in red." & vbNewLine & _
                vbNewLine & _
              "<br/>" & _
              "If either your productivity or SLA or both are below the required levels at month end, unfortunately you will not qualify for any incentive payment and you should either complete additional points per day or improve same day sign off from now until month end to exceed these levels." & vbNewLine & vbNewLine & _
              "<br/>" & _
              "This document is password protected with your SRN (Payroll Number)." & vbNewLine & _
                vbNewLine & _
              "<br/>" & _
              "If you have any queries, please contact the Incentives team by replying to this email, Incentive@esurv.co.uk. " & vbNewLine & _
              "<br/>" & _
                "Kind Regards,"

 

[Norie]

You seem to have a bunch of stray " and & characters, try this.

strbody = "Good " & g01 & " " & Range("C" & ActiveCell.Row).Value & "," & vbNewLine & vbNewLine & _
              vbNewLine & _
              "Please find attached your March 2017 Surveyor Flash Statistics " & Range("I3") & "." & vbNewLine & _
                vbNewLine & _
              "This indicates your productivity and SLA, month to date, in advance of month end." & vbNewLine & _
                vbNewLine & _
              "Where the current levels are below 4.75 and 80% respectively, values are shown in red." & vbNewLine & _
                vbNewLine & _
              "If either your productivity or SLA or both are below the required levels at month end, unfortunately you will not qualify for any incentive payment and you should either complete additional points per day or improve same day sign off from now until month end to exceed these levels." & vbNewLine & vbNewLine & _
              "This document is password protected with your SRN (Payroll Number)." & vbNewLine & _
                vbNewLine & _
              "If you have any queries, please contact the Incentives team by replying to this email, Incentive@esurv.co.uk. " & vbNewLine & _
                "Kind Regards,"

By the way, it's sometimes easier to construct something like this using this type of method.

strbody = "Good " & g01 & " " & Range("C" & ActiveCell.Row).Value & "," & vbNewLine & vbNewLine & vbNewLine 
strbody = strbody & "Please find attached your March 2017 Surveyor Flash Statistics " & Range("I3") & "." & vbNewLine & vbNewLine
strbody = strbody & "This indicates your productivity and SLA, month to date, in advance of month end." & vbNewLine 
               
' etc

That gets rid of the need for all those line continuation characters, and it makes things easier to debug.