VBA Outlook: gem msgfil, og genvejstast

VBA macro i outlook, der løber igennem alle selected items i min inbox:   

    Dim oApp As Application
    Dim oMail As MailItem
   
    Set oApp = Outlook.Application
    For Each oMail In oApp.ActiveExplorer.Selection
        MsgBox "markeret mail: " & oMail.Subject
    Next
    Set oApp = Nothing
    Set oMail = Nothing



1. Hvordan kan jeg med FSO eller tilsvarende gemme min msgfil?

2. Hvordan kan jeg med en genvejstast starte min macro (som i VBA Excel)?