I want to know that how can I get the outlook default PST size by using VB.NET

Question

1.00/5 (2 votes)

See more:

I want to know how can I get the size of the default Outlook PST file by using VB.net.
I want to display this on the Main page of my project so that if the pst size exceeds 3 GB then it shows pop up message.
Thanks in Advance.

What I have tried:

.

Posted 8-Sep-17 20:41pm

Member 10616186

Updated 8-Sep-17 22:46pm

RickZeeland

v2

Add a Solution

Comments

Richard MacCutchan 9-Sep-17 3:02am

Use the Outlook Interpol classes.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

RickZeeland · Answer 1 · 2017-09-08T21:44:00

Solution 1

Assuming that you know the location of the .pst file, you can use System.IO.FileInfo, see example here: [Dotnetperls]

Maybe this will be of help finding the path of the .pst file: winapi - How to find full path of Outlook .pst file? - Stack Overflow[^]
When using the above example, be sure to add Microsoft.Office.Interop.Outlook reference first, then you should import namespace, see explanation here: Outlook is not declared[^]

Posted 8-Sep-17 21:44pm

RickZeeland

Updated 8-Sep-17 22:52pm

v3

Comments

Member 10616186 9-Sep-17 4:34am

Sir,

It shows the error

Private Sub PstFiles()
Dim f As MAPIFolder

For Each f In Session.Folders
Debug.Print f.StoreID
Debug.Print GetPathFromStoreID(f.StoreID)
Next f
End Sub

Public Function GetPathFromStoreID(sStoreID As String) As String
On Error Resume Next
Dim i As Long
Dim lPos As Long
Dim sRes As String

For i = 1 To Len(sStoreID) Step 2
sRes = sRes & Chr("&h" & Mid$(sStoreID, i, 2))
Next

sRes = Replace(sRes, Chr(0), vbNullString)
lPos = InStr(sRes, ":\")

If lPos Then
GetPathFromStoreID = Right$(sRes, (Len(sRes)) - (lPos - 2))
End If
End Function

RickZeeland 9-Sep-17 4:39am

??? what's the error message ?

Member 10616186 9-Sep-17 4:48am

Type 'MAPIFolder' is not defined
'Session' is not declared.
'Public ReadOnly Property Right As Integer' has no parameters and its return type cannot be indexed.
Reference to a non-shared member requires an object reference.