| Pregunta: | 24582 - USAR "ENVIAR A DESTINATARIO DE CORREO" CON VB 6 |
| Autor: | Nicolás Bideo |
| Cuando uno hace click derecho en un archivo (txt por ejemplo) se despliega un menú contextual, en él figura "Enviar a", de él se despliega una lista en la que figura "Destinatario de correo". Ésto hace que se abra Outlook Express con un archivo adjunto (ése txt).
Mi pregunta es ¿Cómo puedo lograr ésto desde Visual Basic, mediante código?, o sea, que en el programa apretando un commandbutton, por ejemplo, me abra esa misma pantalla de Outlook Express con un archivo adjunto que yo indique. Desde yá, muchas gracias | |
| Respuesta: | Felipe Peñailillo |
| Si lo que quieres es que aparesca outlook express con tu archivo adjunto mas el asunto y el mensaje tienes que usar los controles MAPI
mapisession y mapimessage aca el codigo: pon esto en una funcion o donde estimes conveniente ************************************************************** MAPISession1.SignOn MAPISession1.DownLoadMail = False DoEvents MAPIMessage1.SessionID = MAPISession1.SessionID MAPIMessage1.Compose MAPIMessage1.RecipAddress = "[email protected]" MAPIMessage1.ResolveName MAPIMessage1.MsgSubject = "Aca va el asunto" MAPIMessage1.AttachmentPathName = "c:\porno.avi" MAPIMessage1.AttachmentName = "porno.avi" MAPIMessage1.MsgNoteText = "Hola como estay tanto tiempo aca te mando este archivo para que te diviertas un rato" MAPIMessage1.Send True MAPISession1.SignOff ********************************************************************* Saludos. | |