VB contra Outlook
Publicado por llermo (28 intervenciones) el 12/01/2005 11:40:24
Saludos a todos
Estoy desarrollando una aplicacion en VB6 que lo que hace es recorrer toda la bandeja de entrada de Microsoft Outlook y mover los mensajes automaticamente y más acciones según el remitente del email.
No he tenido ningún problema hasta que me he econtrado con una versión de Outlook que contiene el SP3 en cuyo caso aparece un mensaje indicando el siguiente mensaje:
"Un programa está intentando obtener acceso a las direcciones de correo electrónico almacenadas en Outlook. ¿Desea permitirlo?"
Esta ventana tiene un desplegable que indica permitir la acción durante: 1, 3, 5 ó 10 minutos.
Yo estoy recogiendo la dirección de correo del remitente de la siguiente manera:
Dim objItem As Outlook.MailItem
Dim objSession As MAPI.Session
Dim objAddrEntry As MAPI.AddressEntry
Dim objCDOMsg As MAPI.Message
strEntryID = objItem.EntryID
strStoreID = objItem.Parent.StoreID
Set objCDOMsg = objSession.GetMessage(strEntryID, strStoreID)
Set objAddrEntry = objCDOMsg.Sender
If objAddrEntry Is Nothing Then
GrabaLog frmMain.lstInformacion, "No se pudo recoger la direccion del remitente."
Exit Function
End If
strFrom = objAddrEntry.Address
Set objAddrEntry = Nothing
Set objCDOMsg = Nothing
¿Alguien conoce alguna otra manera?
Muchas gracias por vuestra atención.
Estoy desarrollando una aplicacion en VB6 que lo que hace es recorrer toda la bandeja de entrada de Microsoft Outlook y mover los mensajes automaticamente y más acciones según el remitente del email.
No he tenido ningún problema hasta que me he econtrado con una versión de Outlook que contiene el SP3 en cuyo caso aparece un mensaje indicando el siguiente mensaje:
"Un programa está intentando obtener acceso a las direcciones de correo electrónico almacenadas en Outlook. ¿Desea permitirlo?"
Esta ventana tiene un desplegable que indica permitir la acción durante: 1, 3, 5 ó 10 minutos.
Yo estoy recogiendo la dirección de correo del remitente de la siguiente manera:
Dim objItem As Outlook.MailItem
Dim objSession As MAPI.Session
Dim objAddrEntry As MAPI.AddressEntry
Dim objCDOMsg As MAPI.Message
strEntryID = objItem.EntryID
strStoreID = objItem.Parent.StoreID
Set objCDOMsg = objSession.GetMessage(strEntryID, strStoreID)
Set objAddrEntry = objCDOMsg.Sender
If objAddrEntry Is Nothing Then
GrabaLog frmMain.lstInformacion, "No se pudo recoger la direccion del remitente."
Exit Function
End If
strFrom = objAddrEntry.Address
Set objAddrEntry = Nothing
Set objCDOMsg = Nothing
¿Alguien conoce alguna otra manera?
Muchas gracias por vuestra atención.
Valora esta pregunta
0