Hi, I am using html.body for my email body to have the signature in the email. However, my text all become one line. can anyone help to edit the coding? Appreciate your help.
Sub Send_Mails() Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Bulk Email") Dim i As Integer Dim OA As Object Dim msg As Object Set OA = CreateObject("outlook.application") Dim last_row As Integer Dim Signature As String Dim bodyMain As String last_row = sh.Range("D" & Application.Rows.Count).End(xlUp).Row For i = 6 To last_row If UCase(sh.Range("A" & i).Value) <> "YES" Then Set msg = OA.createitem(0) If sh.Range("C" & i).Value <> "" Then msg.SentOnBehalfOfName = sh.Range("C" & i).Value Set msg.SendUsingAccount = OA.Session.Accounts.Item(1) msg.display Signature = msg.HTMLBody msg.To = sh.Range("D" & i).Value msg.cc = sh.Range("E" & i).Value msg.Subject = sh.Range("F" & i).Value msg.body = sh.Range("G" & i).Value msg.HTMLBody = sh.Range("G" & i).Value & vbNewLine & Signature If sh.Range("H" & i).Value <> "" Then msg.attachments.Add sh.Range("H" & i).Value End If If sh.Range("I" & i).Value <> "" Then msg.attachments.Add sh.Range("I" & i).Value End If If sh.Range("J" & i).Value <> "" Then msg.attachments.Add sh.Range("J" & i).Value End If If sh.Range("K" & i).Value <> "" Then msg.attachments.Add sh.Range("K" & i).Value End If If sh.Range("A1").Value = 1 Then msg.send Else msg.display End If sh.Range("B" & i).Value = "Done" End If Next i MsgBox "Process Completed!!!", vbInformation End Sub