FoxPro/Visual FoxPro - Error en envio de correo con VFP usando SMTP

   
Vista:

Error en envio de correo con VFP usando SMTP

Publicado por Ivan H ivanfhc@hotmail.com (9 intervenciones) el 14/08/2014 17:21:15
Buenos dias Foxeros, saludos a todos y espero que me ayuden con este problema
Estoy Enviando por correo electrónico por el servidor SMTP he probado gmail, hotmail, y yahoo
todos me dan el mismo error
Error 1429
The message could not be sent to the SMTP server, The server response was not available

Tengo windows 7 VFP 9, ya revise el usario, la contraseña, el puerto y todo esta correcto, configuro con los mismos datos en windows live mail y funciona
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Error en envio de correo con VFP usando SMTP

Publicado por neo (1601 intervenciones) el 15/08/2014 22:37:00
Saludos, yo pienso que el problema está en los puertos y demás parametros para el envío del email. Personalmente he tenido problemas si utilizo hotmail yahoo u otro distinto a gmail como "emisor" del email.

El caso del correo electronico receptor, puede ser de cualquier cuenta y lo envía sin problemas.

Si pudieras exponer el codigo que utilizar para enviar, podría compararlo con mi codigo y tratar de solucionar el problema.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error en envio de correo con VFP usando SMTP

Publicado por Ivan H ivanfhc@hotmail.com (9 intervenciones) el 15/08/2014 23:43:10
LParameters EmailRemitente, Contrasena, EmailDestinatario, Titulo, Texto, ArchivosAdjuntos

* URL: http://www.portalfox.com/index.php?name=News&file=article&sid=2626&mode=nested&order=0&thold=0
WAIT WINDOW ArchivosAdjuntos
if Empty(ArchivosAdjuntos)
Wait Window "Estoy tratando de enviar el e-mail a: " + EmailDestinatario NoWait
else
Wait Window "Estoy tratando de enviar el e-mail a: " + EmailDestinatario + ". Paciencia, esto puede tardar varios minutos..." NoWait
endif

Try
Local Esquema, oCDO, oMsg, oError
Esquema = "http://schemas.microsoft.com/cdo/configuration/"
oCDO = CreateObject("CDO.Configuration")
with oCDO.Fields
do case
case "GMAIL" $ Upper(EmailRemitente)
.Item(Esquema + "smtpserver") = "smtp.gmail.com"
.Item(Esquema + "smtpserverport") = 465
.Item(Esquema + "sendusing") = 2
.Item(Esquema + "smtpauthenticate") = .T.
.Item(Esquema + "smtpusessl") = .T.
case "HOTMAIL" $ Upper(EmailRemitente)
.Item(Esquema + "smtpserver") = "smtp.live.com"
.Item(Esquema + "smtpserverport") = 25
.Item(Esquema + "sendusing") = 2
.Item(Esquema + "smtpauthenticate") = .T.
.Item(Esquema + "smtpusessl") = .T.
case "YAHOO" $ Upper(EmailRemitente)
.Item(Esquema + "smtpserver") = "smtp.mail.yahoo.com"
.Item(Esquema + "smtpserverport") = 25
.Item(Esquema + "sendusing") = 2
* .Item(Esquema + "smtpauthenticate") = .T.
* .Item(Esquema + "smtpusessl") = .T.
otherwise
Wait Window "No puedo enviar este e-mail. No conozco los parámetros necesarios del servidor de correo"
endcase
.Item(Esquema + "sendusername") = EmailRemitente
.Item(Esquema + "sendpassword") = Contrasena
.Update()
endwith
oMsg = CreateObject("CDO.Message")
with oMsg
.Configuration = oCDO
.From = EmailRemitente
.To = EmailDestinatario
.Subject = Titulo
.TextBody = Texto
if !Empty(ArchivosAdjuntos)
.AddAttachment(ArchivosAdjuntos)
* .AddAttachment() && Hay que agregar una línea AddAttachment() por cada archivo adjunto
endif
*.Fields("urn:schemas:mailheader:disposition-notification-to") = .From
*.Fields("urn:schemas:mailheader:return-receipt-to") = .From
*.Fields.Update
.Send()
Wait Window 'El e-mail con título: "' + AllTrim(Titulo) + '" fue enviado exitosamente.'
endwith
catch to oError
=MessageBox("No pudo enviarse el e-mail" + Chr(13) + "Error Nº: " + Transform(oError.ErrorNo) + Chr(13) + "Mensaje: " + oError.Message)
finally
Release oCDO, oMsg
oCDO = .NULL.
oMsg = .NULL.
endtry

Return

En un foro decia que es problema del puerto ya que usa el 465 y el 25, pero hable con el ISP y me dice que estos no estan habilitados, pero otros puertos como el 468 y el 26 si estan pero pruebo con estos y tampoco funciona
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error en envio de correo con VFP usando SMTP

Publicado por Ivan Herrera ivanfhc@hotmail.com (9 intervenciones) el 30/03/2017 16:18:26
Hola
Resolvi el problema con la siguiente rutina, para lo cual utiliza el outlook

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
LParameters lcPerfil , lcContrasenia , EmailDestinatario, Titulo, Texto, ArchivosAdjuntos
 
 
*-- Creo objetos Outlook y NameSpace
loOutlook = CREATEOBJECT("Outlook.Application")
loNameSpace = loOutlook.GetNameSpace("MAPI")
 
*-- Ejecuto los métodos
loNameSpace.Logon(lcPerfil , lcContrasenia)
loMailItem = loOutlook.CreateItem(0)
loMailItem.Recipients.ADD(EmailDestinatario)
loMailItem.Subject = Titulo
loMailItem.Body = Texto
lnombre = SUBSTR(cgempresa,1,AT(" ",cgempresa)-1)
larchivo=ArchivosAdjuntos
IF !EMPTY(larchivo)
	IF FILE(larchivo)
	loMailItem.Attachments.ADD(larchivo)
	ENDIF
ENDIF
larchivo= ALLTRIM(safemp.dautorizados)+'CR_'+lnombre+substr(tfcntpdt.nret,7,9)+'_'+ STRTRAN(DTOC(tfcntpdt.fecha),"/","")+".XML"
IF FILE(larchivo)
loMailItem.Attachments.ADD(larchivo)
ENDIF
loMailItem.Send
loNameSpace.Logoff
 
loNameSpace = .NULL.
loOutlook = .NULL.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar