| Pregunta: | 11201 - ABRIR ARCHIVO .MSG DESDE VISUAL BASIC |
| Autor: | Mónica Cresencio Martínez |
| Hola, intento abrir un archivo .msg con el VB6 sin referenciar la libreria de Outlook, pero no lo consigo:
Set MSApp = CreateObject("Outlook.Application") Set MSSpace = MSApp.GetNameSpace("MAPI") Set MSMailMsg = MSApp.????? Gracias. | |
| Respuesta: | Alma Rocio Gomez Orozco |
| Hola Monica, te envío esto.....
Primero debes de declara el objeto para notas, y puede ser de la siguiente manera: Dim s As NoteItem Dim TheItems As Items 'Para cargar en esta variable todas tus notas Dim Folder As Outlook.MAPIFolder 'Variable para acceder al buzón de Notes Dim objOL As Outlook.Application ' Aquí creas una instancia de OutLook Set objOL = New Outlook.Application Set objns = Outlook.Application.GetNamespace("MAPI") ' Aqui estoy accediendo al buzón de las Notas Set Folder = objns.GetDefaultFolder(olFolderNotes) ' Cargo todos los items de la Carpeta Notes para verificar si estás accediendo Set TheItems = Folder.Items Espero que te sirva. Saludos | |