LOCAL loShellM
LOCAL loCfg, loMsg, lcFile, loErr
VNROCO2=ALLTRIM(THISFORM.COMBO1.Value)+"-"+ALLTRIM(THISFORM.TEXt1.Value)+"-"+ALLTRIM(THISFORM.TEXt7.Value)
VEMAIL=ALLTRIM(THISFORM.TEXt12.Value)
VCLIENTE=UPPER(ALLTRIM(THISFORM.TEXt8.Value))
VFILE = 'C:\PDFCASANOVA\"+ALLTRIM(VNROCO2)+".pdf'
IF VEMAIL<>""
TRY
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 && ó 587
.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") = "xxxxx@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxasaxxxx"
.Update
ENDWITH
loMsg = CREATEOBJECT ("CDO.Message")
WITH loMsg
.Configuration = loCfg
*-- Remitenete y destinatarios
.From = "COMERCIAL CASANOVA EIRL <comercialcasanovaeirl@gmail.com>"
.To = VCLIENTE+"<"+VEMAIL+">"
*.Cc = "Usuario Dos <user2@gmail.com>"
*- Notificación de lectura
.Fields("urn:schemas:mailheader:disposition-notification-to") = .From
.Fields("urn:schemas:mailheader:return-receipt-to") = .From
.Fields.Update
*-- Tema
*.Subject = "Ejemplo del " + TTOC(DATETIME())
.Subject = "Gracias por su compra, reciba su comprobante de pago " + TTOC(DATETIME())
*-- Formato HTML desde la Web
*.CreateMHTMLBody("http://comunidadvfp.blogspot.com/p/acerca-de.html", 0)
*-- Archivo adjunto
lcFile = VFILE
*IF NOT EMPTY(lcFile)
.AddAttachment(lcFile)
*ENDIF
*-- Envio el mensaje
.Send()
MESSAGEBOX('SE ENVIO CDPE AL CORREO',64,'AVISO')
ENDWITH
CATCH TO loErr
MESSAGEBOX("No se pudo enviar el mensaje" + CHR(13) + ;
"Error: " + TRANSFORM(loErr.ErrorNo) + CHR(13) + ;
"Mensaje: " + loErr.Message , 16, "Error")
FINALLY
loMsg = NULL
loCfg = NULL
ENDTRY
ELSE
ENDIF