title: Why is email body, using custom template, delivered in plain text?
body: <p>I have a list of users to send multiple attachments with custom email body (.oft template).</p>
  <p>User's details are in an Excel file.</p>
  <p>I had prepared (.oft template) in standard format with some images and style fonts.</p>
  <p>When I use <code>msg.Send</code> emails are delivered with an attachment but the email body is displayed in plain text. But, <code>msg.Display</code> displays the email with an associated attachment and expected email body (.oft template).</p>
  <pre><code>Option Explicit
  Sub Send_Mails()
  Dim sh As Worksheet
  Set sh = ThisWorkbook.Sheets(&quot;Send_Mails&quot;)
  Dim i As Integer
  
  Dim OA As Object
  Dim msg As Object
  
  Set OA = CreateObject(&quot;outlook.application&quot;)
  OA.Session.Logon
  
  Dim last_row As Integer
  last_row = Application.CountA(sh.Range(&quot;A:A&quot;))
  
  For i = 2 To last_row
      Set msg = OA.CreateItem(0)
      Set msg = OA.CreateItemFromTemplate(&quot;C:\Users\Test 2\Test.oft&quot;)
      msg.To = sh.Range(&quot;A&quot; &amp; i).Value
      msg.cc = sh.Range(&quot;B&quot; &amp; i).Value
      msg.Subject = sh.Range(&quot;C&quot; &amp; i).Value
      
      If sh.Range(&quot;E&quot; &amp; i).Value &lt;&gt; &quot;&quot; Then
          msg.Attachments.Add sh.Range(&quot;E&quot; &amp; i).Value
      End If
  
      msg.Display
      sh.Range(&quot;F&quot; &amp; i).Value = &quot;Sent&quot;
  Next i
  
  MsgBox &quot;All the mails sent successfully&quot;
  
  End Sub
  </code></pre>