Alguien puede mandar correos con archivo adjunto?

[AIDA]

Hola


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

alguien tendrá algo que funcione y quisiera compartir


Saluditos

[colthop]

Hola Aida:

Yo los envio de la siguiente manera:

Code: Select all | Expand

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

[AIDA]

Gracias veré como funciona


Saluditos

[AIDA]

Funcionaaaaaa!!!



Muchas gracias!!!


Saluditos

[karinha]

Este és muy bueno:

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

Salud2

[AIDA]

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

Saluditos

[sysctrl2]

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.

[MarioG]

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

[karinha]

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

[MarioG]

Karinha;
Si tu intención es hacerlo público lo podes subir a https://www.box.com/

gracias, Saludos

[sysctrl2]

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.

[AIDA]

Hola

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

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


Saluditos

[sysctrl2]

Aida, Gracias,
mas vale tarde que nunca jeje.

saludos.

Cesar.

[Leo]

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

[MarioG]

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