FALTA: Microsoft Outlook 15.0 Object Library

[omarzinho86]

Buenas tardes con todos, por favor su apoyo, descargue una macro para probar envío de correos masivo y me sale este error

Error de compilación:
No se puede encontrar el proyecto o la biblioteca.

luego de eso reviso en Herramientas>Referencia y me sale que falta Microsoft Outlook 15.0 Object Library, estoy buscando que DLL es pero no tengo ninguna respuesta en alguna web. Por favor su apoyo es de suma urgencia.
muchas gracias

mi código es

Código [Seleccionar] Expandir


Sub envio_mail2()
'Tambien adjunta archivos
'No necesita abrir el Outlook para hacer la macro

Application.ScreenUpdating = False
'On Error GoTo ende

Dim objOutlook As Object
Dim mItem As Object
Dim ruta_archivo As String

  Range("A5").Select
  Range(Selection, Selection.End(xlDown)).Select
  nume_regi = Selection.Count

ruta_archivo = Cells(13, 5).Value
 
 
For i = 1 To nume_regi
' Set OutlookOBJ = CreateObject("Outlook.Application")
' Set mItem = OutlookOBJ.CreateItem(olMailItem)
   
Enviara = Cells(4 + i, 3)
asunto = Cells(2, 5)
Cuerpo = Cells(5, 5)
empresa = Cells(4 + i, 2)
persona = Cells(4 + i, 1)

With mItem
    .To = Enviara
    .Subject = asunto & " para " & empresa
    .Body = "Hola " & persona & vbCrLf & vbCrLf & Cuerpo & vbCrLf & vbCrLf & "Saludos Cordiales"
    '.Send
End With

If ruta_archivo <> "" Then
    With mItem
    .Attachments.Add (ruta_archivo)
    End With
End If

    With mItem
    .Send
    End With


Next i

Range("A5").Select

Application.ScreenUpdating = True
Set OutlookOBJ = Nothing
Set mItem = Nothing

MsgBox ("Finalizado se enviaron " & nume_regi & " Correos con exito")
Exit Sub

ende:
MsgBox "no se mandaron los correos verificar informacion"

End Sub



[silver_axe007]

Lo que pasa es que esto debess hacerlo con una maquina que tenga Outlook el  15.0 depende de la version que tengas instalada, cabe indicar que esto usara Outlook para poder realizar el envio.

en mi caso tengo esa libreria pues tengo instalado el Officce 2013 (si tuvieras la 2010 seria outlook 14.0)

Espero te ayude esta resuesta
Saludos desde Ecuador.

Andres