Enviar correo electrónico
Estoy desarrollando un Sistema de Trámite Documentario
Lo que quisiera que me ayuden a que automáticamente
el sistema pueda generar un correo electrónico necesario
que llegue al destinatario que se le envía un documento
de modo que esté al tanto de que se le ha asignado
la atención de un documento y determine las acciones
a seguir sobre éste.
Lo que quisiera que me ayuden a que automáticamente
el sistema pueda generar un correo electrónico necesario
que llegue al destinatario que se le envía un documento
de modo que esté al tanto de que se le ha asignado
la atención de un documento y determine las acciones
a seguir sobre éste.
1 Respuesta
Respuesta de william4425 Mendez
1
Lo pueds hacer conectandot con outlook express...
Primero tines q configurar tu cuenta de correo electronico n el outlook... la configuracion lo pueds encontrar n la opcion d herramientas d tu cuenta d correo electronico... x ejemplo yo uso gmail para sincronizarme con outlook.
El codigo para conectar a power es el sgt...
MailSession mSes
MailReturnCode mRet
MailMessage mMsg
MailFileDescription mFile
mSes = create mailSession
mRet = mSes.mailLogon(mailNewSession!)
IF mRet <> mailReturnSuccess! THEN
MessageBox('Aviso', '¡ Error al iniciar seción !',stopsign!)
RETURN
END IF
mMsg.subject="asunto"
mFile.Pathname="c:\documento.doc"//archivo adjunto
mMsg.AttachmentFile[1]=mFile
mMsg.NoteText = "mensaje"
mMsg.Recipient[1].name="correo del remitente"
mRet = mSes.mailSend(mMsg)
IF mRet <> mailReturnSuccess! THEN
MessageBox('Aviso', '¡ Error de envío !',stopsign!)
RETURN
END IF
MSes. MailLogoff()
DESTROY mSes
Primero tines q configurar tu cuenta de correo electronico n el outlook... la configuracion lo pueds encontrar n la opcion d herramientas d tu cuenta d correo electronico... x ejemplo yo uso gmail para sincronizarme con outlook.
El codigo para conectar a power es el sgt...
MailSession mSes
MailReturnCode mRet
MailMessage mMsg
MailFileDescription mFile
mSes = create mailSession
mRet = mSes.mailLogon(mailNewSession!)
IF mRet <> mailReturnSuccess! THEN
MessageBox('Aviso', '¡ Error al iniciar seción !',stopsign!)
RETURN
END IF
mMsg.subject="asunto"
mFile.Pathname="c:\documento.doc"//archivo adjunto
mMsg.AttachmentFile[1]=mFile
mMsg.NoteText = "mensaje"
mMsg.Recipient[1].name="correo del remitente"
mRet = mSes.mailSend(mMsg)
IF mRet <> mailReturnSuccess! THEN
MessageBox('Aviso', '¡ Error de envío !',stopsign!)
RETURN
END IF
MSes. MailLogoff()
DESTROY mSes
Lo probare y le avisocomo me fue gracias
Se agradecería finalizar la pregunta
