Sobre envío de mails en pb

Hola, estoy desarrollando un aplicación que envía mails automáticamente, pero tengo un problema, y es que los mails se envían con fecha desconocida ¿tienes idea de cual puede ser el problema?, el código que uso para el envío es:
string ls_mail
mailSession meses
mailReturnCode mRet
mailMessage mMsg
mailFileDescription mMfd
// Create a mail session
mSes = create mailSession
// Log on to the session
mRet = mSes.mailLogon(mailNewSession! )
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail", 'No se puede iniciar sesion')
RETURN
END IF
// Populate the mailMessage structure
mMsg.DateReceived = string(today(),'dd/mm/yyy')
mMsg.Subject = 'Servicios a Terceros - Aviso Actualización'
IF as_oper = 'ALTA' THEN
mMsg.NoteText = 'Se ha ingresado un nuevo trabajo en el sistema -- Trabajo Nro: '+ string(st_para.clave_num1)
ELSEIF as_oper = 'MODI' THEN
mMsg.NoteText = 'Se han modificado datos en el sistema -- Trabajo Nro: '+ string(st_para.clave_num1)
ELSEIF as_oper = 'BAJA' THEN
mMsg.NoteText = 'Se ha eliminado un trabajo del sistema -- Trabajo Nro: '+ string(st_para.clave_num1)
END IF
mMsg.Recipient[1].name = gs_mail
mMsg.Recipient[1].address = gs_mail
// Send the mail
mRet = mSes.mailSend(mMsg)
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail", 'No se ha podido enviar el mail.')
RETURN
END IF
Meses.mailLogoff()
DESTROY meses
Desde ya agradezco tu ayuda.
Saludos

1 respuesta

Respuesta
1
Probé tu código y me anduvo perfectamente. Lo único fíjate que tienes mal el formato de la fecha.
Yo lo vi con la fecha bien al mail.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas