title: Display pre-typed Outlook mail in new install of Office 2016
body: <p>I have a few VBA macros that don't work since I installed the 2016 version of Office.</p>
  
  <p>It's the bit to display a pre-typed email that doesn't work. The rest of the code runs as it should.</p>
  
  <pre><code>Sub Send_Application()
  
      Application.ScreenUpdating = False
  
      For Each cell In ActiveSheet.Range("NumberOfApps").Cells
          If cell.Value = "Y" Then
              cell.Offset(0, -1).Value = Worksheets("Data").Range("A2")
              cell.Value = "SENT"
              cell.Offset(0, 18).Value = "Yes"
  
              Dim OutApp As Object
              Dim OutMail As Object
              Dim strbody As String
              Dim sTo As String
  
              AppName = "J:\Matrixes\All Sites\Applications\" &amp; Worksheets("Data").Range("E3") &amp; "\" &amp; cell.Offset(0, 13).Value &amp; ".pdf"
  
              Set OutApp = CreateObject("Outlook.Application")
              Set OutMail = OutApp.CreateItem(0)
  
              strbody = Worksheets("Data").Range("G2") &amp; vbNewLine &amp; vbNewLine &amp; _
                "Please find attached our application for payment for the month of " &amp; Worksheets("Data").Range("E2") &amp; "." &amp; vbNewLine &amp; vbNewLine &amp; _
                "Can I ask you to check you are happy with this application and I will issue an Vat Invoice to you. If you do have any queries can you please notify me by email before the 15th " &amp; _ 
                Worksheets("Data").Range("E4") &amp; " otherwise we look forward receiving your payment " &amp; Worksheets("Data").Range("E6") &amp; "." &amp; vbNewLine &amp; vbNewLine &amp; _
                "Thank You" &amp; vbNewLine &amp; vbNewLine &amp; _
                "Kind Regards"
  
              On Error Resume Next
              With OutMail
                  .To = sTo
                  .CC = ""
                  .BCC = ""
                  .Subject = cell.Offset(0, 13).Value
                  .Body = strbody
                  .Attachments.Add (AppName)
                  'You can add a file like this
                  '.Attachments.Add ("C:\test.txt")
                  .Display   'or use .Display
              End With
              'On Error GoTo 0
  
              Set OutMail = Nothing
              Set OutApp = Nothing
  
          End If
  
      Next cell
  
      Application.ScreenUpdating = True
  End Sub
  </code></pre>
  
  <p>I have commented out the "On Error Resume" lines but there are no errors that appear.</p>
  
  <p>I have run Excel and Outlook as administrator, enabled all macros temporarily in both.</p>
  
  <p>If I write a brand new macro using the same text, it works until I close Excel. Then I need to do it again.</p>
  
  <p>I searched for a solution but everything I tried hasn't worked.</p>