automattisk gemme modtagne- og sendte mail i mappe på disk

Outlook 2016
Jeg mangler lidt hjælp til at ændre koden nedefor så den kan gemme både modtagne og sendte mail mappe på disk drev.
Koden herunder virker fint på indkomne mail som straks bliver gemt i mappen.
Ønker det samme for SentMail
Så hvad ændrer jeg for at den både dækker Inbox og SentMail på en gang?

Har ikke lige selv kunne finde en løsning.
På forhånd tak
/fajens
*****************************************************************
Private WithEvents Items As Outlook.Items

Public Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Set Ns = Application.GetNamespace("MAPI")
  Set Items = Ns.GetDefaultFolder(olFolderInbox).Items ' skal også virke      med SentMail
   
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
  If TypeOf Item Is Outlook.MailItem Then
    SaveMailAsFile Item
  'MsgBox ("sent mail")
  End If
 
End Sub

Private Sub SaveMailAsFile(oMail As Outlook.MailItem)
  Dim dtDate As Date
  Dim sName As String
  Dim sFile As String
  Dim sExt As String
 
  sPath = "<Path>" ' her indsættes sti til folder
  sExt = ".msg"
  sName = oMail.Subject
  ReplaceCharsForFileName sName, "_"
  dtDate = oMail.ReceivedTime
  sName = Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
    vbUseSystem) & Format(dtDate, "-hhnnss", _
    vbUseSystemDayOfWeek, vbUseSystem) & "-" & sName & sExt

  'oMail.SaveAs sPath & sName, olSaveAsMsg
  oMail.SaveAs sPath & sName, OlSaveAsType.olMSG

End Sub

Private Sub ReplaceCharsForFileName(sName As String, sChr As String)
  sName = Replace(sName, "/", sChr)
  sName = Replace(sName, "", sChr)
  sName = Replace(sName, ":", sChr)
  sName = Replace(sName, "?", sChr)
  sName = Replace(sName, Chr(34), sChr)
  sName = Replace(sName, "<", sChr)
  sName = Replace(sName, ">", sChr)
  sName = Replace(sName, "|", sChr)
End Sub
*********************************************************************