VBA kode der opretter mappe under Outlook offentlige mapper

Hejsa,

Håber der er en venlig sjæl der kan hjælpe med nedenstående problem. Jeg er ny i VBA kode, så har været ved at prøve nogle forskellige løsninger uden held.

Jeg har et excel ark som bruges til tilbudsregistrering (Tilbudsnummer, kundenavn, opgavetype mv.) Jeg opretter herefter en mappe på et netværksdrev med oplysningerne og der har jeg lavet nedenstående kode som virker vint.
-------
Sub OpretMappeH()
 
    Dim rngA As Range, FolderLocation As String, FolderName As String
   
    'Sæt stien til hvor filen skal gemmes
    FolderLocation = "H:\Tilbud\"
   
    If Selection.Value <> "" Then   
        FolderName = Selection.Value           
        If Dir(FolderLocation & FolderName, vbDirectory) = vbNullString Then
   
MsgBox "Ønsker du at oprette mappe?" & vbNewLine & FolderName & " " & ActiveCell.Offset(, 1).Value & "-" & " " & ActiveCell.Offset(, 9).Value, vbInformation, "Opret mappe under tilbud"
           
        On Error Resume Next
           
MkDir "H:\Tilbud\" & FolderName & " " & ActiveCell.Offset(, 1).Value & " " & "-" & " " & ActiveCell.Offset(, 9).Value

        On Error GoTo 0                     
        End If       
    Else             
        End If 
End Sub
--------
Men jeg skal også have oprettet en mappe under Outlook Offentlige mapper med samme oplysninger som ovenstående kode.
Og her står jeg af med mine begrænsede evner  :)

En der kan hjælpe mig? Jeg kvitterer med kys og kram og virtuelle highfives?