Envia a Email con Vb 6.0
Saludos
esta vez necesito saber como puedo hacer para mandar un email a un correo determinado, si es ke se puede con visual basic 6.0?
agradeciendo de antemano su pronta respuesta
esta vez necesito saber como puedo hacer para mandar un email a un correo determinado, si es ke se puede con visual basic 6.0?
agradeciendo de antemano su pronta respuesta
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
Lo tengo implementado y funciona. se debe agregar los dos controles MAPI
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
Lo tengo implementado y funciona. se debe agregar los dos controles MAPI
