Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Sending email without the compose window 1

Status
Not open for further replies.

Lekar

Programmer
Sep 7, 2001
85
CR
Hi!

I want to send an email, but I don't want that Outlook open the compose window.
I have this code, but when I call MailSend(), the Outlook Compose window opens and I have to click the Send button to send the email. I want that my app sends automatically the email.

Thanks.

Code:
MailMessage lmm_Mensaje
MailSession l_MailSession
String ls_Destino_Todos, ls_Destino, ls_Texto
Long ll_Com, ll_Fin, ll_Resultado = 1, C
ListViewItem llvi_Archivo
n_Encriptar ln_Encriptar
MailReturnCode l_EstadoSesion
String ls_Arch_Ini, ls_Usuario, ls_Clave

// Realizar la conexión
l_MailSession = Create MailSession
// Trato de hacer una nueva sesión de correo
// Obtengo la ruta del archivo Ini.
ls_Arch_Ini = gn_Apl.in_Sesion.of_Dir_Inicial() + "\" + GetApplication().AppName + ".ini"
ls_Usuario = ProfileString (ls_Arch_Ini, "Correo", "Usuario", "")
ls_Clave = ProfileString (ls_Arch_Ini, "Correo", "Clave", "")
// Desencripto la contraseña.
ln_Encriptar = Create n_Encriptar
ls_Clave = ln_Encriptar.of_Desencriptar(ls_Clave)

l_EstadoSesion = l_MailSession.MailLogon(/*ls_Usuario, ls_Clave,*/ MailNewSession!)
If l_EstadoSesion <> MailReturnSuccess! Then
	ll_Resultado = -1
	Goto SalirAhora
End If

// Cargo el destinatario.
lmm_Mensaje.Recipient[1].Address = as_Direccion
lmm_Mensaje.Recipient[1].RecipientType = MailTo!

// Asunto del correo
lmm_Mensaje.Subject = "Ingreso del currículo a la bolsa de empleo"
// Cuerpo del correo.
lmm_Mensaje.NoteText = "Prueba."

// Ahora envío el correo
l_EstadoSesion = l_MailSession.MailSend(lmm_Mensaje)
If l_EstadoSesion <> MailReturnSuccess! Then
	ll_Resultado = -1
	// MessageBox("Correo", "El correo no fue enviado.")
	Goto SalirAhora
Else
	// MessageBox("Correo", "El correo fue enviado satisfactoriamente.")
End If

SalirAhora:
	l_MailSession.MailLogoff()
	Destroy l_MailSession
	Destroy ln_Encriptar
	Return ll_Resultado


[bomb] Lenin.
 
I changed the sentence:
lmm_Mensaje.Recipient[1].Address = as_Direccion
With
lmm_Message.Recipient[1].Name = as_Direccion

and it works very well!

[bomb] Lenin.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top