| Pregunta: | 4909 - ARRANCAR UN PERFIL PREDETERMINADO DE CORREO |
| Autor: | DAVID VAZQUEZ ESCACENA |
| Estoy realizando una aplicación de correo mediante los controles MAPI, pero al iniciar la sesion siempre me pide con que perfil debo arrancar a no ser que ya este arrancado por el programa de correo que tengo(en este caso OUTLOOCK 2000),no hay ninguna manera de indicarle a visual basic que arranque un perfil como predeterminado al igual que se puede indicar en la mayorÃa de programas de correo. Gracias de antemano. | |
| Respuesta: | Ruben Alejandro Romero Mansilla |
| En principio deberias hacer la siguiente prueba:
Busca con el exporador de windows un archivo word presiona el boton derecho y selecciona la opcion enviar a (o sent to) elegi destinatario de correo y efectua el Click, si la aplicacion te pide el perfil, es porque esta mal configurado el Outlook, asi que si tu aplicacion hace lo mismo esta bien. por las dudas te envio el codigo de envio de emails. Function eMailConfirmacion() Set objOutlook = CreateObject("Outlook.Application") If Err Then MsgBox "Upss no Pudo crear Outlook Application object!", vbCritical eMailConfirmacion = False Exit Function End If Set objNamespace = objOutlook.GetNamespace("MAPI") If Err Then MsgBox "Upss no Pudo crear MAPI Namespace!", vbCritical eMailConfirmacion = False Exit Function End If sTo = "A quien va dirigido" sSubject = "Titulo Mensaje" sBody = "Cuerpo del Mensaje" If Trim(sTo) <> vbNullString Then Set objMItem = objOutlook.CreateItem(olMailItem) If Err Then MsgBox "Upss no Pudo crear MailItem!", vbCritical eMailConfirmacion = False Exit Function End If With objMItem .To = sTo .Subject = sSubject .Body = sBody .Send End With End If Set objMItem = Nothing End Function | |