OK try the following
Option Explicit
Sub CreateMessageFromClipboard()
Dim olEmail As Outlook.MailItem
Dim olItem As MailItem
Dim olInsp As Outlook.Inspector
Dim wdDoc As Object
Dim oRng As Object
Dim olitems As Items
Dim lngCount As Long: lngCount = 0
Const strSubject As String = "Fixed Text" ' This is the fixed text for the subject
Const strRecipient As String = "someone@somewhere.com"
Set olitems = Session.GetDefaultFolder(olFolderSentMail).Items
olitems.Sort "[Received]", True
For Each olItem In olitems
If Format(olItem.SentOn, "yyyymmdd") = Format(Date, "yyyymmdd") Then
lngCount = lngCount + 1
Else
Exit For
End If
DoEvents
Next olItem
On Error Resume Next
Set olEmail = CreateItem(olMailItem)
With olEmail
.To = strRecipient
.Subject = strSubject & Chr(32) & Format(Date, "dd/mm/yyyy") & " (" & lngCount & ")"
.BodyFormat = olFormatHTML
.Display
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set oRng = wdDoc.Range(0, 0)
oRng.PasteSpecial DataType:=2
End With
lbl_Exit:
Set olEmail = Nothing
Set olInsp = Nothing
Set olitems = Nothing
Set wdDoc = Nothing
Set oRng = Nothing
Exit Sub
End Sub