enviar emails desde fwh

User avatar
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Re: enviar emails desde fwh

Post by mmercado »

FranciscoA wrote:He probado con el codigo que suministras (unicamente cambie los botones y omiti el attach), y da el siguiente error:
Hola Francisco:

Hice _ que mencionas a mi ejemplo y aquí funciona perfectamente con FWH 9.01 y también con FWH 8.02 (yo uso xHarbour).

Podrías poner aquí el programa como quedó después de tus cambios ?

También dime por favor la versión que usas de FWH y cual servidor de correo estás usando

Un abrazo.

Manuel Mercado
manuelmercado at prodigy dot net dot mx
MANOLO
Posts: 82
Joined: Sun Oct 09, 2005 8:49 pm
Location: Spain
Contact:

Re: enviar emails desde fwh

Post by MANOLO »

Hola carlos, el error que me da es en el :Send(), es como si no encontrara la funcion:

DATOS DEL ERROR CAUSADO POR LA APLICACIÓN
_________________________________________

Nombre del PC.........: PORTATIL
Tamaño del Ejecutable.: 5.491.712 bytes
Ruta, Nombre y Tipo...: Z:\datos\francew\FUENTES\factu32.Exe (32 bits)
Fecha y Hora del Error: 24/02/2009 - 11:42:02 p.m.
Tiempo desde el Inicio: 0 hours 0 mins 26 secs


DESCRIPCIÓN DEL ERROR PRODUCIDO
_______________________________

Error CDO.Message/3 DISP_E_MEMBERNOTFOUND: SEND
Argumentos:


LLAMADAS AL STACK
_________________

Llamado de TOLEAUTO:SEND(0)
Llamado de FSENDMAIL(4.360)
Llamado de CIERRA1(2.222)
Llamado de (b)REENVIA(2.173)
Llamado de TBUTTON:CLICK(0)
Llamado de TBUTTON:HANDLEEVENT(0)
Llamado de _FWH(0)
Llamado de SENDMESSAGE(0)
Llamado de TDIALOG:COMMAND(0)
Llamado de TWINDOW:HANDLEEVENT(0)
Llamado de TDIALOG:HANDLEEVENT(0)
Llamado de DIALOGBOX(0)
Llamado de TDIALOG:ACTIVATE(0)

Podrías ayudarme, gracias..
manolo
MANOLO
Posts: 82
Joined: Sun Oct 09, 2005 8:49 pm
Location: Spain
Contact:

Re: enviar emails desde fwh

Post by MANOLO »

Se me olvidó poner el codigo:

Code: Select all

#ifndef _CDOSYS_CH
#define _CDOSYS_CH
#define cdoSMTPServer       "http://schemas.microsoft.com/cdo/configuration/smtpserver"
#define cdoSMTPServerPort   "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
#define cdoSendUsing        "http://schemas.microsoft.com/cdo/configuration/sendusing"
#define cdoSMTPPickupFolder "http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory"
#define cdoSMTPAuthenticate "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
#define cdoSendUserName     "http://schemas.microsoft.com/cdo/configuration/sendusername"
#define cdoSendPassword     "http://schemas.microsoft.com/cdo/configuration/sendpassword"
#define cdoSMTPUseSSL       "http://schemas.microsoft.com/cdo/configuration/smtpusessl"
#define cdoSMTPConnectionTimeout "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
#endif 

Function fSendMail( cMailServer, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass, nPort )

   Local oCfg, oMsg, oError, ;
         lAuth    := ! Empty( cUser ) .and. ! Empty( cPass ), ;
         nSendOpt := 2   // send using: 1 = pickup folder  2 = port  3 = remote mail server

   Default nPort    := 25, ;
           cSubject := "", ;
           cBody    := ""

   CursorWait()

   Try
      oCfg := CreateObject( "CDO.Configuration" )

      With Object oCfg:Fields
         :Item( cdoSMTPServer ):Value     := Trim( cMailServer )
         :Item( cdoSMTPServerPort ):Value := nPort
         :Item( cdoSendUsing ):Value      := nSendOpt
*         :Item( cdoSMTPConnectionTimeout):Value = 10 // intento hacer prueba con timeout para ver si es por eso.
          
         If lAuth
            :Item( cdoSMTPAuthenticate ):Value := .T.
            :Item( cdoSendUserName ):Value     := Trim( cUser )
            :Item( cdoSendPassword ):Value     := Trim( cPass )
            :Item( cdoSMTPUseSSL ):Value := .T.
            
            
         EndIf

         :Update()
      End With


      oMsg := CreateObject( "CDO.Message" )
       
      With Object oMsg
         :Configuration := oCfg
         :From          := Trim( cFrom )
         :To            := Trim( cTo )
         :Subject       := Trim( cSubject )
         :TextBody      := "Prueba de envio"
         :HTMLBody      := "<HTML>"+"<HEAD>"+"<BODY>"+"<b> This is the test HTML message body</b></br>"+"</BODY>"+"</HTML>" // prueba en html para ver si así funciona

        *:TextBody      := Trim( cBody )
     
         :Send()
          
      End With
        
        
        
   Catch oError
      CursorArrow()
      MsgStop( "No se pudo enviar el mensaje" + CRLF  + "Error: " + cValToChar( oError:GenCode) + CRLF + ;
               "SubC: " + cValToChar( oError:SubCode ) + CRLF + "OSCode: " + cValToChar( oError:OsCode ) + CRLF + ;
               "SubSystem: " + cValToChar( oError:SubSystem ) + CRLF + "Mensaje: " + oError:Description )

      oCfg := Nil
      oMsg := Nil
      Return Nil
   End Try
   

   
   oCfg := Nil
   oMsg := Nil
   SndPlaySound( GetWinDir() + "\media\Tada.wav", 0 )
   CursorArrow()

Return Nil

 
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: enviar emails desde fwh

Post by FranciscoA »

mmercado wrote:
FranciscoA wrote:He probado con el codigo que suministras (unicamente cambie los botones y omiti el attach), y da el siguiente error:
Hola Francisco:

Hice _ que mencionas a mi ejemplo y aquí funciona perfectamente con FWH 9.01 y también con FWH 8.02 (yo uso xHarbour).

Podrías poner aquí el programa como quedó después de tus cambios ?

También dime por favor la versión que usas de FWH y cual servidor de correo estás usando

Un abrazo.

Manuel Mercado
Hola Manuel. Muchas gracias por contestar. Así quedó el código:

//-------------------------------------------------------------------------

#include "FiveWin.ch"
**#include "TSButton.ch"
#include "CdoSys.ch"

#define WS_3DLOOK 4
#define CLR_HBROWN nRGB( 205, 192, 176 )
#define CLR_NBLUE nRGB( 142, 171, 194 )

//---------------------------------------------------------------------------------------------//

Function Main()

Local oDlg, aCtl[ 20 ], oFont

Local cMailServer := PadR( "smtp.hotmail.com", 60 ), ; // servidor de correo
cFrom := PadR( "remitente@hotmail.com", 60 ), ; // remitente
cTo := PadR( "destinatarios@hotmail.com", 180 ), ; // destinatario (uno o varios separados con comas)
cBCC := PadR( "destinatarios@hotmail.com", 180 ), ; // copias ocultas a (uno o varios separados con comas)
cAttach := PadR( "c:\fwh\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

DEFINE FONT oFont NAME "Arial" SIZE 0, -16

DEFINE DIALOG oDlg FROM 0, 0 TO 455, 703 PIXEL ;
COLORS CLR_BLUE, CLR_HBROWN ;
TITLE "CDOSYS Collaboration Data Objects for Windows 2000" ;
STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, WS_3DLOOK )

@ 10, 5 SAY aCtl[ 1 ] PROMPT "Servidor de Correo:" OF oDlg ;
FONT oFont UPDATE ;
COLORS CLR_BLUE, CLR_HBROWN SIZE 70, 11 PIXEL

@ 10, 80 GET aCtl[ 2 ] VAR cMailServer OF oDlg ;
FONT oFont UPDATE PICTURE "@K" ;
COLORS CLR_BLUE, CLR_WHITE SIZE 264, 11 PIXEL

@ 24, 5 SAY aCtl[ 3 ] PROMPT "Remitente:" OF oDlg ;
FONT oFont UPDATE ;
COLORS CLR_BLUE, CLR_HBROWN SIZE 70, 11 PIXEL

@ 24, 80 GET aCtl[ 4 ] VAR cFrom OF oDlg ;
FONT oFont UPDATE PICTURE "@K" ;
COLORS CLR_BLUE, CLR_WHITE SIZE 264, 11 PIXEL

@ 39, 5 SAY aCtl[ 5 ] PROMPT "Destinatario:" OF oDlg ;
FONT oFont UPDATE ;
COLORS CLR_BLUE, CLR_HBROWN SIZE 70, 11 PIXEL

@ 39, 80 GET aCtl[ 6 ] VAR cTo OF oDlg ;
FONT oFont UPDATE PICTURE "@K" ;
COLORS CLR_BLUE, CLR_WHITE SIZE 264, 11 PIXEL

@ 54, 5 SAY aCtl[ 7 ] PROMPT "Copia para:" OF oDlg ;
FONT oFont UPDATE ;
COLORS CLR_BLUE, CLR_HBROWN SIZE 70, 11 PIXEL

@ 54, 80 GET aCtl[ 8 ] VAR cBCC OF oDlg ;
FONT oFont UPDATE PICTURE "@K" ;
COLORS CLR_BLUE, CLR_WHITE SIZE 264, 11 PIXEL

@ 69, 5 SAY aCtl[ 9 ] PROMPT "Adjuntar:" OF oDlg ;
FONT oFont UPDATE ;
COLORS CLR_BLUE, CLR_HBROWN SIZE 70, 11 PIXEL

* @ 69, 80 GET aCtl[ 10 ] VAR cAttach OF oDlg PICTURE "@K" ;
* FONT oFont UPDATE Action fAddAttach( aCtl[ 10 ] ) ;
* COLORS CLR_BLUE, CLR_WHITE SIZE 264, 11 PIXEL

@ 84, 5 SAY aCtl[ 11 ] PROMPT "Asunto:" OF oDlg ;
FONT oFont UPDATE ;
COLORS CLR_BLUE, CLR_HBROWN SIZE 70, 11 PIXEL

@ 84, 80 GET aCtl[ 12 ] VAR cSubject OF oDlg ;
FONT oFont UPDATE PICTURE "@K" ;
COLORS CLR_BLUE, CLR_WHITE SIZE 264, 11 PIXEL

@ 99, 5 SAY aCtl[ 13 ] PROMPT "Autenticación: Usuario:" OF oDlg ;
FONT oFont UPDATE ;
COLORS CLR_BLUE, CLR_HBROWN SIZE 80, 11 PIXEL

@ 99, 87 GET aCtl[ 14 ] VAR cUser OF oDlg ;
FONT oFont UPDATE PICTURE "@K" ;
COLORS CLR_BLUE, CLR_WHITE SIZE 118, 11 PIXEL

@ 99,213 SAY aCtl[ 15 ] PROMPT "Contraseña:" OF oDlg ;
FONT oFont UPDATE ;
COLORS CLR_BLUE, CLR_HBROWN SIZE 44, 11 PIXEL

@ 99,259 GET aCtl[ 16 ] VAR cPass OF oDlg ;
FONT oFont UPDATE PICTURE "@K";
COLORS CLR_BLUE, CLR_WHITE SIZE 85, 11 PIXEL

@118, 6 SAY aCtl[ 17 ] PROMPT "Cuerpo del mensaje" FONT oFont UPDATE PIXEL ;
COLORS CLR_BLUE, CLR_HBROWN

@126, 10 GET aCtl[ 18 ] VAR cBody OF oDlg ;
FONT oFont MULTILINE UPDATE ;
COLORS CLR_BLUE, CLR_WHITE SIZE 330, 72 PIXEL

@208,213 BUTTON aCtl[ 19 ] PROMPT "&Enviar" OF oDlg ;
SIZE 53, 16 PIXEL ;
ACTION fSendMail( cMailServer, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass, nPort )

@208,292 BUTTON aCtl[ 20 ] PROMPT "&Salir" OF oDlg ;
SIZE 53, 16 PIXEL ACTION oDlg:End()

ACTIVATE DIALOG oDlg CENTERED ;
VALID ( oFont:End(), .T. )

Return Nil

//---------------------------------------------------------------------------------------------//

Function fSendMail( cMailServer, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass, nPort )

Local oCfg, oMsg, oError, ;
lAuth := ! Empty( cUser ) .and. ! Empty( cPass ), ;
nSendOpt := 2 // send using: 1 = pickup folder 2 = port 3 = remote mail server

Default nPort := 25, ;
cSubject := "", ;
cBody := ""

CursorWait()

Try
oCfg := CreateObject( "CDO.Configuration" )

With Object oCfg:Fields
:Item( cdoSMTPServer ):Value := Trim( cMailServer )
:Item( cdoSMTPServerPort ):Value := nPort
:Item( cdoSendUsing ):Value := nSendOpt

If lAuth
:Item( cdoSMTPAuthenticate ):Value := 1
:Item( cdoSendUserName ):Value := Trim( cUser )
:Item( cdoSendPassword ):Value := Trim( cPass )
:Item( cdoSMTPUseSSL ):Value := 1
EndIf

:Update()
End With


oMsg := CreateObject( "CDO.Message" )

With Object oMsg
:Configuration := oCfg
:From := Trim( cFrom )
:To := Trim( cTo )
:Subject := Trim( cSubject )
:TextBody := Trim( cBody )

If ! Empty( cAttach )
:AddAttachment := Trim( cAttach )
EndIf

If ! Empty( cBCC )
:BCC := Trim( cBCC )
EndIf

:Send()
End With

Catch oError
CursorArrow()
MsgStop( "No se pudo enviar el mensaje" + CRLF + "Error: " + cValToChar( oError:GenCode) + CRLF + ;
"SubC: " + cValToChar( oError:SubCode ) + CRLF + "OSCode: " + cValToChar( oError:OsCode ) + CRLF + ;
"SubSystem: " + cValToChar( oError:SubSystem ) + CRLF + "Mensaje: " + oError:Description )

oCfg := Nil
oMsg := Nil
Return Nil
End Try

oCfg := Nil
oMsg := Nil
SndPlaySound( GetWinDir() + "\media\Tada.wav", 0 )
CursorArrow()

Return Nil

//---------------------------------------------------------------------------------------------//

Static Function fAddAttach( oGet )

Local cFile, ;
cAttach := oGet:VarGet()

cFile := cGetFile( "*.*", "Selecciona el archivo" )

If ! Empty( cFile )
cAttach := Lower( PadR( AllTrim( cAttach ) + If( ! Empty( cAttach ), ",", "" ) + AllTrim( cFile ), 180 ) )
EndIf

oGet:cText( cAttach )

Return Nil

//---------------------------------------------------------------------------------
El include, está intacto, asi:


#ifndef _CDOSYS_CH
#define _CDOSYS_CH
#define cdoSMTPServer "http://schemas.microsoft.com/cdo/config ... smtpserver"
#define cdoSMTPServerPort "http://schemas.microsoft.com/cdo/config ... serverport"
#define cdoSendUsing "http://schemas.microsoft.com/cdo/config ... /sendusing"
#define cdoSMTPPickupFolder "http://schemas.microsoft.com/cdo/config ... pdirectory"
#define cdoSMTPAuthenticate "http://schemas.microsoft.com/cdo/config ... thenticate"
#define cdoSendUserName "http://schemas.microsoft.com/cdo/config ... ndusername"
#define cdoSendPassword "http://schemas.microsoft.com/cdo/config ... ndpassword"
#define cdoSMTPUseSSL "http://schemas.microsoft.com/cdo/config ... smtpusessl"
#endif

//------------------------------------------------------------
He probado con www.google.com, www.yahoo.com
Utilizo FWH 7.12 y xHARBOUR build 1.1.0 intl. (simplex) (rev 6195) Borland C++ 5.51

Un saludo muy cordial.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
User avatar
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Re: enviar emails desde fwh

Post by mmercado »

FranciscoA wrote:He probado con http://www.google.com, http://www.yahoo.com
Hola Francisco:

Ya veo, la diferencia es que yo uso como servidor de correo el de mi proveedor de internet (smtp.prodigy.net.mx), y tú estás tratando de enviarlo a través de un servidor externo. En teoría ésto es posible, solo debemos encontrar la configuración adecuada tanto del objeto cdo message como del Firewall para permitir la conexión del servidor remoto a través del puerto 25 o de alguno otro.

Seguiré investigando, creeme que vale la pena, te informaré luego.

Un abrazo.

Manuel Mercado
manuelmercado at prodigy dot net dot mx
Carlos Mora
Posts: 988
Joined: Thu Nov 24, 2005 3:01 pm
Location: Madrid, España

Re: enviar emails desde fwh

Post by Carlos Mora »

Ya veo cual es el problema!

Google no usa el puerto 25 para la conexión smtp. Bájate los ejemplos de harbouradvisor, que estan hecho todos con gmail.
Yahoo solo provee smtp como servicio pago, gratis no.
Hotmail no estoy seguro porque no lo uso seguido, pero creo que tampoco te dá smtp.

¿No tienes un servidor de correos normal, el de tu proveedor de internet?

Acá un ejemplo con una cuenta de gmail, que esta creada para hacer pruebas (y poder publicar la contraseña):

Code: Select all

// Si usas Harbour, esto hace compatible TRY CATCH
   #xcommand TRY              => BEGIN SEQUENCE WITH {|o| break(o)}
   #xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr->
   #xcommand FINALLY          => ALWAYS

Procedure Main()

   Local loCfg, loMsg, oError

   SetMode( 25, 80 )

   TRY
      loCfg := CREATEOBJECT( "CDO.Configuration" )
      WITH OBJECT loCfg:Fields
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := "smtp.gmail.com"
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := 465
         :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 := "testcdo@gmail.com"
         :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := "prueba2345"
         :Update()
      END WITH


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

   CATCH oError
      Alert( "No se pudo enviar el mensaje" + ";"  + ;
             "Error: " + TRANSFORM(oError:GenCode, NIL) + ";" + ;
             "SubC: " + TRANSFORM(oError:SubCode, NIL) + ";" + ;
             "OSCode: " + TRANSFORM(oError:OsCode, NIL) + ";" + ;
             "SubSystem: " + TRANSFORM(oError:SubSystem, NIL) + ";" + ;
               "Mensaje: " + oError:Description )

   END

   RETURN
Este código es Harbour puro, no necesita ni siquiera FW.

Seguro que despues lo puedes adaptar.
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
triumvirato
Posts: 199
Joined: Tue Apr 22, 2008 9:54 am
Location: Valladolid, Spain.

Re: enviar emails desde fwh

Post by triumvirato »

Manuel,

Muchas gracias por sus aportaciones, me resultan siempre siempre muy muy interesantes, pero no soy capaz de hacerlas funcionar en Vista Home Premium.
Yo con el segundo ejemplo que publica, sigo teniendo el mismo error:

Error:1001
subc: 3
oscode: 0
subsystem: CDO.message
Mensaje: DISP_E_MEMBERNOTFOUND.

Y por otra parte, comentar que en el segundo ejemplo publicado, existe un error de sintaxis que genera un error al compilar, en el segundo END WITH, que aparece escrito todo junto y ha de ser separado.
Intentaré indagar más sobre ese error DISP_E_MEMBERNOTFOUND, que si no voy desencaminado, es que no se está creando el objeto en sí.

GRACIAS y saludos!
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: enviar emails desde fwh

Post by FranciscoA »

Estimado Manuel: Tu ejemplo me funcionó perfectamente, en Gmail.com, cambiando el No. de Puerto de 25 a 465, lo cual hice basándome en el ejemplo de Carlos.

Carlos: Tu código funciona perfectamente en Gmail.com.

Gracias a ambos por sus aportes y orientaciones.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
triumvirato
Posts: 199
Joined: Tue Apr 22, 2008 9:54 am
Location: Valladolid, Spain.

Re: enviar emails desde fwh

Post by triumvirato »

FranciscoA wrote:Estimado Manuel: Tu ejemplo me funcionó perfectamente, en Gmail.com, cambiando el No. de Puerto de 25 a 465, lo cual hice basándome en el ejemplo de Carlos.

Carlos: Tu código funciona perfectamente en Gmail.com.

Gracias a ambos por sus aportes y orientaciones.
Francisco, te han funcionado desde Vista? podrías indicarnos el S.O.? GRACIAS

Saludos!

PD: Podría alguien enviarme el exe del segundo ejemplo de Manuel para probarlo aquí?
Last edited by triumvirato on Wed Feb 10, 2010 11:09 am, edited 1 time in total.
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: enviar emails desde fwh

Post by FranciscoA »

Hola David. Unicamente lo he probado en XP. Te he enviado email utilizando el de Manuel. Te envio el ejecutable.
Saludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
User avatar
Patricio Avalos Aguirre
Posts: 1028
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile
Contact:

Re: enviar emails desde fwh

Post by Patricio Avalos Aguirre »

Hola

Al colocar correo saliente SMTP.HOTMAIL.COM envia el error, prueba cambiando el servidor de correo saliente, a mi me funciona bien con mi smtp saliente
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
triumvirato
Posts: 199
Joined: Tue Apr 22, 2008 9:54 am
Location: Valladolid, Spain.

Re: enviar emails desde fwh

Post by triumvirato »

Francisco,

Muchas gracias por tu envío, funcionó correctamente, por lo que no es problema de Vista x64, sino de MI VISTA (estaba metiendo la pata en lo básico). Muchas gracias por tu ayuda y tu tiempo.

Patricio,

Correcto, el problema es del smtp, hay que configurar correctamente varios parámetros. Muchas gracias.

Saludos!!!!
MANOLO
Posts: 82
Joined: Sun Oct 09, 2005 8:49 pm
Location: Spain
Contact:

Re: enviar emails desde fwh

Post by MANOLO »

hola patricio me puedes enviar el ejemplo

Yo no logró que funcione

Gracias
MANOLO
Posts: 82
Joined: Sun Oct 09, 2005 8:49 pm
Location: Spain
Contact:

Re: enviar emails desde fwh

Post by MANOLO »

hola carlos, ya me funciona el envio de emails sin adjuntar ficheros.

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

yo lo hago así, pero no funciona:

cAttach:="f:\nuevo\factu.txt"

Code: Select all

      loMsg := CREATEOBJECT ( "CDO.Message" )
      WITH OBJECT loMsg
         :Configuration = loCfg
         :From = "micorreo@hotmail.com"
         :To = "to@hotmail.com;to2@hotmail.com"    // <-----       Coloca ac  tu direcci¢n de correo
         :Subject = "Fichero de Salidas"
         :AddAttachment := cAttach
         :TextBody = "Adjunto le enviamos el fichero con las salidas de hoy " + dtoc(date()) + CRLF + CRLF + ;
               "Sobre Cualquier Problema debe dirigirse al dpto. de Salidas. " 

         :Send()
      ENDWITH
 
Gracias
User avatar
Patricio Avalos Aguirre
Posts: 1028
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile
Contact:

Re: enviar emails desde fwh

Post by Patricio Avalos Aguirre »

Manolo

El ejemplo es el mismo de ha colocado el maestro Manuel Mercado, solo hize copy y paste :-)

puedes hecharle un vistaso a la pagina de carlos mora ahi explica este metodo de enviar correo

http://harbouradvisor.blogspot.com/
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Post Reply