.Body = "blah blah hello world" & vbnewline & .body 

dim tmp
tmp = "From: " & .From & vbnewline & _
          "To: " & .to & vbnewline & _'здесь нужно итерировать по всем получателям
          "CC: " & .CC 'здесь нужно итерировать всех кто в копии и т.д.
'используем tmp дальше, где потребуется

Sub saveImage()
    Dim strPath$
    Dim at As Attachment
    Dim ii As MailItem
    
    Set ii = ActiveExplorer.Selection.Item(1)
    strPath = "insert your path here"
    
    For Each at In ii.Attachments
    Debug.Print at.DisplayName
    If at.DisplayName Like "*.png" Then at.SaveAsFile
    Next
End Sub

=AVERAGEIFS(A1:A5,A1:A5,"<>0")

Sub testDirFunction()
    Dim counter
    Dim fn
    
    ChDir Environ("homepath") & Application.PathSeparator & _
        "Downloads"
        
    fn = Dir("*.xlsx")
    counter = 0
    
    While Len(fn) > 0
    
    counter = counter + 1
    fn = Dir()
    Wend
    MsgBox "Total count: " & counter
End Sub

    With ThisWorkbook
        On Error Resume Next
     
            .Connections("название вашей связи").Delete
            .Queries("название вашего запроса").Delete '''не обязательно, но для спокойствия души
            
        On Error GoTo 0
        
        .Queries.Add Name:="название вашей связи", Formula:= "ваша query формула"   
        .Connections.Add2 "добавляете реквизиты отталкиваясь от запроса строкой выше"
    End With

Sub addToDataModel(m As Excel.Model, fkTable, fkColumn, pkTable, pkColumn)
    Dim pkTbl As ModelTable
    Dim fkTbl As ModelTable
    Dim fkCol As ModelTableColumn
    Dim pkCol As ModelTableColumn

    DoEvents
    
    Set pkTbl = m.ModelTables(pkTable)
    Set fkTbl = m.ModelTables(fkTable)
    Set fkCol = fkTbl.ModelTableColumns(fkColumn)
    Set pkCol = pkTbl.ModelTableColumns(pkColumn)
    
    m.ModelRelationships.Add _
        ForeignKeyColumn:=fkCol, _
        PrimaryKeyColumn:=pkCol
    Application.StatusBar = False
End Sub

Sub addQueryToDataModel()
   Dim md As Model

   Set md = ThisWorkbook.Model
   addToDataModel md, "Таблица1 "Ключ1", _
                        "Таблица2", "Ключ2"
''' Далее повторяем для всех связей с другими названиями (это понятно)
   addToDataModel md, "Таблица1 "Ключ1", _
                        "Таблица2", "Ключ2"
End sub

Workbooks(book_name & ".xlsx").Sheets(1)