Enviar mail sin outlook

[devtuxtla]

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

Gracias...

[DanielPuente]

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'},;
'suisrm@mas-suis.com.ar','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

[wmormar]

devtuxtla,

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

http://codigo-base.blogspot.com

espero sea de tu ayuda

[Mike Serra]

Buenas devtuxtla, el siguiente codigo me funciona correctamente:

Code: Select all

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]

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

   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.

[devtuxtla]

Daniel, William, Mike.

Gracias por responder.

Voy a probar cada una de sus sugerencias...

Caray que buen foro tenemos...

[wmormar]

karinha,

Solo es un dialogo con un bitmap

saludos

[karinha]

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.

[wmormar]

karinha,

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

[dobfivewin]

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]

karinha,

Solo es un dialogo con un bitmap

saludos

Gracias William.

Saludos.