Barra de herramientas se duplica .. en Outlook 2007

Algo que estoy confirmando sobre este tema ... cada vez que clickeo sobre
Elementos Eliminados, o cualquier carpeta y puedo visualzar a la derecha los
mails contenidos ... se agrega una copia de la barra de herramientas ...
No es virus que será entonces ?


"Sandra Pesci" escribió en el mensaje
news:

Hola amigos. En mi Notebook Dell con XP Sp3 tenía el Office 2003 desde
hace tiempo, y por nuevas necesidades instalé el Office 2007 . A partir de
allí todo me funciona perfectamente a excepción del Outlook . Cuando
clickeo en bandeja de entrada o de salida en el mismo momento se me
genera una nueva barra estándar Cuando visualizo la lista desplegable
del menú herramientas, me muestra la barra estandar tantas veces como esté
visible ( 5 o 10 veces ). Las cierro ... y vuelve a ocurrir ...

Ya intenté desinstalando el Office 2003 , desinstalando el Office 2007,
pasando el limpiador del Tune Up , reiniciando, y volviendo a instalar el
Office 2007 ... pero sigue ocurriendo lo mismo. He clickeado en restaurar
barra de herramientas y no generó cambios ...
Alguna idea ?

Otra duda pequeña, como puedo tener luna vista por defecto del Outlook
2007 o restaurarla a su estado inicial ?

Salu2 !!!

Sandra Pesci escribió el 22/04/2010 20:06 :

Hola amigos. En mi Notebook Dell con XP Sp3 tenía el Office 2003 desde
hace
tiempo, y por nuevas necesidades instalé el Office 2007 . A partir de
allí
todo me funciona perfectamente a excepción del Outlook . Cuando clickeo
en
bandeja de entrada o de salida en el mismo momento se me genera una
nueva barra estándar Cuando visualizo la lista desplegable del
menú
herramientas, me muestra la barra estandar tantas veces como esté
visible
( 5 o 10 veces ). Las cierro ... y vuelve a ocurrir ...

Ya intenté desinstalando el Office 2003 , desinstalando el Office 2007,
pasando el limpiador del Tune Up , reiniciando, y volviendo a instalar el
Office 2007 ... pero sigue ocurriendo lo mismo. He clickeado en restaurar
barra de herramientas y no generó cambios ...
Alguna idea ?

Otra duda pequeña, como puedo tener luna vista por defecto del Outlook
2007
o restaurarla a su estado inicial ?

Salu2 !!!

Hola Sandra, oye tengo el mismo problema, como lo resolviste? Gracias.

Sandra Pesci escribió el 22/04/2010 20:06 :

Hola amigos. En mi Notebook Dell con XP Sp3 tenía el Office 2003 desde
hace
tiempo, y por nuevas necesidades instalé el Office 2007 . A partir de
allí
todo me funciona perfectamente a excepción del Outlook . Cuando clickeo
en
bandeja de entrada o de salida en el mismo momento se me genera una
nueva barra estándar Cuando visualizo la lista desplegable del
menú
herramientas, me muestra la barra estandar tantas veces como esté
visible
( 5 o 10 veces ). Las cierro ... y vuelve a ocurrir ...

Ya intenté desinstalando el Office 2003 , desinstalando el Office 2007,
pasando el limpiador del Tune Up , reiniciando, y volviendo a instalar el
Office 2007 ... pero sigue ocurriendo lo mismo. He clickeado en restaurar
barra de herramientas y no generó cambios ...
Alguna idea ?

Otra duda pequeña, como puedo tener luna vista por defecto del Outlook
2007
o restaurarla a su estado inicial ?

Salu2 !!!

HOLA,

NO TENGO LA SOLUCION DE RAIZ, PERO LES DEJO UN MACRO QUE LES AYUDARA A BORRAR TODOS LOS DUPLICADOS EN SU BANDEJA DE ENTRADA. LO UNICO QUE TIENEN QUE HACER ES COPIAR EL SIGUIENTE TEXTO Y PEGAR AL EDITOR DE VB DE SU OUTLOOK, UNA VEZ QUE LO TENGAN EN SU EDITOR PRESIONAN "F5" Y ESPEREN A QUE ELIMINE TODOS LOS CORREOS DUPLICADOS.

SALUDOS ESPERO LES SEA DE UTILIDAD, CUALQUIER DUDA CON EL FUNCIONAMIENTO, QUEDO A SUS ORDENES AMIGOS.

CODIGO VB:
-----------------------------------------------------------------------------------------------------------------------

Sub Supr_Duplicados()

Dim Contador As Integer, Fecha As Date, Fecha1 As Date

Dim ns As NameSpace
Dim Inbox As MAPIFolder
Dim Ite As Object
Dim i As Integer
Dim SubFolder As MAPIFolder
Dim Destino As String

Dim olAE As Outlook.AddressEntry

GetAttachments_exit:
Set Atmt = Nothing
Set Item = Nothing
Set ns = Nothing
Set ns = GetNamespace("MAPI")
Set oApp = New Outlook.Application

i = 0
Contador = 0

Set Inbox = ns.GetDefaultFolder(olFolderInbox)

If Inbox.Items.Count = 0 Then
MsgBox "No hay mensajes en tu bandeja de " & Bandeja & ".", vbInformation, _
"Nada de lo encontrado"
Exit Sub
End If

Rta = "c:\Ar.are"

For Each Item In Inbox.Items

Remitente0 = ""
Remitente1 = ""
Asunto = ""
Fecha = 0
Asunto = Item.Subject

If InStr(UCase(Asunto), "READ") = 0 And InStr(UCase(Asunto), "LEÍDO") = 0 And InStr(UCase(Asunto), "ENTREGADO") = 0 And InStr(UCase(Asunto), "NO SE PUEDE ENTREGAR") = 0 Then

Remitente0 = Item.SenderName
Remitente1 = Item.SenderEmailAddress
Fecha = Item.ReceivedTime
Elimina = ""

If Dir(Rta) <> "" Then
Open Rta For Input As #1
While Not EOF(1)
Input #1, Remi0, Remi1, Fecha1, Asunto1
If Remi0 = Remitente0 And Remi1 = Remitente1 And Fecha = Fecha1 And Asunto = Asunto1 Then
Elimina = 1
End If
Wend
Close
If Elimina = 1 Then
Item.Delete
Contador = Contador + 1
Elimina = ""
Else
Open Rta For Append As #1
Write #1, Remitente0, Remitente1, Fecha, Asunto
Close
Elimina = ""
End If
Else
Open Rta For Append As #1
Write #1, Remitente0, Remitente1, Fecha, Asunto
Close
End If
End If

Next Item

Kill Rta
MsgBox Contador & " mensajes eliminados.", vbInformation

End Sub