Can?t send long text from Excel via Outlook

Hi all,
I would like to send text from Excel via Outlook
It is 189 words and 1243 symbols with a small picture.
But I can not. I can send only a short text. This is my send string: =HYPERLINK("mailto:"&E38&"?subject=Test&body="&$B$53;"Senden")
Maybe somebody can help me, please and explain what I should do to send 189 words with small pics
Thanks in advance.

This is one of many methods.

The following allows you to edit this section of code, to specify what portion/s of the sheet range you want pasted into the email body:

Sheets("Sheet1").Range("Q2:Y4") = Sheets("Sheet1").Range("B18:F20").Value
Sheets("Sheet1").Range("Q7:V18") = Sheets("Sheet1").Range("B2:G13").Value

Sheets("Sheet1").Range("B2:G13").Copy
Sheets("Sheet1").Range("Q7:V18").PasteSpecial Paste:=xlPasteFormats

ENTIRE CODE :

Option Explicit


Sub SendEmail()
    Dim rng As Range, OutApp As Object, OutMail As Object
    Dim sCC As String, sSubj As String, sEmAdd As String
    Dim objCombinedR As Range
     '// Change the values of these variables to suit
    sEmAdd = "abc@abc.com"
    sCC = ""
    sSubj = "My Subject"
     
    Set rng = Nothing
    On Error Resume Next
    
    Sheets("Sheet1").Range("Q2:Y4") = Sheets("Sheet1").Range("B18:F20").Value
    Sheets("Sheet1").Range("Q7:V18") = Sheets("Sheet1").Range("B2:G13").Value
    
    Sheets("Sheet1").Range("B2:G13").Copy
    Sheets("Sheet1").Range("Q7:V18").PasteSpecial Paste:=xlPasteFormats
    
    Set rng = Sheets("Sheet1").Range("Q2:V18")
    rng.AutoFit
    
    On Error GoTo 0
     
    With Application
        .EnableEvents = 0
        .ScreenUpdating = 0
        .Calculation = xlCalculationManual
    End With
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
     
    On Error Resume Next
    With OutMail
        .To = sEmAdd
        .CC = sCC
        .Subject = sSubj
        .HTMLBody = "<p>Dear Name:" & "<br><br>" & _
                "Please see attached for your review.." & "<br><br>" & _
                RangetoHTML(rng) & "<br><br>" & _
                "Regards," & "<br><br>" & _
                "Finance</p>"
        '.Send '// Change this to .Display if you want to view the email before sending.
        .Display
    End With
    On Error GoTo 0
     
    With Application
        .EnableEvents = 1
        .Calculation = xlCalculationAutomatic
    End With
    Sheets("Sheet1").Range("Q2:V18").Value = ""
    Set OutMail = Nothing: Set OutApp = Nothing
     
End Sub
 
Function RangetoHTML(rng As Range)
    Dim fso As Object, ts As Object, TempWB As Workbook, TempFile As String
     
    TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
     
    rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteColumnWidths, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
    End With
    With TempWB.PublishObjects.Add( _
        SourceType:=xlSourceRange, _
        Filename:=TempFile, _
        Sheet:=TempWB.Sheets(1).Name, _
        Source:=TempWB.Sheets(1).UsedRange.Address, _
        HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.readall
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
    "align=left x:publishsource=")
     
    TempWB.Close 0
    Kill TempFile
     
    Set ts = Nothing: Set fso = Nothing: Set TempWB = Nothing
     
End Function

Thanks a lot,
I will have a look.
For me it is Intrresting to know if it is possible to do this without programming?
Why it does not send it at my case.

If you want the email to auto send prior to reviewing .... change the following lines of code :

         
"Finance</p>"
        '.Send '// Change this to .Display if you want to view the email before sending.
        .Display

Comment out Display like this : '.Display

Then Uncomment Send like this : .Send

Thanks, a lot for your help. I think it is misunderstanding.
I open an Excel file, and I press at send at the excel cell( =HYPERLINK("mailto:"&E38&"?subject=Test&body="&$B$53;"Senden") ) and the outlook will be opened.
And after, I press at outlook send button.
It means two applications: 1 Excel and after is 2Outlook.
Maybe somebody knows what I have to correct to send longer text. Thanks
Attachment 809167Attachment 809168