Comprobar entrega y/o lectura de correo en Outlook 2003

[jomapaca]

Ok, como no he recibido respuestas y a mi me urge esto, tuve que resolverlo creando una función que obtiene el nombre del usuario desde el correo de confirmación de entrega.

Ahora sólo necesito obtener la fecha de entrega del correo, por lo tanto sigo pidiendo sugerencias y su apoyo.

Anexo el código de la función con la que limpio el contenido del correo de confirmación de entrega para apoyo y referencia:


Function BuscaUsuario(sCuerpo As String, sAsunto As String) As String

Dim sResul As String
Dim sUser As String

'Se va limpiando el body del mensaje para dejar solo el usuario y poder localizarlo en la lista de usuarios generada en Excel

sResul = Replace(sCuerpo, "El mensaje se ha entregado a los siguientes destinatarios:", "")
sResul = Replace(sResul, "HYPERLINK", "")
sResul = Replace(sResul, "mailto:", "")
sResul = Replace(sResul, "dominio.com", "") 'Si es un usuario con correo externo
sResul = Replace(sResul, "email.", "") 'Si es un usuario con correo interno
sResul = Replace(sResul, "@", "")
sResul = Replace(sResul, sAsunto, "")
sResul = Replace(sResul, "Enviado por Microsoft Exchange Server 2007", "")
sResul = Replace(sResul, "_", "")
sResul = Replace(sResul, " ", "")
sResul = Replace(sResul, "Asunto:", "")
sResul = Replace(sResul, vbCrLf, "")

sResul = Trim(sResul)

'Busca la cadena que queda entre comillas la cual representa el usuario
For i = 1 To Len(sResul)

If Mid(sResul, i, 1) <> Chr(34) And i > 1 Then
sUser = sUser & Mid(sResul, i, 1)
ElseIf Mid(sResul, i, 1) = Chr(34) And i > 1 Then
Exit For
End If

Next

BuscaUsuario = Trim(sUser)

End Function