Utilizamos Cookies de terceros para generar estadísticas de audiencia y mostrar publicidad personalizada analizando tu navegación. Si sigues navegando estarás aceptando su uso. Más información X
PortadaForo AyudaTutoriales
InicioForosForo Office

MACRO PARA EXCEL CON OUTLOOK

JONAGUPIN
2007-12-10 01:18 - Respuestas: 0 - Tema nº: 2486919


Características: Windows XP Home, 256mb 250 gb dd intel4200 mhtz.

Me gustaria conocer como realizo una macro para que los correos que vaya recibiendo en el correo (Outllok) los vaya contabilizando la hoja de calculo (microsoft excel) para llevar un control en la empresa de los correos que recibimos y de esa manera no tener que hacerlo manualmente ya que resulta muy pesado.

Ejemplo: uso este codigo
Sub ImportarContactos()

Dim olApp As Outlook.Application
Dim olContacts As Outlook.MAPIFolder
Dim olContact As Outlook.ContactItem
Dim i As Integer

Set olApp = New Outlook.Application
Set olContacts = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)

'rotulos
Cells(1, 1) = "Nombre"
Cells(1, 2) = "E-mail"
Cells(1, 3) = "Título"
Cells(1, 4) = "Empresa"
Cells(1, 5) = "Tel (casa)"
Cells(1, 6) = "Tel (móbil)"
Cells(1, 7) = "Tel (trabajo)"
Cells(1, 8) = "Fax (trabajo)"
Cells(1, 9) = "Dir. (empresa)"
Cells(1, 10) = "Postal (empresa)"
Cells(1, 11) = "Ciudad (empresa)"
Cells(1, 12) = "País (empresa)"
Cells(1, 13) = "Dir. (casa)"
Cells(1, 14) = "Postal (casa)"
Cells(1, 15) = "Ciudad (casa)"
Cells(1, 16) = "País (Casa)"

'importar contact items
For i = 2 To olContacts.Items.Count
If TypeOf olContacts.Items.Item(i) Is _Outlook.ContactItem Then
Set olContact = olContacts.Items.Item(i)
Cells(i, 1) = olContact.FullName
Cells(i, 2) = olContact.Email1Address
Cells(i, 3) = olContact.JobTitle
Cells(i, 4) = olContact.CompanyName
Cells(i, 5) = olContact.HomeTelephoneNumber
Cells(i, 6) = olContact.MobileTelephoneNumber
Cells(i, 7) = olContact.BusinessTelephoneNumber
Cells(i, 8) = olContact.BusinessFaxNumber
Cells(i, 9) = olContact.BusinessAddressStreet
Cells(i, 10) = olContact.BusinessAddressPostalCode
Cells(i, 11) = olContact.BusinessAddressCity
Cells(i, 12) = olContact.BusinessAddressCountry
Cells(i, 13) = olContact.HomeAddressStreet
Cells(i, 14) = olContact.HomeAddressPostalCode
Cells(i, 15) = olContact.HomeAddressCity
Cells(i, 16) = olContact.HomeAddressCountry
End If
Next

'eliminar variables de los objetos
Set olContact = Nothing
Set olContacts = Nothing
Set olApp = Nothing

'ordenar lista por Nombre
Cells.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess

End Sub


Pero me marca un error ¿Alguien me puede ayudar?
Basicamente lo que necesito preferentemente es correr una macro desde excel y que me aparezca en forma de tabla los correos recibidos.

Por la atenciónmuchas gracias



Página:1

Respuestas relacionadas:

Macro en excel 2003Macro en excel 2003Foro
Hacer macro en excel Hacer macro en excel Foro
Macro excel buscar celdaMacro excel buscar celdaForo
Macro en excel cronometro con decimasMacro en excel cronometro con decimasForo
Macro de búsqueda y eliminacion de excelMacro de búsqueda y eliminacion de excelForo
Habilitar macro en excel 2003Habilitar macro en excel 2003Foro
Ayuda macro excel-visual basic(api)Ayuda macro excel-visual basic(api)Foro
Crear un .bat para ejecutar una macro de excelCrear un .bat para ejecutar una macro de excelForo
Macro en código vb para excel (solucionado)Macro en código vb para excel (solucionado)Foro
Macro en excel para análisis de fourierMacro en excel para análisis de fourierForo
InicioSecciones
^ SubirAviso legal
Política Privacidad
Configurarequipos22 Noviembre 2024