Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
[blue]Sub OpenPSTs()
Dim ns As NameSpace
Dim fn As String
Set ns = Application.GetNamespace("MAPI")
Open "C:\Documents and Settings\Tony\Desktop\pstlist.txt" For Input As #1
Do Until EOF(1)
Input #1, fn
ns.AddStore fn
Loop
Close #1
Set ns = Nothing
End Sub[/blue]