What's wrong in this part of my code

[Ramadan]

I have a long code to send email from excel and there are some texts that I need to change it's font to BOLD and the color to red
Through my searches online I have found a way to do that and thanks god it works even I'm not professional in VBA but still there are some issues I don't know how to fix them as you can see in the screenshot below ,

1- there are (" ") before and after the word and also there is one extra sign (") at the end before the email signature
2- (" Best Regards") is a part from my outlook signature but only this part is shown LEFT TO RIGHT while it should be right to left
3- how to put make the last red word before signature with underline like this ( :ملحوظة)

Here is the part of my code

 newHTML = "<div dir='rtl' style='font-family:Calibri; font-size:11pt;'>" & _
              "<b>" & body1 & "</p>" & _
               "<p>" & body7 & "</p></b>" & _
              "<p>" & body2 & " <b>(" & membershipNo & ")</b> " & body3 & " <b>(" & _
              startDate & "</b>  -  <b> " & endDate & ")</b> ""<b>" & "<font color=red>" & period & "</font>" & "</b>"" </p>" & _
              "<p>" & body4 & "</p>" & _
             "<p>" & body5 & "</p>" & _
               "<b>" & "<font color=red>""<b>" & body6 & "</font>" & "</b>""</p></b>" & _
              "<\div>"""

[ATTACH type="full"]123765[/ATTACH]

 

[Georgiboy]

There are a number of issues here with syntax, another issue is the method of attaching the file.

Make some adjustments based on the code below, it fixes the syntax issues and changes the method of attaching the file:

    filePath = "C:\Users\bloggsj\Desktop\example.xlsm" ' Change this to your actual file path of attachment
    
    newHTML = "<div dir='rtl' style='font-family:Calibri; font-size:11pt;'>" & _
              "<b>" & body1 & "</b></p>" & _
              "<p>" & body7 & "</p>" & _
              "<p>" & body2 & " <b>(" & membershipNo & ")</b> " & body3 & _
              "<b>(" & StartDate & "</b> - <b> " & EndDate & ")</b> <b><font color='red'>" & Period & "</font></b></p>" & _
              "<p>" & body4 & "</p>" & _
              "<p>" & body5 & "</p>" & _
              "<p><b><font color='red'>" & body6 & "</font></b></p>" & _
              "</div>"
    
    With OutMail
        .BodyFormat = 2
        .Display
        .HTMLBody = newHTML
        ' Add the attachment
        .Attachments.Add filePath
        .To = ""
        .Subject = "Subject"
    End With

 

[Ramadan]

There are a number of issues here with syntax, another issue is the method of attaching the file.

Make some adjustments based on the code below, it fixes the syntax issues and changes the method of attaching the file:

    filePath = "C:\Users\bloggsj\Desktop\example.xlsm" ' Change this to your actual file path of attachment
   
    newHTML = "<div dir='rtl' style='font-family:Calibri; font-size:11pt;'>" & _
              "<b>" & body1 & "</b></p>" & _
              "<p>" & body7 & "</p>" & _
              "<p>" & body2 & " <b>(" & membershipNo & ")</b> " & body3 & _
              "<b>(" & StartDate & "</b> - <b> " & EndDate & ")</b> <b><font color='red'>" & Period & "</font></b></p>" & _
              "<p>" & body4 & "</p>" & _
              "<p>" & body5 & "</p>" & _
              "<p><b><font color='red'>" & body6 & "</font></b></p>" & _
              "</div>"
   
    With OutMail
        .BodyFormat = 2
        .Display
        .HTMLBody = newHTML
        ' Add the attachment
        .Attachments.Add filePath
        .To = ""
        .Subject = "Subject"
    End With

@Georgiboy Thank you so much it works now perfectly. and regarding ponit#2 left to right I found out that it was done by mistake in my outlook signature and fixed
Thank you so much for your help

 

[Georgiboy]

Thanks for the feedback, glad to have been able to help.