Solved

FolderPath to access a personal folder

Posted on 2002-07-10
5
644 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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

[Webinar] Learn How Hackers Steal Your Credentials

Do You Know How Hackers Steal Your Credentials? Join us and Skyport Systems to learn how hackers steal your credentials and why Active Directory must be secure to stop them. Thursday, July 13, 2017 10:00 A.M. PDT

Question has a verified solution.

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

When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Suggested Courses
Course of the Month8 days, 19 hours left to enroll

615 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