[GUFA] Envio de emails

[Oscar Zárate]

IFOX?

www.ifox.com.ar

Con soporte en Cordobes e Ingles (diria el amigo Salias) y presente en la
lista.

SaludOZ,


On 11/27/07, Pablo Satelier <[EMAIL PROTECTED]> wrote:
>
>  Hola Alejandro,….yo uso esta funcion, que la rescate de algun foro,
> funciona hasta con gmail.
>
>
>
>
>
> FUNCTION ENVIARMAIL
>
> LPARAMETERS pcEmailCliente, pcSubject, pcMensaje, pcCartel,
> pcMostrarCartel
>
>             TRY
>
>               LOCAL lcSchema, loConfig, loMsg, loError, lcErr
>
>               lcErr = ""
>
>               lcSchema = "http://schemas.microsoft.com/cdo/configuration/";
>
>               loConfig = CREATEOBJECT("CDO.Configuration")
>
>               WITH loConfig.FIELDS
>
>                 .ITEM(lcSchema + "smtpserver") = "smtp.gmail.com"
>
>                 .ITEM(lcSchema + "smtpserverport") = 587 && ó 465
>
>                 .ITEM(lcSchema + "sendusing") = 2
>
>                 .ITEM(lcSchema + "smtpauthenticate") = .T.
>
>                 .ITEM(lcSchema + "smtpusessl") = .T.
>
>                 .ITEM(lcSchema + "sendusername") = "[EMAIL PROTECTED]"
>
>                 .ITEM(lcSchema + "sendpassword") = "********"
>
>                 .UPDATE
>
>               ENDWITH
>
>               loMsg = CREATEOBJECT ("CDO.Message")
>
>               WITH loMsg
>
>                 .Configuration = loConfig
>
>                 .FROM = " pepito @gmail.com"
>
>                 .TO = pcEmailCliente
>
>                 .Subject = pcSubject
>
>                 .TextBody = pcMensaje
>
>                 .Send()
>
>               ENDWITH
>
>               loMsg.Send()
>
>
>
>             CATCH TO loError
>
>               lcErr = [Error: ] + STR(loError.ERRORNO) + CHR(13) + ;
>
>                 [Linea: ] + STR(loError.LINENO) + CHR(13) + ;
>
>                 [Mensaje: ] + loError.MESSAGE
>
>             FINALLY
>
>               RELEASE loConfig, loMsg
>
>               STORE .NULL. TO loConfig, loMsg
>
>               IF EMPTY(lcErr)
>
>                         IF pcMostrarCartel = 1
>
>                             MESSAGEBOX(pcCartel, 64, "Digital Software.
> Aviso")
>
>                         ENDIF
>
>               ELSE
>
>                 MESSAGEBOX(lcErr, 16 , "Error")
>
>               ENDIF
>
>             ENDTRY
>
>
>
>             RETURN
>
>
>
> ENDFUNC
>
>
>
>
>
>
>
> Espero te sirva, saludos.
>
> Pablo
>
>
>
>
>  ------------------------------
>
> *De:* GUFA@mug.org.ar [mailto:[EMAIL PROTECTED] *En nombre de *Alejandro
> Paciotti Iacchelli
> *Enviado el:* Lunes, 26 de Noviembre de 2007 10:13 a.m.
> *Para:* GUFA List Member
> *Asunto:* [GUFA] Envio de emails
>
>
>
> Buenas a todos !
>
>
>
> Alguien conoce algun programa, metodo, .dll, para envio de mails *sin usar
> outlook, ni outlook express ?*
>
>
>
> Estoy probando con el componente OstroSoft que he visto en
> http://www.ostrosoft.com y no anda, no se identifica con el servidor.
>
>
>
>
>
> Lo probé de la siguiente manera:
>
>
>
>
>
> oSMTP = CREATEOBJECT("OSSMTP.SMTPSession")
>
> oSMTP.Server = "ALE"
>
> oSMTP.AuthenticationType = 1
>
> oSMTP.MailFrom = "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
>
> oSMTP.MessageSubject = "Asunto: Prueba"
>
> oSMTP.MessageText = "Prueba"
>
> oSMTP.POPServer = "www.memory-argentina.com"
>
> oSMTP.Port = 25
>
> oSMTP.SendTo = "[EMAIL PROTECTED]"
>
> oSMTP.Server = "www.memory-argentina.com"
>
> oSMTP.Username = "[EMAIL PROTECTED]"
>
> oSMTP.Password = "********"
>
> oSMTP.Timeout = 10000
>
> oSMTP.SendEmail()
>
> Cualquier comentario, será bienvenido, saludos cordiales para todos !
>
>
>
>
>
>
>
> __________ Información de NOD32, revisión 2686 (20071126) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32.com
>