CONSULTA ENVIAR CORREO USANDO OUTLOOK
Roberto Tello & Asoc. - Estudio Informatico
Amigos intento enviar correo usando outlook.. pero los mismos quedan en la bandeja de salida y no se envian... alguna sugerencia...??
mail='mico...@uolsinectis.com.ar'
oOutlook = CREATEOBJECT("outlook.application")
oMail=oOutlook.createitem(0)
oMail.Subject="Envío Nómina al Banco Correspondiente al :"
oMail.attachments.ADD("c:\backup\backupemailgv.zip")
oMail.to = mail
*!* oMail.Display
oMail.send
oMail = .NULL.
RELEASE oMail
oOutlook = .NULL.
RELEASE oOutlook
Saludos Totalesssss
Roberto
Luis Maria Guayan
_________________________
Roberto Tello & Asoc. - Estudio Informatico
LMG asi quedó mi código... y funciona sin problemas. Lo copio por si le sirve a alguien.
loCfg = CREATEOBJECT("CDO.Configuration")
WITH loCfg.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = .T.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .T.
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "bodega...@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "oscarxxxxxx"
.Update
ENDWITH
loMsg = CREATEOBJECT ("CDO.Message")
WITH loMsg
.Configuration = loCfg
.From = "bodega...@gmail.com"
.To = "correo...@uolsinectis.com.ar"
.Cc = "segundocor...@hotmail.com"
.Subject = "BACKUP POR CORREO"
.TextBody = "BACKUP DE DATOS"
.AddAttachment("C:\backup\backupemailgv.zip")
.Send()
ENDWITH
Gracias Totalessss....!!!!
Y hasta cualquier momento....!!!
Roberto H. Tello
SAN JUAN - ARGENTINA
