4D Netkit: Adjuntar un correo electrónico con Gmail

Puede haber ocasiones en las que encuentre necesario mantener un email como plantilla dentro de una etiqueta designada en su buzón. Con el lanzamiento de 4D 20 R5, hemos introducido una funcionalidad que le permite añadir un email a un buzón sin enviarlo.

Conexión a la cuenta

Antes de añadir un email, crearemos un objeto de conexión OAuth 2.0 y un objeto Google.

var $oAuth2 : cs.NetKit.OAuth2Provider
var $google : cs.NetKit.Google
$oAuth2:=cs.NetKit.OAuth2Provider.new($credentials)
$google:=cs.NetKit.Google.new($oAuth2; {mailType: "JMAP"})

Añadir un correo electrónico

Para añadir un correo electrónico, debe utilizar la función .append():

$status:=$google.mail.append($mail)

Por defecto, el correo se crea con la etiqueta «BORRADOR», pero puedes cambiarla pasando un segundo parámetro:

$status:=$google.mail.append($mail;["INBOX"])

$mail:=$google.mail.getMail($draftId)
$mail.to:="Toaddress@mail.com"

$status:=$google.mail.send($mail)
if ($status.success)
   // If you no longer need your draft
   $google.mail.delete($draftId)
end if