Muchas gracias a los tres,
Después de muchas pruebas e intentos, lo logre cambiando el puerto a 587 y
no funciono ni con gmail ni con hotmail, solo con una cuenta de yahoo.
Nuevamente Muchas gracias, y una ultima consulta en relación a este tema.
Los mensajes que se envian asi, llegan al destinatario como enviados de la
cuenta de correo, mi pregunta es ¿Es posible que sea el nombre de quien
envia en lugar del correo?. Ya probe modificando ::cUser y ::cAddress pero
me marca error en ambos casos.
"Christian R.Assenza" <
christianassenza@yahoo.com.ar> escribió en el mensaje
de noticias news:[email=4fe34154@svctag-j7w3v3j....]4fe34154@svctag-j7w3v3j....[/email]
>A mi me paso algo similar al enviar emails desde W7 me pedia la .dll
>msvcr71, ademas tenia el problema que en la sucursal donde enviaba emails
>tenia que cambiar el puerto de salida a 587, fijate esas 2 cosas
>
> Saludos
>
>
> El 21/06/2012 07:05, Ignacio Ortiz de Zúñiga escribió:
>> Moises Leon escribió el mié, 20 junio 2012 23:21
>>> Ya intente varias opciones del cortafuego, incluso
>>> quitandolo completamente y sigo sin poder enviar los correos. Podira
>>> ser otra
>>> cosa?
>>>
>>> El codigo es realmente muy sencillo, no creo que haya
>>> error en el puesto que en XP si salen los correos.
>>>
>>> Muchas gracias por su ayuda
>>>
>>> Moises Leon
>>>
>>>
>>> WITH OBJECT TBlatMail():New()
>>> :cServer := "smtp.gmail.com"
>>> :lAuth := .T.
>>> :cUser :=
>>> "
softmedicalmexico@gmail.com[/email]"
>>> :cPassword := "medicalcontrol"
>>> :cAddress :=
>>> "
softmedicalmexico@gmail.com[/email]"
>>> :nPort := 25
>>> :aReceipts := { "
mleonr75@hotmail.com[/email]"
>>> } //destinatarios
>>> :cSubject := "TEMA"
>>> :cBody := "mensaje"
>>> :Create()
>>> IF :nLastError=0
>>> Sleep(200)
>>> IF :Send()
>>> MsgInfo("e-mail: enviado",)
>>> ELSE
>>> IF :nLastError=1
>>> x01:="error del servidor:
>>> "+:cServer
>>> ELSEIF :nLastError=2
>>> x01:="nombre de usuario:
>>> "+:cUser+" o contrase�a incorrecta"
>>> ELSE
>>> x01:="Error al enviar el mensaje"
>>> ENDIF
>>> MsgInfo(x01)
>>> ENDIF
>>> ELSE
>>> MsgInfo(:nLastError)
>>> ENDIF
>>> :Destroy()
>>> END
>>>
>>>
>>>
>>>
>>> "Jos� Alfonso Su�rez Moreno"
>>> <
jasm.quitaesto@tpvsoft.com[/email]> escribi� en el mensaje
>>> news:[email=4fe110f2@svctag-j7w3v3j....]4fe110f2@svctag-j7w3v3j....[/email][/email]
>>> > Comprueba los permisos del cortafuegos.
>>> >
>>> > El 19/06/2012 20:20, Moises Leon escribi�:
>>> >> Hola a Todos
>>> >>
>>> >> Estoy usando BLAT para enviar unos correos
>>> electronicos por medio de un
>>> >> sistema en Xailer. Cuando uso el ejecutable en una PC
>>> con XP no hay >> ningun
>>> >> problema pero cuando lo hago con Vista o con W7 me
>>> dice que hay error en >> el
>>> >> Servidor.
>>> >>
>>> >> �Que podra ser?
>>> >>
>>> >> Muchas gracias por su ayuda
>>> >> Moises
>>> >>
>>> >>
>>> >
>>> >
>>
>>
>> Utilice la propiedad TBlatMail:lLog
>>
>> Saludos
>>
>