Page 1 of 1
Enviar mail sin outlook
Posted: Thu Nov 20, 2008 11:54 pm
by 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...
Enviar email sin outlook
Posted: Fri Nov 21, 2008 4:09 am
by 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
Re: Enviar mail sin outlook
Posted: Fri Nov 21, 2008 5:02 am
by 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
Posted: Fri Nov 21, 2008 11:01 am
by 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
Re: Enviar mail sin outlook
Posted: Fri Nov 21, 2008 12:35 pm
by karinha
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.
Posted: Fri Nov 21, 2008 3:12 pm
by devtuxtla
Daniel, William, Mike.
Gracias por responder.
Voy a probar cada una de sus sugerencias...
Caray que buen foro tenemos...
Re: Enviar mail sin outlook
Posted: Fri Nov 21, 2008 6:20 pm
by wmormar
karinha,
Solo es un dialogo con un bitmap
saludos
Posted: Fri Nov 21, 2008 6:35 pm
by 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.
Posted: Sat Nov 22, 2008 5:57 am
by wmormar
karinha,
colocaré una actualización en el blog, aviso en cuanto la suba
Backup de Información
Posted: Sun Nov 23, 2008 9:14 am
by 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
Re: Enviar mail sin outlook
Posted: Mon Nov 24, 2008 11:28 am
by karinha
wmormar wrote:karinha,
Solo es un dialogo con un bitmap
saludos
Gracias William.
Saludos.