VBA send mail med body-variabel

.Message = "Here is the workbook. What do you think?"

mon ikke det er den

prøv at lege med denne

Sub SendPost()
If Application.MailSystem <> xlNoMailSystem Then
  ActiveSheet.Copy
 
  With ActiveWorkbook
    .HasRoutingSlip = True
    With .RoutingSlip
        .Recipients = "xx@xxx.dk"
        .Subject = "Fakturakladde"
        .Message = "Here is the workbook. What do you think?"
        .ReturnWhenDone = True
       
End With
    .Route
    .Close SaveChanges:=False
End With
  Application.MailLogoff
  Else
    MsgBox "Intet Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse"
  End If
  MsgBox "Mail sendt til YYY"
End Sub


her er et eksempel fra hjælp

RoutingSlip Property Example

This example creates a routing slip for Book1.xls and then sends the workbook to three recipients, one after another.

Workbooks("BOOK1.XLS").HasRoutingSlip = True
With Workbooks("BOOK1.XLS").RoutingSlip
    .Delivery = xlOneAfterAnother
    .Recipients = Array("Adam Bendel", _
        "Jean Selva", "Bernard Gabor")
    .Subject = "Here is BOOK1.XLS"
    .Message = "Here is the workbook. What do you think?"
End With
Workbooks("BOOK1.XLS").Route

Ja, det hjalp med denne:
.Message = "Kunde: " & Range("B5").Text
sammen med RoutingSlip.

Men nu kommer der en irriterende meddelelse i mailen:
----------
Der er en distributionsliste til det vedhæftede dokument. Hvis du vil returnere dokumentet til afsenderen, når du er færdig med at gennemse det, skal du vælge Næste modtager på distributionslisten i menuen Send til i menuen Filer i Microsoft Office Excel.

Dim szBodyTekst As String

szBodyTekst = Range(B5) & vbCr

Lukket.