Leer correo con MAPI
Publicado por Lola (2 intervenciones) el 04/02/2008 12:24:37
Buenas
Necesito leer el correo de Outlook desde Visual basic, esto ya lo he conseguido con controles MAPI, el problema es que en ningún caso le estoy diciendo el servidor, si que le estoy pasando usuario y password, pero me temo que cuando lo pruebe desde otro ordenador no me va a leer correctamante, me podéis ayudar?
Public Sub LeerMAPI(vUser As String, vPassword As String)
Dim X As Integer
' Parámatros de sesión
oMAPISesion.UserName = vUser
oMAPISesion.Password = vPassword
oMAPISesion.DownLoadMail = True
oMAPISesion.SignOn
' Parámetros de Mensaje
oMAPIMensaje.SessionID = oMAPISesion.SessionID
oMAPIMensaje.FetchUnreadOnly = False
oMAPIMensaje.Fetch
For X = 0 To (oMAPIMensaje.MsgCount - 1)
oMAPIMensaje.MsgIndex = X
MsgBox "Mensaje: " & oMAPIMensaje.MsgNoteText
Next
oMAPISesion.SignOff
End Sub
Necesito leer el correo de Outlook desde Visual basic, esto ya lo he conseguido con controles MAPI, el problema es que en ningún caso le estoy diciendo el servidor, si que le estoy pasando usuario y password, pero me temo que cuando lo pruebe desde otro ordenador no me va a leer correctamante, me podéis ayudar?
Public Sub LeerMAPI(vUser As String, vPassword As String)
Dim X As Integer
' Parámatros de sesión
oMAPISesion.UserName = vUser
oMAPISesion.Password = vPassword
oMAPISesion.DownLoadMail = True
oMAPISesion.SignOn
' Parámetros de Mensaje
oMAPIMensaje.SessionID = oMAPISesion.SessionID
oMAPIMensaje.FetchUnreadOnly = False
oMAPIMensaje.Fetch
For X = 0 To (oMAPIMensaje.MsgCount - 1)
oMAPIMensaje.MsgIndex = X
MsgBox "Mensaje: " & oMAPIMensaje.MsgNoteText
Next
oMAPISesion.SignOff
End Sub
Valora esta pregunta


0