getting the name of the pst file

Status
Not open for further replies.
R

Russ

Does anyone know the line of code line that will return the name of the pst

file currently selected. Below is part of the code that precedes where I

want to insert the line to get the pst file name

Sub ExportToExcel()

On Error GoTo ErrHandler

Dim appExcel As Excel.Application

Dim wkb As Excel.Workbook

Dim wks As Excel.Worksheet

Dim rng As Excel.Range

Dim strSheet As String

Dim strPath As String

Dim intRowCounter As Integer

Dim intColumnCounter As Integer

Dim msg As Outlook.MailItem

Dim nms As Outlook.NameSpace

Dim fname As Outlook.NameSpace

Dim fld As Outlook.MAPIFolder

Dim itm As Object

strSheet = "email recovery.xlsx"

strPath = "D:\Mod 50 project\pst files Mod 50 project\"

strSheet = strPath & strSheet

'Debug.Print strSheet

'Select export folder

Set nms = Application.GetNamespace("MAPI")

Set fld = nms.PickFolder

'I want to insert the line here'

'more code follows to put the fields in the email messages in the folder

'fld' into an Excel spreadsheet

russ
 
S

Sue Mosher [MVP]

In Outlook 2007, use the Folder.Store.FilePath property. In earlier

versions, you can hack it from the StoreID; see

http://www.outlookcode.com/codedetail.aspx?id=1434

Sue Mosher

"Russ" <Russ> wrote in message

news:6B2F640E-B842-492D-B138-A649D0367C28@microsoft.com...
> Does anyone know the line of code line that will return the name of the
> pst
> file currently selected. Below is part of the code that precedes where I
> want to insert the line to get the pst file name

> Sub ExportToExcel()

> On Error GoTo ErrHandler

> Dim appExcel As Excel.Application
> Dim wkb As Excel.Workbook
> Dim wks As Excel.Worksheet
> Dim rng As Excel.Range
> Dim strSheet As String
> Dim strPath As String
> Dim intRowCounter As Integer
> Dim intColumnCounter As Integer
> Dim msg As Outlook.MailItem
> Dim nms As Outlook.NameSpace
> Dim fname As Outlook.NameSpace
> Dim fld As Outlook.MAPIFolder
> Dim itm As Object

> strSheet = "email recovery.xlsx"
> strPath = "D:\Mod 50 project\pst files Mod 50 project\"
> strSheet = strPath & strSheet
> 'Debug.Print strSheet

> 'Select export folder
> Set nms = Application.GetNamespace("MAPI")
> Set fld = nms.PickFolder
> 'I want to insert the line here'
> 'more code follows to put the fields in the email messages in the folder
> 'fld' into an Excel spreadsheet
> > russ
 
R

Russ

Sue,

Thanks works perfectly. It is a bit more than the one line I thought it

would be. God knows how long it would have taken me on my own.

Again, many thanks.

russ

"Sue Mosher [MVP]" wrote:


> In Outlook 2007, use the Folder.Store.FilePath property. In earlier
> versions, you can hack it from the StoreID; see
> http://www.outlookcode.com/codedetail.aspx?id=1434
> > Sue Mosher
> > >

> "Russ" <Russ> wrote in message
> news:6B2F640E-B842-492D-B138-A649D0367C28@microsoft.com...
> > Does anyone know the line of code line that will return the name of the
> > pst
> > file currently selected. Below is part of the code that precedes where I
> > want to insert the line to get the pst file name
> > Sub ExportToExcel()
> > On Error GoTo ErrHandler
> > Dim appExcel As Excel.Application
> > Dim wkb As Excel.Workbook
> > Dim wks As Excel.Worksheet
> > Dim rng As Excel.Range
> > Dim strSheet As String
> > Dim strPath As String
> > Dim intRowCounter As Integer
> > Dim intColumnCounter As Integer
> > Dim msg As Outlook.MailItem
> > Dim nms As Outlook.NameSpace
> > Dim fname As Outlook.NameSpace
> > Dim fld As Outlook.MAPIFolder
> > Dim itm As Object
> > strSheet = "email recovery.xlsx"
> > strPath = "D:\Mod 50 project\pst files Mod 50 project\"
> > strSheet = strPath & strSheet
> > 'Debug.Print strSheet
> > 'Select export folder
> > Set nms = Application.GetNamespace("MAPI")
> > Set fld = nms.PickFolder
> > 'I want to insert the line here'
> > 'more code follows to put the fields in the email messages in the folder
> > 'fld' into an Excel spreadsheet
> > > > russ


> .
>
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
E Getting Outlook full name correct with AddressLayout Using Outlook 1
J Getting Contact Name to show on Calendar Using Outlook 2
A issue with the sender's name getting changed Outlook VBA and Custom Forms 1
V Outlook 2016 Multiple recurring tasks getting created Using Outlook 0
P PST file is getting huge under POP 3 Using Outlook 2
N contact notepad 'style' getting changed after clicking and running Activities Using Outlook 2
S Outlook [Online - Office365] perfomance is getting affected when accessing the mails using Redemptio Using Outlook 1
D Close Oulook after sending emails via vba without outbox getting stuck. Outlook VBA and Custom Forms 1
C im getting a type mismatch error Outlook VBA and Custom Forms 3
William getting custom form to load category colors Outlook VBA and Custom Forms 4
C Getting back previous computer owner Outlook email Using Outlook.com accounts in Outlook 1
B Recipient of a forwared message getting multiple emails Using Outlook 2
S Outlook 2010 I am getting error code 0x8DE00006 'the operation failed'. outlook 2010 send/receive progress Using Outlook.com accounts in Outlook 2
S Mails getting downloaded multiple times Using Outlook 1
Rory Campion Not getting a warning when a shared calendar item has been updated by someone else Using Outlook 2
E Getting IMAP email into existing pst file Using Outlook 6
J Just installed Outlook 2010 on computer and user is getting a 0x80004005 error Using Outlook.com accounts in Outlook 1
R Getting a colleagues appointments and calendar entries Using Outlook 1
P I'm getting an error when opening Outlook "Mobile me stopped working Using Outlook 1
D Need Help with Script. Keep getting Runtime Error 438 BCM (Business Contact Manager) 4
R Need help getting BCM to work with my Outlook 2014 Using Outlook 4
D Help Getting Started? BCM (Business Contact Manager) 4
P I am getting an error msg = cannot open file access denied Using Outlook 3
K why is a user getting email respond for invite respond that she didn't set up. Using Outlook 3
B email getting cut off Using Outlook 9
L Need help getting calendar/contacts/tasks/notes back! Using Outlook 3
M Email Format getting changed to Plain Text Using Outlook 1
G Outlook 2013: Getting meeting invites in OWA format Using Outlook 9
M Getting messages from multiple email address Using Outlook 1
B not getting email from people Using Outlook 3
L Outlook 2010 - Keep getting "Corrupted File" Msgs Using Outlook 4
mrje1 Assigned Categories keep getting deleted in mail, bug? How to fix if possible? Using Outlook 5
Commodore Why some RSS feeds stop getting updates? Using Outlook 12
M All e mails seem to be getting blocked BCM (Business Contact Manager) 7
J Send/receive getting stuck Using Outlook.com accounts in Outlook 1
R Getting my Claendar additions to appear in Outlook Today Using Outlook 7
D outlook getting stuck receiving Using Outlook 1
Y MICROSOFT OUTLOOK 2007 - i KEEP GETTING THE "ENTER NETWORK PASSWORD" BOX POPPING UP - IT IS ALREADY Using Outlook 4
T getting an error This file does not have a program associated with it for performing this action. C Using Outlook 7
C getting the subject line out of a mail Outlook VBA and Custom Forms 2
S Trying to install BCM 2010 x64, getting error BCM (Business Contact Manager) 8
Q I cannot start Outlook 2007 I keep getting this error: __'Cannot start outlook window. Invalid XML,the view cannot be loaded.' Using Outlook 3
N Getting the attachments in MailItem Outlook VBA and Custom Forms 1
K Getting (internal) sender's account ID (userID) Outlook VBA and Custom Forms 2
S MAcro - Need help in getting the recipients in to filed / cc field toput in an array Outlook VBA and Custom Forms 4
C Getting Error message BCM (Business Contact Manager) 1
J I'm getting an error code 8 when try to access my exchange account Using Outlook 6
D Getting Started - Reading attachment Outlook VBA and Custom Forms 4
H For Each loop not getting all Email Items Outlook VBA and Custom Forms 3
J Getting values of custom categories set on Calendar folder Outlook VBA and Custom Forms 2

Similar threads

Top