Usando BLAT con Vista

[Moises Leon]

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

[jasm.quitaesto]

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
>
>

[Moises Leon]

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"
:cPassword := "medicalcontrol"
:cAddress := "softmedicalmexico@gmail.com"
:nPort := 25
:aReceipts := { "mleonr75@hotmail.com" } //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> escribió en el
mensaje news:[email=4fe110f2@svctag-j7w3v3j....]4fe110f2@svctag-j7w3v3j....[/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
>>
>>
>
>

[ignacio]

Moises Leon escribió el mié, 20 junio 2012 23:21Ya 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

[Christian]

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
>

[Moises Leon]

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
>>
>