FiveTech Software tech support forums

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

Hola Aida:

Yo los envio de la siguiente manera:

Code: Select all  Expand view

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

Gracias veré como funciona


Saluditos

Funcionaaaaaa!!!



Muchas gracias!!!


Saluditos

Este és muy bueno:

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

Salud2

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

Saluditos

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.

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

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

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

gracias, Saludos

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.

Hola

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

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


Saluditos

Aida, Gracias,
mas vale tarde que nunca jeje.

saludos.

Cesar.

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

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