samuel
25 de Mayo del 2006

Hola Amigos:

Me gustaría saber como puedo realizar una rutina para enviar correos desde visual, por ejemplo para cuando termina de ejecutar una aplicación, poder enviar un correo a los usuarios e indicarles que ya ha finalizado.

Muchas Gracias

carlozano13
25 de Mayo del 2006

El siguiente es el codigo para enviar los correos.

Private Sub Command3_Click()
MAPISession1.NewSession = False
MAPISession1.UserName = " "
MAPISession1.Password = " "
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
' MAPIMessages1.MsgIndex = -1 ' nuevo mensaje
MAPIMessages1.MsgSubject = asunto
MAPIMessages1.MsgNoteText = texto1
MAPIMessages1.RecipDisplayName = destinatario
' MAPIMessages1.AttachmentIndex = 0
' MAPIMessages1.AttachmentName = anexo
MAPIMessages1.AttachmentPathName = ruta
' MAPIMessages1.AttachmentPosition = 0
' MAPIMessages1.AttachmentType = 0
MAPIMessages1.Send
' MAPIMessages1.Action = 3
MAPISession1.SignOff
Command3.Enabled = False
End Sub

Ojo en el formulario se deben poner los dos controles MAPI.