Jump to content

Macro pegar cuerpo email recibido


Recommended Posts

Macro pegar cuerpo email recibido en una variable

Buenas noches compañeros, no se mucho de excel y necesito su ayuda, estoy haciendo una macro que me copie el cuerpo de un correo y me lo pegue en Excel pero no que me copie todo el cuerpo en una celda si no como viene en el correo por ejemplo si el correo es:

[ATTACH]29920.vB[/ATTACH]

Pegar asi

[ATTACH]29921.vB[/ATTACH]

en varias celdas

Hasta el momento copio todos mis correos en una capeta que cree en la bandeja de entrada llamada "audicase" y luego cuando finaliza la macro me los pasa a una subcarpeta que se llama procesados, todo eso me funciona bien...

Esto es lo que llevo


'' ***************************************************************************''
'' CORREOS AUDICASE ''
'' Propósito : Revisa una carpeta de la bandeja de entrada y guarda la ''
'' info en excel ''
'' Escrito : 08-May-2012 ''
'' ***************************************************************************''
' NOTAS:
' La Carpeta de la bandeja de entrada (Audicase) y el subfolder (Procesados) donde se guardarán los mensajes debe existir
' Este código requiere agregar una referencia al Microsoft Outlook 8.0 Object Model

Sub salvarcorreo()

'Declaración de variables
Dim appOl As New Outlook.Application
Dim ns As Outlook.Namespace
Dim Inbox As Outlook.MAPIFolder
Dim SubFolder As Outlook.MAPIFolder
Dim ProceFolder As Outlook.MAPIFolder
Dim Item As Object
Dim Atmt As Outlook.Attachment
Dim FileName As String
Dim i As Integer
Dim j As Integer
Dim varResponse As Variant
Dim cuerpo As Object
Dim cantidad As Integer
Set ns = appOl.GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)
Dim strBody As String

'Conteo de mensajes procesados
cantidad = 0

'Carpeta donde guarda los mensajes
Set ProceFolder = Inbox.Folders("Audicase").Folders("Procesados")

' Nombre de la subcarpeta de la bandeja de entrada
Set SubFolder = Inbox.Folders("Audicase")
i = 0

' Revisa si hay mensajes en la subcarpeta
If SubFolder.Items.Count = 0 Then
MsgBox "No hay mensajes.", vbInformation, "No se encontraron mensajes"
Exit Sub
End If

' Copia cada titulo de mensaje en la celda
i = 2
On Error Resume Next
For Each Item In SubFolder.Items

'*********************************Aqui va toda la Macro************************************
Range("A2").Activate
ActiveCell.FormulaR1C1 = Item.Subject
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = Item.ReceivedTime
ActiveCell.Offset(0, 1).Select
Item.Body.Copy
ActiveCell..Paste

'*******************************************************************************************
cantidad = cantidad + 1
i = i + 1
Next Item


'Copia los correos procesados a la carpeta
For j = 0 To cantidad
For Each Item In SubFolder.Items
Item.Move ProceFolder
Next Item
Next j


'Mesnaje de procesado
MsgBox "Se han copiado " & cantidad & " de elementos a Excel"

' Limpiar memoria
Set objItem = Nothing
Set Atmt = Nothing
Set Item = Nothing
Set ns = Nothing
Set appOl = Nothing
Exit Sub
End Sub
[/CODE]

Muchas gracias por la ayuda.....

post-48990-145877004687_thumb.jpg

post-48990-145877004689_thumb.jpg

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

    • La función contar.si.conjunto me funcionó y me dio la cantidad correcta de "envíos a domicilio" dentro de "general" y "crm" pero como hay clientes que dentro del mes repiten el servicio me dan un número general, yo necesitaría al resultado que me dan contar.si.conjunto descontar los clientes duplicados, es decir, que usaron el servicio más de una vez. Gracias por tu tiempo!!!
    • Hola a todos; Os dejo una macro donde al iniciar el formulario se carga la imagen desde una Url. -Primero la descarga a una ruta y después la elimina. Dejo aquí la macro por si le interesa a alguno.   Saludos. MCargarImagenUrl.xlsm
    • o... a reserva de que tu modelo "real" tenga elementos que no "se ven" en tu consulta ? prueba con la muestra del adjunto (aunque hay mas alternativas), funciona desde xl-2007 cuentaUnicos vCondiciones (ayudaExcel).xlsx
    • en tanto aclaras esta parte: mira por aqui: - Función CONTAR.SI.CONJUNTO
    • Hola a todos, es mi primer post y realmente necesito la ayuda, mi nombre es German y tengo el siguiente problema a resolver, tengo una base de datos que se actualiza constantemente con la que esta abajo, necesito obtener los siguientes resultados: ¿cuantos "envios a domicilio" de "general" se hicieron obteniendo como resultados valores unicos (contar los datos unicos sobre esos criterios)? y la misma resupuesta sobre "clientes crm". Desde ya muchas gracias, no me da la capacidad para resolver este problema! Gracias de nuevo! Evelin Beltran 159 Envio a Domicilio General Camila Nansen 248 Envio a Domicilio General Alejandra Uspallata 305 Envio a Domicilio General Ana Marìa "La Poro" Damas Mendocinas 647 Envio a Domicilio General Georgina Gallini 1268 Envio a Domicilio General Susana Mazza 1019 Envio a Domicilio General Valu Galdos 638 Envio a Domicilio General Irene Jose Hernandez 1337 Envio a Domicilio clientes cmr Liendo Olivé 1546 Envio a Domicilio General Cristina J. C. Paz 646 Envio a Domicilio General Sebastian Esteco 745 Envio a Domicilio General MARIA DE NAPOLI. Envio a Domicilio clientes cmr Cristina J. C. Paz 646 Envio a Domicilio General Julia J. C. Paz 656 Envio a Domicilio clientes cmr Isabel Triunvirato 521 Envio a Domicilio General Ana Marìa "La Poro" Damas Mendocinas 647 Envio a Domicilio General Julia J. C. Paz 656 Envio a Domicilio clientes cmr      
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy