Solved

FolderPath to access a personal folder

Posted on 2002-07-10
5
628 Views
Last Modified: 2009-12-16
I want to open a folder that is in a personal folder (instead of \\outlook\inbox it is \\personal folder\pacc) but cannot seem to be able to point.  My main goal is to open that folder up and save each mailitem in that folder as a .txt file with the subject and the date being the file name.  Do I still use Set fldFolder = nmsName.GetDefaultFolder(olFolderInbox) to access the folder?

My code is starting to look something like:

Sub PACC_Club_Mail()
 
 Dim myItem As Inspector
 Dim objItem As Object

 Set myOlApp = CreateObject("Outlook.Application")
 Set myNamespace = myOlApp.GetNamespace("MAPI")
 Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
 Set myItem = myOlApp.ActiveInspector
 
  If Not TypeName(myItem) = "Nothing" Then
      Set objItem = myItem.CurrentItem
      strname = objItem.Subject
      objItem.SaveAs "C:\" & strname & ".txt", olTXT
  Else
      MsgBox "There is no current active Inspector."
  End If

myFolder.Display
Set myNewItem = myFolder.Items(1)
myNewItem.Display

End Sub

Of course this uses ActiveInspector but I want it to automatically go into the folder and perform the saveas without any mailitems opened.

Kevin
0
Comment
Question by:kph1
  • 3
  • 2
5 Comments
 
LVL 43

Accepted Solution

by:
TimCottee earned 200 total points
ID: 7145440
Dim fdrPACC As MAPIFolder
Dim appOutlook As Outlook.Application
Dim nspMAPI As NameSpace
Set appOutlook = CreateObject("Outlook.Application")
Set nspMAPI = appOutlook.GetNamespace("MAPI")
Set fdrPACC = nspMAPI.Folders("Personal Folders").Folders("pacc")
For i = fdrPACC.Items.Count To 1 Step -1
  Set mtmItem = fdrPACC.Items(i)
  With mtmItem
    .SaveAs "c:\" & .Subject & ".txt",otTXT
  End With
Next
' then destroy objects.
0
 

Author Comment

by:kph1
ID: 7149528
I keep receiving an error on the following line

.SaveAs "c:\" & .Subject & ".txt", olTXT

Kevin
0
 
LVL 43

Expert Comment

by:TimCottee
ID: 7149554
Kevin, it may be because the subject line contains characters that are not valid as a file name, such things as:

/\: etc
0
 

Author Comment

by:kph1
ID: 7149786
You were right.  Thank you.

How could I cycle through each .Subject line and replace the "\/:" characters with spaces?

Kevin
0
 
LVL 43

Expert Comment

by:TimCottee
ID: 7153632
You can use a replace command:

Dim strSubject As String
strSubject = Replace(Replace(Replace(.Subject,"\"," "),"/"," "),":"," ")
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Problem to skip loop 6 64
VB error "Type mismatch" 2 60
to transfer string from C lanaguage to VBA 4 72
Using an encrypted  value to decrypt and display contents in vb6 9 55
Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

860 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question