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: [email protected] [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 = "alex@ <mailto:[EMAIL PROTECTED]>
memory-argentina.com"
oSMTP.MessageSubject = "Asunto: Prueba"
oSMTP.MessageText = "Prueba"
oSMTP.POPServer = "www.memory-argentina.com
<http://www.memory-argentina.com/> "
oSMTP.Port = 25
oSMTP.SendTo = "[EMAIL PROTECTED]"
oSMTP.Server = "www.memory-argentina.com <http://www.memory-argentina.com/>
"
oSMTP.Username = "alex@ <mailto:[EMAIL PROTECTED]>
memory-argentina.com"
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
