Enviar Mails en vb6
Publicado por Ronald Ochoa (1 intervención) el 18/05/2007 22:46:14
Saludos Amigos
Mi preguna es que tengo un proyecto en vb6 que utiliza los controles de mail en este caso MAPISession y MAPIMessages y efectivamente puedo enviar mail con estos controles lo que sucede es que cuando utilizo el metodo send del objeto MAPIMessages me muestra una pantalla de confirmacion del outlook para el envio de mail en el cual si acepto se envia dicho mail pero si no acepto no envia el mail..
Quisiera saber si hay manera de que no se muestre dicha pantalla de confirmacion para el envio de mail desde vb6....Abajo del texto muestro la porcion de codigo que uso para dicha funcionalidad.
Espero que alguien me pueda ayudar en esto..............
Sub EnviaMail(ByVal Asunto As String, ByVal mensaje As String)
On Error Resume Next
With MAPISession1
.NewSession = False
.SignOn
End With
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose ' Creamos el mensaje
.RecipDisplayName = strDireccionMail ' Nombre del Mail del destinatario
.MsgSubject = Asunto ' Asunto del mensaje
.MsgNoteText = mensaje ' Mensaje
.Send False ' Enviamos el correo
End With
MAPISession1.SignOff ' Cerramos la sesión abierta del Mapi
Exit Sub
End Sub
Mi preguna es que tengo un proyecto en vb6 que utiliza los controles de mail en este caso MAPISession y MAPIMessages y efectivamente puedo enviar mail con estos controles lo que sucede es que cuando utilizo el metodo send del objeto MAPIMessages me muestra una pantalla de confirmacion del outlook para el envio de mail en el cual si acepto se envia dicho mail pero si no acepto no envia el mail..
Quisiera saber si hay manera de que no se muestre dicha pantalla de confirmacion para el envio de mail desde vb6....Abajo del texto muestro la porcion de codigo que uso para dicha funcionalidad.
Espero que alguien me pueda ayudar en esto..............
Sub EnviaMail(ByVal Asunto As String, ByVal mensaje As String)
On Error Resume Next
With MAPISession1
.NewSession = False
.SignOn
End With
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose ' Creamos el mensaje
.RecipDisplayName = strDireccionMail ' Nombre del Mail del destinatario
.MsgSubject = Asunto ' Asunto del mensaje
.MsgNoteText = mensaje ' Mensaje
.Send False ' Enviamos el correo
End With
MAPISession1.SignOff ' Cerramos la sesión abierta del Mapi
Exit Sub
End Sub
Valora esta pregunta


0