send genvej til aktiv workbook via mail (VBA) makro

Jeg forsøger at lave en makro der sender en genvej til den aktive workbook via mail til en række mails. Modtagerne sidder på samme netværk så vi kan alle læse fra f:drevet eksempelvis.

Jeg har prøvet med dette men, det virker bare ikke:

Dim strMail(4) As String
Dim newFile, newName, shNavn, cpNavn, strFilNavn As String
Dim myitem As MailItem



Sub GenvejsMakro()

strMail(0) = "david@david.dk"
strMail(1) = "david2@david.dk

'On Error Resume Next
Set myOlApp = GetObject(, "Outlook.Application")

Set myitem = myOlApp.CreateItem(olMailItem)
myitem.Display

For J = o To UBound(strMail)
  myitem.Recipients.Add (strMail(J))
  Next J

myitem.Subject = "Værsgo Mr. Richardy"

Set myAttachments = myitem.attachments
myAttachments.Add Workbooks.Open(Filename:=Extract.Path(newFile) & Filename.Only(newFile)), addToMru:=False, ReadOnly:=True
myitem.Send

myItem.send


End Sub