TCDOMAIL y Yahoo
Publicado: Dom Abr 03, 2022 10:25 am
Estoy intentando hacer funcionar el envio de mails para distintos servidores smtp, pero para el servidor Yahoo tengo problemas y no termina de funcionar correctamente.
Como comento, si no relleno los DOS campos cCC y cBCC con algun mail, salta a ERROR y Yahoo deja el mensaje en la carpeta Borradores.
¿Alguien está utilizando TCDOMAIL con algun cliente que utilize el servidor de correo de Yahoo???
Código: Seleccionar todo
WITH OBJECT TCDOMail():New()
:cSubject := "PRUEBA"
:cFrom := "mimail@yahoo.com"
:cUser := "mimail@yahoo.com"
:cPassword := "miclaveapps"
:cServer := "smtp.mail.yahoo.com"
:nPort := 465
:lAuthenticate := .T.
:lSSL := .T.
//Si no relleno estos campos me deja los mails en Borradores, y veo que "rellena" CC y BCC con campo vacío pero lo muestra en rojo de "error"
:cCC := "_@hotmail.com" //Debo poner un mail Con Copia
:cBCC := "-@yahoo.com"//"-@hotmail.com" //Debo poner un mail Con Copia Oculta (distinto al CC)
:cTO := "mimail@gmail.com"
* :lHTML := ::oHtml:lChecked
:cMessage := "Texto de prueba"
* :aAttachments := { cFile }
:Create()
If :Send()
MsgInfo( "OK", "ENVIO", mbOK,, IDI_INFORMATION )
Else
MsgStop( "KO", "ERROR", mbOK,, IDI_ERROR )
EndIf
END
¿Alguien está utilizando TCDOMAIL con algun cliente que utilize el servidor de correo de Yahoo???