Visual Basic - MAPI

Life is soft - evento anual de software empresarial
 
Vista:

MAPI

Publicado por llermo (28 intervenciones) el 29/12/2004 13:44:16
Tengo 3 objetos: Outlook.Application, MAPI y otro donde guardo la bandeja de entrada.

Tengo en otro objeto un mail, de la manera: objFolder.Items.GetFirst

Mi pregunta es, ¿donde está la dirección de correo del remitente? Estoy mirando todas sus propiedades y lo mas que veo es su nombre (objItem.senderName) pero necesito saber su direccion de correo.

Muchas gracias por la ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:MAPI - Solucion

Publicado por me contesto yo solo (28 intervenciones) el 29/12/2004 15:02:30
Aqui esta el codigo, quiza este un poco sucio y sea un poco dificil de leer, pero os prometo :) que aquí se encierra la solucion

Encontre cierta parte de codigo en alguna web y otra es de mi propia cosecha

sub procesabandeja()

Dim objOutlook As Outlook.Application
Dim objNamespace As Outlook.NameSpace
Dim objFolder As Outlook.MAPIFolder

\'Mail que se recibe
Dim objItem As Outlook.MailItem

Set objOutlook = CreateObject(\"Outlook.Application\") \'Objeto para utilizar Outlook
Set objNamespace = objOutlook.GetNamespace(\"MAPI\") \'Carpetas Personales
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox) \'Bandeja de Entrada

GetEmailAddressSender(objItem)

Set objItem = objFolder.Items.GetFirst

end sub

Sub GetEmailAddressSender(ByVal objItem As MailItem)
Dim objReply As MailItem
Dim objRecips As Outlook.Recipients
Dim objRecip As Outlook.Recipient

Set objReply = objItem.Reply

Set objRecips = objReply.Recipients
For Each objRecip In objRecips
Debug.Print objRecip.AddressEntry
Next

Set objItem = Nothing
Set objReply = Nothing
Set objRecip = Nothing
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar