Send excelark med makro til Lotus Notes i stedet for Outlook

Hej Eksperter

Nedenfor har jeg fikset en makro som sender en genvej via min Outlook applikation, men nu sidder jeg desværre med Lotus notes og aner ikke hvordan jeg fikser skidtet... Kan nogen hjælpe mig.

Tak... (Se nedenfor)

Sub MailArk()
      'genvej ctrl+shift + h
    Dim strMail(4) As String
    Dim newFile, newsheet, kilde, newName, shNavn, cpNavn, strFilNavn As String
   
    newFile = Replace(ActiveWorkbook.Name, "xls", "")
    ActiveSheet.Copy
    newsheet = ActiveSheet.Name
       
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs "F:\..." & newFile & "_" & newsheet & ".xls", FileFormat = xlfile
    kilde = ActiveWorkbook.FullName
       
    Application.DisplayAlerts = True
    ThisWorkbook.Saved = True
    If ActiveWorkbook.Saved = True Then
        Set myOlApp = GetObject(, "Outlook.Application")
        Set myitem = myOlApp.CreateItem(olMailItem)
        myitem.Display
        myitem.Subject = "Ark sendt via mail"
        Set myattachments = myitem.Attachments
        myattachments.Add ActiveWorkbook.FullName
    Else
        MsgBox "Du har ændret filen siden den blev åbnet. Du skal save først.", vbInformation
        End If
   
    ActiveWorkbook.Close
    Kill kilde
   
End Sub