About "Sending email without the compose window"

[tantores]

Excuse me, I don´t know very well english.

In the solution reference to the object is made of user n_Encriptar, as it is the code of that object, when trying to implement the solution to send mail in PB, is quiet by that small detail. Thanks, if it is possible to give that information me.

En la solucion se hace referencia al objeto de usuario n_Encriptar, cual es el código de ese objeto, al tratar de implementar la solución de enviar correo en PB, quede quieto por ese pequeño detalle.

Gracias, si es posible darme esa información.

tantores

 

[anneoctaaf]

Hola Tantores!

Quieres enviar email en PB? Tengo ese code para ti:

string ls_bedrijf, &
ls_email, &
ls_bedrijfsnaam, &
ls_tekst, &
ls_email_scheuder, &
ls_naam
mailsession lms_MAPISession
mailmessage lmm_Message
integer li_row, &
li_gelukt, &
li_bedrijf, &
li_empresa

OpenWithParm(w_email, li_empresa)

//get email text
ls_tekst = message.StringParm

lms_MAPISession = CREATE mailsession
IF lms_MAPISession.MailLogon() = MailReturnSuccess! THEN
// Mail Session is ok so Populate the Message
lmm_Message.Subject = "MiSubjeto"
lmm_Message.NoteText = "Escribe tu mensaje agui.."

lmm_Message.Recipient[ 1 ].Name = ls_bedrijfsnaam
lmm_Message.Recipient[ 1 ].Address = ls_email
// mAttach.PathName = ls_attach_name
//mAttach.FileName = ls_attach_name
// Note: In MS Mail version 3.0b, Position=-1 puts attachment at
// the beginning of the message.
// This will place the attachment at the End of the text of the message
// mAttach.Position = len(mMsg.notetext) - 1
// lmm_Message.AttachmentFile[1] = bon.txt
IF lms_MAPISession.MailSend( lmm_Message ) = MailReturnSuccess! THEN
Messagebox( 'Email', Mensaje enviado.' )
END IF

lms_MAPISession.MailLogoff()
END IF

DESTROY lms_MAPISession