FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Alguien puede mandar correos con archivo adjunto?
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Alguien puede mandar correos con archivo adjunto?
Posted: Sun Nov 25, 2012 04:27 AM

Hola

Quisiera mandar un archivo por correo desde mi aplicación no se si se pueda los ejemplos no funcionan :cry:

alguien tendrá algo que funcione y quisiera compartir :mrgreen:

Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Re: Alguien puede mandar correos con archivo adjunto?
Posted: Sun Nov 25, 2012 09:16 AM
Hola Aida:

Yo los envio de la siguiente manera:
Code (fw): Select all Collapse
loCfg := CREATEOBJECT( "CDO.Configuration" )
  WITH OBJECT loCfg:Fields
  :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := xmailserv
  :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := xmailpuer
  :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2
  :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := .T.
  :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := .T.
  :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := xemail
  :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := xmailcont
  :Update()
  END WITH
  loMsg := CREATEOBJECT ( "CDO.Message" )
  WITH OBJECT loMsg
  :Configuration = loCfg
  :From          = alltrim(envimail->dSend)
  :To            = alltrim(envimail->dTocl)
  :Subject       = alltrim(envimail->cSubject)
  :TextBody      = alltrim(envimail->cText)
  :AddAttachment = alltrim(envimail->cFile)
  :Send()
  END WITH


Los campos del acceso:
xmailserv : Servidor smpt.
xmailpuer: Puerto del servidor. (lo mas habitual 25)
xemail: correo el que se envia el email.
xmailcont: Contraseña de acceso.

Creo una base de datos con los campos:
dSend: email de envio.
dTocl: Email a quien envias
cSubject: Asunto del email
cText: texto del Email.
cFile: Archivo ajunto.

Espero que te sirva.

Un saludo

Carlos
Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Alguien puede mandar correos con archivo adjunto?
Posted: Tue Nov 27, 2012 03:46 AM

Gracias veré como funciona :D

Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Alguien puede mandar correos con archivo adjunto?
Posted: Tue Nov 27, 2012 04:15 AM
Funcionaaaaaa!!! :-)



Muchas gracias!!! :-)


Saluditos :-)
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Alguien puede mandar correos con archivo adjunto?
Posted: Wed Nov 28, 2012 02:35 PM

Este és muy bueno:

http://www.fivewin.com.br/exibedicas.asp?id=1063

Salud2

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Alguien puede mandar correos con archivo adjunto?
Posted: Thu Nov 29, 2012 07:10 PM

Muchas gracias esta genial :shock:
yo estaba haciendo algo parecido me ayudara mucho como ejemplo :mrgreen:

Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: Alguien puede mandar correos con archivo adjunto?
Posted: Tue Apr 02, 2013 12:19 AM

Holas Aida, Holas Kariha,

intento bajar este ejemplo: http://www.fivewin.com.br/exibedicas.asp?id=1063

pero el link esta roto, alguien tiene este ejemplo para envios de email?

saludos, gracias.

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: Alguien puede mandar correos con archivo adjunto?
Posted: Fri Apr 05, 2013 12:02 PM
Mas, para la lectura

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=14663&start=30&hilit=cdosys

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=14663&start=30&hilit=cdosys
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Alguien puede mandar correos con archivo adjunto?
Posted: Fri Apr 05, 2013 01:57 PM
sysctrl2 wrote:Holas Aida, Holas Kariha,

intento bajar este ejemplo: http://www.fivewin.com.br/exibedicas.asp?id=1063

pero el link esta roto, alguien tiene este ejemplo para envios de email?

saludos, gracias.


Holá friend, cual és tú email para envio de los ejemplos?

salu2
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: Alguien puede mandar correos con archivo adjunto?
Posted: Fri Apr 05, 2013 02:39 PM
Karinha;
Si tu intención es hacerlo público lo podes subir a https://www.box.com/

gracias, Saludos
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: Alguien puede mandar correos con archivo adjunto?
Posted: Fri Apr 05, 2013 05:51 PM

KarinHa, gracias por tu apoyo,

serias ta amable de enviarme el ejemplo:

SysCtrlSoftware@gmail.com

SysCtrl@prodigy.net.mx

MarioG, el ejemplo era publico pero algo paso en la pagina de fw brasil que el link esta roto,

la verdad el ejemplo esta muy bueno quizas por eso lo bajaron jeje

saludos.

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Alguien puede mandar correos con archivo adjunto?
Posted: Sun Apr 07, 2013 12:52 AM

Hola :D

Perdón estaba un poco desconectada aquí esta el RMAIL.PRG

http://www.4shared.com/file/7lfwfPBD/RMAIL.html

Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: Alguien puede mandar correos con archivo adjunto?
Posted: Sun Apr 07, 2013 02:15 AM

Aida, Gracias,
mas vale tarde que nunca jeje.

saludos.

Cesar.

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Leo
Posts: 66
Joined: Thu Jan 03, 2013 06:13 PM
Re: Alguien puede mandar correos con archivo adjunto?
Posted: Tue May 07, 2013 04:49 PM

No me funciona, no puedo abrir el puerto para enviar...

Fivewin 12.04 + xHarbour 1.2.1 + BCC582



Nada como Fivewin, odio visual basic, visual studio y todas las porquerías visual.
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: Alguien puede mandar correos con archivo adjunto?
Posted: Tue May 07, 2013 11:37 PM
Aida;
gracias por tu aporte

Te sugiero este sitio para subir/almacenar archivos: [urlvhttps://www.box.com/home/][/url]
Es mucho menos complicado que 4Sahred :-)

Saludos
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Static archive · New replies & topics via GitHub Discussions