title: Send e-mail code is sending a blank file, unless the template is saved first
body: <p>The code below is used in other files to send in effect a form for review and approval, but within this workbook for some reason I am getting blank files sent and the content added by the users is lost.  I know this isn't a code checking service, but I was wondering have I missed something with this - so I need to have the file 'saved' before it is attached to the e-mail?</p>
  
  <pre><code>    'Open e-mail and create a new message
  Set OutlookApp = CreateObject("Outlook.Application")
  Set OlObjects = OutlookApp.GetNamespace("MAPI")
  Set newmsg = OutlookApp.CreateItem(olMailItem)
  Dim SubmitEMail As String: SubmitEMail = ws.Range("U1").Value
  
  
  ' set the requirements for the new message
  With newmsg
      .Recipients.Add SubmitEMail
      .CC = ws.Range("U2").Value
      .Subject = "New Concession request form submitted"
  'use string defined above as the main body of the message
      .Body = "Dear " &amp; Location &amp; "," &amp; vbLf &amp; vbLf &amp; "Please find attached: a new Concession request.  Please review and indicate Concession number, or provide details of amendments needed." &amp; vbLf &amp; vbLf &amp; "Regards," &amp; vbLf &amp; vbLf &amp; SenderName
      .Attachments.Add wb.FullName
      .Display
  End With
  End If
  
  MsgBox "Please review the E-Mail, Adding any additional recipients as required. add your signature and send to complete the submission"
  </code></pre>
  
  <p>The e-mail sending bit works perfectly, but the attachment is always blank, the data the user has added is lost (if the user saves the workbook first on their local station) the process works perfectly, but I am wanting to avoid asking them to so this - potentially creates 2 versions of a document where I only want one)</p>