enviar emails desde fwh

[mmercado]

tienes un ejemplo que como hacer para enviar ficheros adjuntos desde cdo.

Hola Manolo y amigos:

Aquí pueden descargar un ejemplo completamente funcional, incluyo el ejecutable y los fuentes.

http://www.box.net/shared/o7oxcfqlsm

Este ejemplo lo he probado con éxito usando GMail y con el servidor de correo de mi proveedor de internet (smtp.prodigy.net.mx).

Espero les sea de utilidad.

Un abrazo.

Manuel Mercado

[FranciscoA]

Gracias, Manuel. Está mucho mejor.
Saludos.

[Andrés González]

Hola compañeros.

Con CDOSYS tengo una duda y es que pasa con los emails enviados. Mi pregunta concreta es la siguiente, si con mi usuario me envio a mi mismo desde un programa fivewin no deberia guardar un mensaje en elementos enviados y otro en elementos recibidos. Si ejecuto el ejemplo con mis datos va a las mil maravillas pero sencillamente solo recibo el mail enviado en la carpeta de inbox y no queda constancia para nada en la carpeta send. Alguien sabe como deberia hacer para que me guarde la copia enviada en la carpeta send.

Otra consulta es como tengo que hacer para solicitar el acuse de recibo. Creo que es un procedimiento automatico. Pero no encuentro en ningun lado como se puede hacer.

saludos.
Andy

[anserkk]

Andy,

Otra consulta es como tengo que hacer para solicitar el acuse de recibo. Creo que es un procedimiento automatico. Pero no encuentro en ningun lado como se puede hacer.

Reconocimiento se hace usando el siguiente código

Code: Select all | Expand

:MDNRequested = .T.       // Solicitud de reconocimiento

Code: Select all | Expand

oEmailMsg := CREATEOBJECT ( "CDO.Message" )
oEmailMsg:MDNRequested = .T.       // Solicitud de reconocimiento

Por favor, eche un vistazo a este post en el foro de Inglés
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=15843


Espero que sea útil

Todos los mejores deseos

Anser

[Andrés González]

Gracias Anserkk, muy apreciada tu colaboracion.

Un saludo.
Andy

[oliveiros junior]

hola,

como puedo sacar el cdo.message de la memória. En VB set = nothing como hacer en fwh?

Abrazos,

Junior

[DiGregorio]

tienes un ejemplo que como hacer para enviar ficheros adjuntos desde cdo.

Hola Manolo y amigos:

Aquí pueden descargar un ejemplo completamente funcional, incluyo el ejecutable y los fuentes.

http://www.box.net/shared/o7oxcfqlsm

Este ejemplo lo he probado con éxito usando GMail y con el servidor de correo de mi proveedor de internet (smtp.prodigy.net.mx).

Espero les sea de utilidad.

Un abrazo.

Manuel Mercado

Manuel, excelente aporte, lo probe y funciona perfecto, uso Windows Vista Ultimate y sin porblemas... (Todo en un solo lugar)

Lo unico que no tiene esta aplicacion es el envio de ccc, pero bueno....¡


Gracias

[surGom]

Hola estoy tratando de usar cdosys de Manuel Mercado y no puedo hacerlo funcionar me da el error ya comentado en los mails anteriores por otras compañeros que luego por lo que veo lo han solucionado.

EL código que hice en la parte sustancial solamente reemplazar por mi servidor y mis contraseñas

Code: Select all | Expand

Function MANUEL()

   Local oDlg, aCtl[ 20 ], oFont
   local ctext 

   Local cMailServer := PadR( "smtp.speedy.com.ar", 60 ), ;           // servidor de correo
         cFrom       := PadR( "[email protected]", 60 ), ;      // remitente
         cTo         := PadR( "[email protected]", 180 ), ; // destinatario (uno o varios separados con comas)
         cBCC        := PadR( "[email protected]", 180 ), ; // copias ocultas a (uno o varios separados con comas)
         cAttach     := PadR( "c:\fwh712\bitmaps\fivewin.bmp", 180 ), ;// archivo anexo (uno o varios separados con comas)
         cSubject    := Space( 60 ), ;                              // asunto
         cBody       := Space( 500 ), ;                             // cuerpo del mensaje
         nPort       := 25, ;                                       // puerto usado por el servidor de correo
         cUser       := Space( 60 ), ;                              // nombre de usuario para autenticación
         cPass       := Space( 30 )                                 // contraseña para autenticación
 

Uso xp y fivewin 7.12
He probado desde blat y me los envía pero mas me interesaría poder usar lo expuesto por Manuel, pero mis conocimientos no me ayudan a poder resolverlo.

Gracias

[karinha]

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

Salu2

[TecniSoftware]

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

Salu2

Gracias Karinha!

Funciona perfecto!

Muchas gracias.
Saludos

[karinha]

A tu ordenes!

Salu2

[surGom]

Gracias Karina esta noche lo pruebo y te comento

Luis

[surGom]

Karina me funcionó en hotmail y yahoo pero no logro hacerlo funcionar con speedy que es justo el que tengo en mis pc y en las empresas. Voy a seguir probando con speedy a ver en que puede estar el error ya que la configuración es sencilla.

Gracias por tu atención.

[surGom]

Bueno Karina, no hay mejor que irse a dormir cuando algo no sale, hoy me levante y cuando iba hacia mi oficina (en otra ciudad), me di cuenta que en mi casa desde dónde estaba probando tengo otro distribuidor de internet (aunque uso el mismo correo), llegue aquí que tengo el mismo proveedor que el correo que utilizo y funcionó perfectamente. No así cdosys.
Gracias a tu ayuda podré enviar las facturas electrónicas sin necesidad de instalar el blat en la empresa.

Muchas gracias nuevamente

Luis

[karinha]

Bueno Karina, no hay mejor que irse a dormir cuando algo no sale, hoy me levante y cuando iba hacia mi oficina (en otra ciudad), me di cuenta que en mi casa desde dónde estaba probando tengo otro distribuidor de internet (aunque uso el mismo correo), llegue aquí que tengo el mismo proveedor que el correo que utilizo y funcionó perfectamente. No así cdosys.
Gracias a tu ayuda podré enviar las facturas electrónicas sin necesidad de instalar el blat en la empresa.

Muchas gracias nuevamente

Luis

Parabiéns!!

Saludos.