¿Cómo pedo crear carpetas desde Excel en Outlook 2010?
Estoy desarrollando una aplicación con Excel y me he encontrado con un problema que no se solucionar. Me gustaría poder crear carpetas en Outlook, desde una macro de vba de Excel.
Las carpetas tendrían que colgar de la bandeja de entrada y se tendría que crear con un nombre especifico.
Consigo vincular Excel y Outlook, pero no sé como crear las carpetas.
Sub Crear_Carpeta()
Dim OutApp As Object
Dim objFolder As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.logon
Set objFolder = OutApp.CreateItem(olfolderitem)
objFolder.Add (NombreCarpeta)
'NombreCarpeta esta declarada como Public y se informa desde otra macro.
Set objFolder = Nothing
Set OutApp = Nothing
End Sub
1 respuesta
H o l a:
Te anexo una macro:
Sub Macro4()
'Por.Dante Amor
'Crear carpetas en oulook
'Referencia: https://support.microsoft.com/en-us/kb/208520
'
nombrecarpeta = "Nueva carpeta entradas"
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set MyInboxFolder = olns.GetDefaultFolder(olFolderInbox)
Set MyNewFolder = MyInboxFolder.Folders.Add(nombrecarpeta)
End Sub':) ':)
¡Gracias!
No me ha funcionado. snif... snif...
Pero al final he encontrado la solución.
Public Sub Crear_Carpeta()
With CreateObject("outlook.application")
With .GetNamespace("mapi")
With .GetDefaultFolder(6)
.Folders.Add "Creada desde Excel"
End With
End With
End With
End Sub
H o l a:
Tal vez por la versión no te funciona la macro, La clave está en esta instrucción:
Folders. Add(nombrecarpeta)
':) ':)
