FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Enviar mail sin outlook
devtuxtla
Posts: 392
Joined: Tue Jul 29, 2008 01:55 PM
Enviar mail sin outlook
Posted: Thu Nov 20, 2008 11:54 PM

Estimados Fivewinners:
Es posible enviar un e-mail sin que en la PC este instalado algun administrador de correos como Outlook.?
Un ejemplo me seria muy util :shock:

Gracias...

Visite Chiapas, el paraiso de México.
DanielPuente
Posts: 108
Joined: Sun Oct 09, 2005 06:12 PM
Enviar email sin outlook
Posted: Fri Nov 21, 2008 04:09 AM

devtuxtla:

           Yo utilizo sendmail() de Luiz Culik:

                            LUIZSendMail('mail.mas-suis.com.ar',25,'suisrm@mas-suis.com.ar',{'suisrm@mas-suis.com.ar'},'','Envio SUISRM '+PARAMETR->NROLOC,{'c:\_transf\ENVIA'+PARAMETR->NROLOC+'.ZIP'},;
                                                 <!-- e --><a href="mailto:'suisrm@mas-suis.com.ar">'suisrm@mas-suis.com.ar</a><!-- e -->','ana1234','mail.mas-suis.com.ar',3,.F.,.F.,.T.)
                        *    FUNCTION luizSendMail( cServerIP, nPort, cFrom, aTo, cMsg, cSubject, aFiles,cUser, cPass, cPopServer, nPriority, lRead, lTrace ,lPopAuth)

Saludos,
Daniel Puente
Marchione Sistemas
Puerto Santa Cruz, Argentina

puenteda@hotmail.com

Daniel Puente
Mar del Plata, Argentina
danielpuente@speedy.com.ar
puenteda@hotmail.com
wmormar
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: Enviar mail sin outlook
Posted: Fri Nov 21, 2008 05:02 AM

devtuxtla,

en el blog de andrés, colgué una lib para lo que necesitas.

http://codigo-base.blogspot.com

espero sea de tu ayuda

William, Morales

Saludos



méxico.sureste
Mike Serra
Posts: 297
Joined: Fri Apr 14, 2006 05:52 PM
Enviar mail sin outlook
Posted: Fri Nov 21, 2008 11:01 AM
Buenas devtuxtla, el siguiente codigo me funciona correctamente:



Code: Select all Collapse
static function GeneraCorreo(Serie,Numero,Correo,PersonaContacto,NombreProveedor,textolibre,cFicheros)
    local oOutMail, cIP,cMensaje:=""
    cMensaje:="A/A " + NombreProveedor + chr(10) + chr(13)
    cMensaje+="   Adjuntamos a este mensaje " + alltrim(str(len(cFicheros))) + " pagina(s) correspondientes al pedido nº "+ serie + "/" + numero + ". " + + chr(10) + chr(13)
    cMensaje+=" Ruego cualquier anomalía, se pongan en contacto con nosotros." + chr(10) + chr(13) + chr(10) + chr(13)
    if len(alltrim(textolibre))<>0
        cMensaje+=textolibre +  chr(10) + chr(13) + chr(10) + chr(13)    
    end if
    cMensaje+=" Gracias" + chr(10) + chr(13)
    cdi:oWnd:SetMsg( "Enviando correo..." )
    WSAStartup()
    oOutMail := TSmtp():New( cIP := GetHostByName( alltrim(cdi:vSmtp) ) ) <-- Tu Servidor SMTP
    oOutMail:bConnecting = { || cdi:oWnd:SetMsg( "Conectando con el servidor de correo..." ) }
    oOutMail:bConnected  = { || cdi:oWnd:SetMsg( "Conectado" ) }
    oOutMail:bDone       = { || cdi:oWnd:SetMsg( "Mensaje enviado satisfactoriamente" ) }
    oOutMail:SendMail( "tudireccion@loquesea",;     // From
                      { "laotradireccion@loquesea"},; // To
                      cMensaje,;              // Msg Text
                      "Subject",; // Subject
                      cFicheros )  // attached files   <--> array de ficheros adjuntos
return
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Enviar mail sin outlook
Posted: Fri Nov 21, 2008 12:35 PM
wmormar wrote:devtuxtla,

en el blog de andrés, colgué una lib para lo que necesitas.

http://codigo-base.blogspot.com

espero sea de tu ayuda



Wilian, podrias disponibilizar el RESOURCE "CALCULADORA" y la function:
EQUIS() ???

Code: Select all Collapse
   DEFINE DIALOG ::oCalculator RESOURCE "CALCULADORA" TITLE ".:: Calculadora ::." COLOR CLR_BLUE,CLR_WHITE

   REDEFINE BITMAP oBmp ID 401 OF ::oCalculator TRANSPARENT

   ::oCalculator:bLDblClick := {|| tCalc32:cerrar_programa(), lSalir := .t., ::oCalculator:END(), ::oCalculator := NIL}

   ::oCalculator:bRClicked  := {|| tCalc32:incrustar_calculadora( oBmp )}

   ACTIVATE DIALOG ::oCalculator ON INIT EQUIS(this:oCalculator:hWnd) ;
            VALID lSalir


Muchas gracias.

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
devtuxtla
Posts: 392
Joined: Tue Jul 29, 2008 01:55 PM
Enviar mail sin outlook
Posted: Fri Nov 21, 2008 03:12 PM

Daniel, William, Mike.

Gracias por responder.

Voy a probar cada una de sus sugerencias...

Caray que buen foro tenemos...

Visite Chiapas, el paraiso de México.
wmormar
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: Enviar mail sin outlook
Posted: Fri Nov 21, 2008 06:20 PM

karinha,

Solo es un dialogo con un bitmap

saludos

William, Morales

Saludos



méxico.sureste
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Enviar mail sin outlook
Posted: Fri Nov 21, 2008 06:35 PM

William,

Esta funcion no sirve para nada?

Clase para incrustar calculadora a ventanas FWH
Bueno,

Aquí escribo de nuevo para mostrarle una clase como dice el título para incrustar la calculadora de windows en ventanas, diálogos de FWH.

La clase necesita unos arreglos por las cuestiones de "visualización", pues al minimizarla o maximizarla o moverla y ocultar la ventana o dialogo la imagen inscrustada se pierde, aunque pasando el mouse sobre los botones de la calculadora estos vuelven a "pintarse".

Espero comentarios y sobre todo algún valiente que haga pruebas y posibles mejoras al código.

Gracias de antemano.

Saludos y gracias.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
wmormar
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Enviar mail sin outlook
Posted: Sat Nov 22, 2008 05:57 AM

karinha,

colocaré una actualización en el blog, aviso en cuanto la suba

William, Morales

Saludos



méxico.sureste
dobfivewin
Posts: 325
Joined: Sun Feb 03, 2008 11:04 PM
Backup de Información
Posted: Sun Nov 23, 2008 09:14 AM

Estimados...

Que rutinas hay para generar backup ZIP,
Estoy tratando de usar HB_ZipFile y no me funciona, conseguí la Libreria y no me dá ningun error de compilación ni de ejecución, pero NO me generar nada.
Que otra opciones den de Fivewin tengo?

muchas gracias

david
argentina

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Enviar mail sin outlook
Posted: Mon Nov 24, 2008 11:28 AM
wmormar wrote:karinha,

Solo es un dialogo con un bitmap

saludos


Gracias William.

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion

Static archive · New replies & topics via GitHub Discussions