SendMail as attachment and not as link

Sub Mailer()
'Mails without security alert
'Need reference to Outlook in the Project References
 
Dim objol As New Outlook.Application
Dim objmail As MailItem
Dim Pathname

ActiveWorkbook.SaveAs Filename:="C:\MyFiles\my new excel file.xls"
Pathname = ActiveWorkbook.FullName

Set objol = New Outlook.Application
Set objmail = objol.CreateItem(olMailItem)
    
    With objmail
        .To = "John Q Receiver@aol.com" 'enter in here the email address
      '  .cc = "whoever" 'enter in here the email address
        .Subject = "This is my message subject" '& dname
        .Body = "This is the message Text" & _
            vbCrLf & "This is more message text" & vbCrLf
        .NoAging = True
        .ReadReceiptRequested = True
        .Attachments.Add Pathname 'adds attachment to email
        .Display
    End With
    Set objmail = Nothing
    Set objol = Nothing
    
    'Wait for System to catch up and send
    Application.Wait (Now + TimeValue("0:00:04"))
    Application.SendKeys "%s"
    Application.Wait (Now + TimeValue("0:00:04"))
    
End Sub

myAttachments.Add "C:\MyFiles\my new excel file.xls", _ 
1, 1, "My file transmission"