Hola, malcolm29.
Eso es simple. Cambiar esta línea de código
Fijar OLF = GetObject ("", “Outlook.Application”) .GetNamespace (“MAPI”) .GetDefaultFolder (el olFolderInbox)
a
Fijar OLF = GetObject ("", “Outlook.Application”) .GetNamespace (“MAPI”) .GetDefaultFolder (olFolderInbox). Carpetas (“boletos”)