Escribir nombres de carpetas Outlook en excel
Publicado por GnxLane (1 intervención) el 04/01/2020 05:15:20
Necesito escribir en un archivo excel todos los nombres de los subdirectorios de una carpeta seleccionada desde Outlook, estoy tratando de crearlo a partir de este codigo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Public gFolders As String
Public Sub GetFolderNames()
Dim oSession As Outlook.NameSpaceDim oFolder As Outlook.MAPIFolderDim oNewMail As Outlook.MailItemSet oSession = Outlook.Application.GetNamespace("MAPI")
Set oFolder = oSession.PickFolder
If (oFolder Is Nothing) Then Exit Sub
'llama a procedimientoProcessFolder oFolder
Set oNewMail = Application.CreateItem(olMailItem)
oNewMail.Body = gFolders
oNewMail.DisplaygFolders = ""
End Sub
Sub ProcessFolder(CurrentFolder As Outlook.MAPIFolder)
Dim i As Long
Dim oSubFolder As Outlook.MAPIFolderDim oFolder As Outlook.MAPIFolderDim sFolderPaths As String
key = 0lRegValue = 0For i = CurrentFolder.Folders.Count To 1 Step -1
Set oFolder = CurrentFolder.Folders(i)
sFolderPaths = oFolder.FolderPath
'Devuelve nombre del proyectosFolderPaths = oFolder.Name
gFolders = gFolders & vbCrLf & sFolderPaths
Next
Valora esta pregunta
0