Page 1 of 1

Emails & FWH & Adjuntos

Posted: Wed Feb 15, 2012 1:24 am
by Mauricio
Hola,

Como estan enviando emails desde FWH con ficheros Adjuntos.

Ya intente con TMail o Windows LiveMail 2011, OutLook de office 2007, salen bien, solo al momento de adjuntar un fichero .. no hace nada

HB_SendMail() no logro enviar desde servidores con SSL

Que otras opciones tengo?


Saludos,
Mauricio

Re: Emails & FWH & Adjuntos

Posted: Wed Feb 15, 2012 4:25 am
by anserkk

Re: Emails & FWH & Adjuntos

Posted: Wed Feb 15, 2012 6:03 pm
by Daniel Garcia-Gil
Hola

probemos de esta forma

Code: Select all


#include "fivewin.ch" 

#define olMailItem 0
#define olFormatHTML 2

function main() 
   local oWnd 
   
   define window oWnd 
   activate window oWnd on CLICK fromOle() 
return nil 


function fromOle() 

   local oOutlook := CreateObject( "Outlook.Application" )
   local oMail
   local cMessage:="<b>This is a test message.</b>" 

   cMessage += "<ul><li><a href='tdolphin.blogspot.com'>DOLPHIN</a></li></ul>"

   oMail := oOutlook:CreateItem( olMailItem )

   with object oMail
      
      :Subject = "test " + time() 
      
      :BodyFormat = olFormatHTML
      :HTMLBody   = cMessage
      
      :Recipients:Add( "danielgarciagil@gmail.com" )
      
      :Attachments:Add( "nombre_del_archivo_con_la_ruta_completa" ) //ej: :Attachments:Add( "c:\fwh\samples\build.bat" )
      
      
      :Send()
   END 
   
   oOutlook:Quit()



return nil


 

Re: Emails & FWH & Adjuntos

Posted: Wed Feb 15, 2012 7:48 pm
by Mauricio
Daniel,

Funciona, el detalle es que si le pongo adjuntos me pregunta 2 veces si deseo permitir el envio de correo,

tendra que acostumbrarse el usuario en lo que puedo solucionar ese detalle


Saludos,
Mauricio

Re: Emails & FWH & Adjuntos

Posted: Thu Feb 16, 2012 1:26 am
by Mauricio
Gracias a Daniel Garcia-Gil

pude poner a volar con CDO, tenia un error de que si no existe en adjunto, truena como palomita de maiz

Code: Select all

Function Correo(cFichero)
   Local loCfg, loMsg, oError
   local cPdf := cFichero + ".pdf"
   local cXML := cFichero + '.xml'


   TRY
      loCfg := CREATEOBJECT( "CDO.Configuration" )
      WITH OBJECT loCfg:Fields
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := "mail.wizardsoftware.com.mx"
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := 26
         :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 := .f.
         :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := "prueba@wizardsoftware.com.mx"
          :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := "prueba"
         :Update()
      END WITH

      loMsg := CREATEOBJECT ( "CDO.Message" )
      WITH OBJECT loMsg
         :Configuration = loCfg
         :From = "prueba@wizardsoftware.com.mx"
         :To = "mauricio@mauricio.mx"    // <-----       Coloca ac  tu direcci¢n de correo
         :Subject = "Prueba con DO"
         :TextBody = "Este es un mensaje de prueba con CDO desde Harbour."
         :AddAttachment( cPdf )
         :AddAttachment( cXml )
         :Send()
      ENDWITH

      ? "Enviado"

   CATCH oError
   END



Return

 

Re: Emails & FWH & Adjuntos

Posted: Thu Feb 16, 2012 8:31 am
by hmpaquito
Hola a todos,

Y ya que estamos en lios CDOSys, yo tenía una pregunta:

En una máquina, a veces me funciona el envio con CDO y otras veces no. No entiendo por qué puede ser. Descarto antivirus y firewal porque ya digo que a veces va y a veces no va. ¿ Alguien sabe por qué puede pasar. ?

Gracias de antemano

Re: Emails & FWH & Adjuntos

Posted: Thu Feb 16, 2012 4:14 pm
by Mauricio
alguna caracteristica en especial en los equipos que fallan?

probe winxp, win7 ultimate y me funciono bien

la proxima semana empezare la actualización con los clientes y te reporto si encuentro alguna falla y que SO/Antivirus se esta utilizando


Saludos,
Mauricio

Re: Emails & FWH & Adjuntos

Posted: Fri Feb 17, 2012 8:11 am
by hmpaquito
Gracias Mauricio

Re: Emails & FWH & Adjuntos

Posted: Sat Feb 18, 2012 10:24 pm
by devtuxtla
Hola Mauricio

Tenia el mismo problema con la clase tmail y lo resolvi de la siguiente manera:

DEFINE MAIL oMail ;
SUBJECT cxSUBJECT ;
FILES cRutafileA , cRutafileA , cRutafileB , cRutafileB ;
TEXT cTexto ;
TO cEmail, cEmail
ACTIVATE MAIL oMail

MUY importante: NO USES CRLF en el texto de Subject.

Lo probe con windows Live Mail, sobre windows vista y XP

Saludos

espero les sierva.

Re: Emails & FWH & Adjuntos

Posted: Mon Feb 20, 2012 6:30 pm
by Mauricio
DevTuxtla,

Acabo de probar CDO que se mira mas limpio el envio, el problema es que no deja copia en la bandeja de elementos enviados.

lo probe en WinXP SP2, con Avira, Nod32, Norton 360

WinVista Home..... todas las versiones

Win7 Pro..Ultimate y no me reporta errores

volvere a probar con TMail como lo indicas.

Cuando envias correos con adjuntos, cuantas veces te pide permiso para el envio?


Saludos,
Mauricio

Re: Emails & FWH & Adjuntos

Posted: Mon Feb 20, 2012 8:11 pm
by devtuxtla
Hola Mauricio.

Lo he probado con Windows Live Mail, y solo pide una autorizacion, lo cual me parece muy bien...

Con XP y Windows Vista y 7, va sin problemas.

Saludos