Put cells from excel attachment in email body with VBA?

[lost_in_the_sauce]

I have a workbook that uses the below VBA code to turn each tab into a separate excel file and attach it to an email addressed to the address in cell A2 of each tab. Is there a way to add cells A4:C5 to the body of the email so the recipients can seel the summary without opening the attachment?

Sub Mail_Every_Worksheet()
  'Updateby ExtendOffice
  Dim xWs As Worksheet
  Dim xWb As Workbook
  Dim xFileExt As String, xTempFilePath As String, xFileName As String
  Dim xFileFormatNum As Long
  Dim xOlApp As Object, xMailObj As Object
  Dim sBody As String
 
  On Error Resume Next
  With Application
    .ScreenUpdating = False
    .EnableEvents = False
  End With
 
  xTempFilePath = Environ$("temp") & "\"
  If Val(Application.Version) < 12 Then
    xFileExt = ".xls": xFileFormatNum = -4143
  Else
    xFileExt = ".xlsm": xFileFormatNum = 52
  End If
 
  Set xOlApp = CreateObject("Outlook.Application")
  For Each xWs In ThisWorkbook.Worksheets
    If xWs.Range("A2").Value Like "?*@?*.?*" Then
      xWs.Copy
      Set xWb = ActiveWorkbook
      xFileName = xWs.Name
      Set xMailObj = xOlApp.CreateItem(0)
      xWb.Sheets.Item(1).Range("A2").Value = ""
      With xWb
        .SaveAs xTempFilePath & xFileName & xFileExt, FileFormat:=xFileFormatNum
        With xMailObj
          'specify the CC, BCC, Subject, Body below
          .To = xWs.Range("A2").Value
          .CC = ""
          .BCC = ""
          .Subject = "Update "
          sBody = "Monthly Payment Amounts"
          .Display
          .HtmlBody = sBody & .HtmlBody
          .Attachments.Add xWb.FullName
          .Display
        End With
        .Close SaveChanges:=False
      End With
      Set xMailObj = Nothing
      Kill xTempFilePath & xFileName & xFileExt
    End If
  Next
 
  Set xOlApp = Nothing
  With Application
    .ScreenUpdating = True
    .EnableEvents = True
  End With
End Sub

 

[Jimmypop]

Hi there...

Untested... but maybe try by modifying the sBody variable in the code. You can concatenate the values of cells A4:C5 to the sBody variable, like this:

sBody = "Monthly Payment Amounts" & "<br><br>" & _
"Summary:" & "<br>" & _
"Total Amount: " & xWs.Range("A4").Value & "<br>" & _
"Average Amount: " & xWs.Range("B4").Value & "<br>" & _
"Maximum Amount: " & xWs.Range("C4").Value

This will add a line break (<br>) between the header and the summary, as well as between each line of the summary. The & symbol is used to concatenate the strings. The _ symbol is used to continue the code on the next line for readability purposes. Make sure to adjust the headers and the cell references to match the actual content of cells A4:C5 in your workbook.

 

[lost_in_the_sauce]

Hi there...

Untested... but maybe try by modifying the sBody variable in the code. You can concatenate the values of cells A4:C5 to the sBody variable, like this:

sBody = "Monthly Payment Amounts" & "<br><br>" & _
"Summary:" & "<br>" & _
"Total Amount: " & xWs.Range("A4").Value & "<br>" & _
"Average Amount: " & xWs.Range("B4").Value & "<br>" & _
"Maximum Amount: " & xWs.Range("C4").Value

This will add a line break (<br>) between the header and the summary, as well as between each line of the summary. The & symbol is used to concatenate the strings. The _ symbol is used to continue the code on the next line for readability purposes. Make sure to adjust the headers and the cell references to match the actual content of cells A4:C5 in your workbook.

It does work for pulling the values but I lose the formatting. Definitely something to keep in my back pocket for the future though, thank you

 

[Candyman8019]

I think you're looking for the RangeToHTML function. Check out this post: Pulling Data from an excel sheet into a Word document or Email

 

[lost_in_the_sauce]

I think you're looking for the RangeToHTML function. Check out this post: Pulling Data from an excel sheet into a Word document or Email

RangetoHTML - sub or function not defined

 

[Candyman8019]

Go to the link I posted…RangeToHtml is a function you need to add.