Enviar correos con VB6 y microsoft Outlook Web Acc
Publicado por felix (1 intervención) el 19/01/2006 12:02:59
buenas...
Tengo el siguiente problema, el codigo q anteriormente me funcionaba para ernviar correos através de una aplicación hecha en VB6 m funcionaba, pero se ha cambiar el programa del correo y ahora se usa uno atraves de WEB, el "MICROSOFT OUTLOOK WEB ACCESS" y no m funciona.
*************codigo q funcionaba *************
MAPISession.SignOn
MAPIMessages.SessionID = MAPISession.SessionID
MAPIMessages.Compose
MAPIMessages.MsgIndex = -1
MAPIMessages.MsgReceiptRequested = True
MAPIMessages.RecipAddress = strDirecMail
MAPIMessages.ResolveName
MAPIMessages.AddressResolveUI = True
MAPIMessages.MsgSubject = txtAsunto.Text
MAPIMessages.MsgNoteText = rtbTextoMail.Text
MAPIMessages.AttachmentPathName = objFile
MAPIMessages.Send False
MAPISession.SignOff
******************************************
¿Alguien puede ayudarme?
Tengo el siguiente problema, el codigo q anteriormente me funcionaba para ernviar correos através de una aplicación hecha en VB6 m funcionaba, pero se ha cambiar el programa del correo y ahora se usa uno atraves de WEB, el "MICROSOFT OUTLOOK WEB ACCESS" y no m funciona.
*************codigo q funcionaba *************
MAPISession.SignOn
MAPIMessages.SessionID = MAPISession.SessionID
MAPIMessages.Compose
MAPIMessages.MsgIndex = -1
MAPIMessages.MsgReceiptRequested = True
MAPIMessages.RecipAddress = strDirecMail
MAPIMessages.ResolveName
MAPIMessages.AddressResolveUI = True
MAPIMessages.MsgSubject = txtAsunto.Text
MAPIMessages.MsgNoteText = rtbTextoMail.Text
MAPIMessages.AttachmentPathName = objFile
MAPIMessages.Send False
MAPISession.SignOff
******************************************
¿Alguien puede ayudarme?
Valora esta pregunta


0