** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Otros Productos Microsoft
  Mensajes nuevos Mensajes nuevos RSS - Outlook no reconoce alguno de los nombres
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoOutlook no reconoce alguno de los nombres

 Responder Responder
Autor
Mensaje
dahhny Ver desplegable
Habitual
Habitual
Avatar

Unido: 16/Mayo/2005
Localización: España
Estado: Sin conexión
Puntos: 133
Enlace directo a este mensaje Tema: Outlook no reconoce alguno de los nombres
    Enviado: 11/Diciembre/2008 a las 13:24
¡Hola a todos!
 
Espero haber puesto correctamente el hilo en este subforo...
 
Tengo un problema con una macro de Outlook, lo que hace es comprobar en una carpeta 'Envios' dentro de la 'Bandeja de Entrada' si hay correos, y uno a uno los envía.
 
Lo he probado en varios ordenadores con Windows XP y Outlook 2003 y funciona perfectamente... pero en uno de ellos me da el siguiente error:
 
-2147467259 Outlook no reconoce alguno de los nombres
 
Os pego el código y resalto en rojo donde me da el error...
 
¿Alguna idea de por qué ocurre? Muchas gracias anticipadas.
 
 
    Dim myFolder As Outlook.MAPIFolder
    Dim AuxFolder As Outlook.MAPIFolder
    Dim Cont As Integer 'Recorrerá el bucle que enviará todos los correos ya creados
    'Dim myForward As Outlook.MailItem 'mail para reenvio
    Dim olNameSpace As NameSpace
      
    'Creamos el espacio de trabajo
    Set olNameSpace = Application.GetNamespace("MAPI")
    'Como carpeta predeterminada, seleccionamos la carpeta de entrada
    Set myFolder = olNameSpace.GetDefaultFolder(olFolderInbox)
    'La Carpeta Auxiliar será 'Envíos', que contendrá los correos a enviar
    Set AuxFolder = myFolder.Folders("Envios")
   
    If AuxFolder.Items.Count = 0 Then 'No hay ningún mensaje de correo en la carpeta 'Envios' para enviar
       
        MsgBox "No hay ningún correo electrónico en la carpeta 'Envíos'" & vbCrLf & "Asegúrese de ejecutar primero la Aplicación Excel correspondiente para crearlos.", vbInformation, "Enviar correos"
   
    Else 'Sí hay algún mensaje de correo en la carpeta 'Envios' para enviar
   
        If MsgBox("¿Desea enviar los correos contenidos en la carpeta 'Envíos' de su usuario?", vbQuestion + vbYesNo, "Enviar correos") = vbYes Then
            'Inicializamos el contador de emails enviados
            Cont = 0
           
            'Recorremos todos los elementos (emails) de la carpeta 'Envios'
            While AuxFolder.Items.Count > 0
               
                AuxFolder.Items(1).Send 'Envía el correo electrónico
                Cont = Cont + 1
            Wend
            MsgBox "Se han enviado " & Cont & " mensajes de correo electrónico." & vbCrLf & "Puede comprobarlo en su bandeja de Mensajes Enviados.", vbInformation, "Enviar correos"
       
        End If 'Pregunta si envía los correos
       
    End If 'AuxFolder.Items.Count = 0
 
 
Arriba
dahhny Ver desplegable
Habitual
Habitual
Avatar

Unido: 16/Mayo/2005
Localización: España
Estado: Sin conexión
Puntos: 133
Enlace directo a este mensaje Enviado: 11/Diciembre/2008 a las 14:05
Ainssssss... cuando uno está espeso, está espeso...
 
Yo pensando que era un problema con el Outlook, y lo que pasaba era que lo que no me estaba reconociendo era el remitente, vamos, que no lo enviaba porque no era una dirección de correo válida.
 
Por mi parte podéis cerrar el hilo.
 
Muchas gracias!
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable