Solved

FolderPath to access a personal folder

Posted on 2002-07-10
5
612 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

Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

Join & Write a Comment

The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
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…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

758 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

Need Help in Real-Time?

Connect with top rated Experts

23 Experts available now in Live!

Get 1:1 Help Now