title: VBA, Excel extract email body multiple lines into excel cells
body: <p>I have button that extracts emails body into excel columns(code below),
  My problem is that "Issue description:" sometimes is more than one line and then next column where "Nav error No:" should be, is next line from the issue description.</p>
  
  <p>Here is sample of emails the this inbox will receive:</p>
  
  <pre><code>Platform: Nav 
  Department: HR 
  Site: Thailand 
  Process: Test 
  Area: Purchase Orders 
  Issue description: This is only test 
  Nav error No.: Error test 
  </code></pre>
  
  <p>Code:</p>
  
  <pre><code>For Each olItem In olItems
      rCount = rCount + 1
      ws.Range("A" &amp; rCount).Value = olItem.ReceivedTime
      ws.Range("B" &amp; rCount).Value = olItem.SenderName
      ws.Range("C" &amp; rCount).Value = olItem.Subject
  
      arrayLines = Split(olItem.Body, vbCrLf)
      ws.Range("D" &amp; rCount).Value = Split(arrayLines(0), ": ")(1)  '&lt;--- Platform
      ws.Range("E" &amp; rCount).Value = Split(arrayLines(1), ": ")(1)  '&lt;--- Department
      ws.Range("F" &amp; rCount).Value = Split(arrayLines(2), ": ")(1)  '&lt;--- Site
      ws.Range("G" &amp; rCount).Value = Split(arrayLines(3), ": ")(1)  '&lt;--- Process
      ws.Range("H" &amp; rCount).Value = Split(arrayLines(4), ": ")(1)  '&lt;--- Area
      ws.Range("I" &amp; rCount).Value = Split(arrayLines(5), ": ")(1)  '&lt;--- Issue description
  
      If arrayLines(6) = "" Then
          ws.Range("J" &amp; rCount).Value = "N/A"  '&lt;--- Nav error empty
      Else
          ws.Range("J" &amp; rCount).Value = Split(arrayLines(6), ": ")(1)  '&lt;--- Nav error message
      End If
  
  Next olItem
  </code></pre>
  
  <p>I wanted to add to array full length of issue description before moving onto the next column which is nav error.</p>
  
  <p>Thanks in advance for any help.</p>