-
¿Cómo utilizar la función Insertar de un mensaje de Outlook en Excel
-
Mientras que el acceso y el uso de la función de inserción en Excel requiere un poco de trabajo, puede ser vale la pena el trabajo que se requiere si usted es capaz de integrar los mensajes de Outlook que espera para ser empotrado. Para exportar correctamente los mensajes desde Outlook a Excel, debe utilizar un determinado código de exportación.
Instrucciones
1 Abra Outlook y presiona "Alt" y "F11".
2 Seleccione la opción "Módulo" en el menú "Insertar".
3 Escriba el siguiente código:
Sub ExportToExcel ()
On Error GoTo ErrHandler
Dim Dim appExcel Como Excel.Application wkb Como Excel.Workbook
sem dévil como Excel.Worksheet
RNG tenue Como Excel.Range
Dim como secuencia strSheet
Dim como secuencia strPath
Dim intRowCounter como número entero
Dim intColumnCounter como número entero
msg tenue Como Outlook.MailItem
NMS dévil como Outlook.NameSpace
FLD tenue Como Outlook.MAPIFolder
Dim ITM como objeto
strSheet = "OutlookItems.xls" strPath = "C:Examples\"
strSheet = strPath y strSheet
Debug.Print strSheet
"Seleccionar carpeta de exportación
Set NMS = Application.GetNamespace ( "MAPI")
Establecer FLD = nms.PickFolder
"Manejo de errores potenciales con el cuadro de diálogo Seleccionar carpeta.
Si FLD es nada Entonces
MsgBox "No hay mensajes de correo para exportar", vbOKOnly, _
"Error"
Exit Sub
ElseIf fld.DefaultItemType <> Entonces olMailItem
MsgBox "No hay mensajes de correo para exportar", vbOKOnly, _
"Error"
Exit Sub
ElseIf fld.Items.Count = 0 Entonces
MsgBox "No hay mensajes de correo para exportar", vbOKOnly, _
"Error"
Exit Sub
Terminara si
'Libro de Excel abierto y activar.
Establecer appExcel = CreateObject ( "Excel.Application")
appExcel.Workbooks.Open (strSheet)
Establecer wkb = appExcel.ActiveWorkbook
Set WKS = wkb.Sheets (1)
wks.Activate
appExcel.Application.Visible = True
El ejemplar para los elementos de campo en la carpeta de correo.
Para cada ITM En fld.Items
intColumnCounter = 1
Msg = ITM
intRowCounter = intRowCounter + 1
Establecer rng = wks.Cells (intRowCounter, intColumnCounter)
rng.Value = msg.To
intColumnCounter = intColumnCounter + 1
Establecer rng = wks.Cells (intRowCounter, intColumnCounter)
rng.Value = msg.SenderEmailAddress
intColumnCounter = intColumnCounter + 1
Establecer rng = wks.Cells (intRowCounter, intColumnCounter)
rng.Value = msg.Subject
intColumnCounter = intColumnCounter + 1
Establecer rng = wks.Cells (intRowCounter, intColumnCounter)
rng.Value = msg.SentOn
intColumnCounter = intColumnCounter + 1
Establecer rng = wks.Cells (intRowCounter, intColumnCounter)
rng.Value = msg.ReceivedTime
Siguiente ITM
Establecer appExcel = nada Fijar wkb = Nada
Conjunto de WKS = Nada
Establecer RNG = Nada
Msg = Nada
Set NMS = Nada
Conjunto FLD = Nada
Establecer ITM = nada
Exit Sub
ErrHandler: Si Err.Number = 1,004 Luego
MsgBox strSheet y "no existe", vbOKOnly, _
"Error"
Más
MsgBox Err.Number & "; Descripción:", vbOKOnly, _
"Error"
Terminara si
Establecer appExcel = Nada
Establecer wkb = Nada
Conjunto de WKS = Nada
Establecer RNG = Nada
Msg = Nada
Set NMS = Nada
Conjunto FLD = Nada
Establecer ITM = nada
End Sub
4 Haga clic en "Herramientas" y seleccione "Referencia".
5 Haga clic para añadir un cheque a "Biblioteca de objetos de Microsoft Excel." Haga clic en Aceptar."
6 Coloca el cursor en cualquier lugar dentro de la página que incluye el código que introdujo en el paso 3 y pulse la tecla "F5".
7 Haga clic en el menú "Herramientas" en Outlook y seleccione "Macros".
8 Seleccione "ExportToExcel." Haga clic en Siguiente." Aparece el cuadro de diálogo "Seleccionar carpeta".
9 Seleccione la carpeta de Outlook que desea incrustar en Excel.
10 Haga clic en Aceptar." El código se abrirá un libro de Excel e integrar la información de la carpeta seleccionada en el documento.