Emails & FWH & Adjuntos

[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

[anserkk]

To send email via CDO
viewtopic.php?f=6&t=19438&hilit=email#p102401

To add an attachment

viewtopic.php?f=3&t=15843&hilit=email#p82062

Regards
Anser

[Daniel Garcia-Gil]

Hola

probemos de esta forma

Code: Select all  Expand view

#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


 

[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

[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  Expand view

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

 

[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

[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

[hmpaquito]

Gracias Mauricio

[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.

[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

[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