MIRA LO VAJE DEL FORO Y FUNCIONA DE MARAVILLAS
FUNCION ENVIARCORREO()
oP:Menmsajedeusuario:="Control de caja eviado por "
oP:Subject:="Nueva instancia Para revisar "
oP:Organization:="CONTROL DE RECOLECTA"
oP:cText:="Estimado Administrador usted ha recibido una investigacion enviada por el PC "+alltrim(oP:cEquipo)+ ".. Muy importante este mensaje" +;
" se le insta a revisarla y enviarla lo mas antes posible "+;
" ----> Obervaciones "+alltrim(oP:Observa)+" Usuario que envio "+oP:Nombreusuario+;
"...........Muchas Gracias , Sistema Recolecta"
correoencargado()
RETURN
function correoencargado()
local oMsg := CreateObject( "CDO.Message" )
local oConf := CreateObject( "CDO.Configuration" )
local cSchema := "
http://schemas.microsoft.com/cdo/configuration/"
Local cFolPed:=".\boleteria.dll"
TRY
oP:CORREO:= alltrim(GetPvProfString( "CONECCION1","CORREO", "0",cFolPed)) && AQUI CREO UN INI Y METO LAS DIRECION ELECTRONICA QU DESO ENIVAR
oConf:Fields[ cSchema + "sendusing" ] = 2
oConf:Fields[ cSchema + "smtpserver" ] = "smtp.gmail.com"
oConf:Fields[ cSchema + "smtpserverport" ] = 465
oConf:Fields[ cSchema + "smtpauthenticate" ] = 1
oConf:Fields[ cSchema + "sendusername" ] = "PON TU DIRECCIO DE CORREO ELECTRONICO"
oConf:Fields[ cSchema + "sendpassword" ] = "PON ELPASSWAORD"
oConf:Fields[ cSchema + "smtpusessl" ] = 1
oConf:Fields:Update()
oMsg:To = oP:CORREO
oMsg:From = "<Correo automatico de envio sistem de recolecta >"
oMsg:Subject = oP:Subject
oMsg:HTMLBody = oP:cText
oMsg:Sender = oP:Menmsajedeusuario
oMsg:Organization = oP:Organization
oMsg:ReplyTo = "
busmatic@gmail.com"
oMsg:Configuration = oConf
oMsg:Send( )
CATCH oError
MsgStop( "No se pudo enviar el correo al supervisor ","Tome nota y avise al alcargado de soporte")
RETURN
END
return nil