Kode til at åbner ny outlook meddelelse

Hej "eksperten"
Jeg har brug for hjælp til at ændre nedenstående koder:
istedet for sender dokumentet med det samme når jeg aktiverer koderne, så får jeg muligheder for at vedhæfte filer også.

Med venlig hilsen
Naviairsuperbruger


Sub Risiko()
     
  Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem, ToContact As Recipient
      'Fjerner alle advarsler
      Application.DisplayAlerts = wdAlertsNone
     
      'Gemmer dokumentet og overskriver eventuelt andre dokumenter med samme navn
      ActiveDocument.SaveAs "C:\temp\Rekvisition af aaaaa.doc"
       
        'Aktiverer alle advarsler igen
          Application.DisplayAlerts = wdAlertsAll
       
          Navn = ActiveDocument.Path & "\" & ActiveDocument.Name
       
        'Åbner Outlook(skjult)
    Set OLF = GetObject("", "Outlook.application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
       
      Set olMailItem = OLF.Items.Add
           
            Send der aktive dokument
        With olMailItem
                Set ToContact = .Recipients.Add("XXX@YYYYY.dk")
              Set ToContact = .Recipients.Add("WWW@YYYYY.dk")
              Set copi = .Recipients.Add("BBB@YYYYY.dk")
                .Subject = "Rekvisition af aaaaa"
                .Attachments.Add (Navn)
                .Body = ActiveDocument
                .send
          End With
           
        'Lukker Outlook
      Set ToContact = Nothing
      Set olMailItem = Nothing
      Set OLF = Nothing
       
End Sub