4D Netkit : Ajouter un courriel avec Gmail

Il peut arriver que vous jugiez nécessaire de conserver un courriel comme modèle à l’intérieur d’une étiquette désignée dans votre boîte aux lettres. Avec la sortie de 4D 20 R5, nous avons introduit une fonctionnalité qui vous permet d’ajouter un courriel à une boîte aux lettres sans l’envoyer.

Connexion au compte

Avant d’ajouter un courriel, nous allons créer un objet de connexion OAuth 2.0 et un objet 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"})

Ajouter un courriel

Pour ajouter un email, vous devez utiliser la fonction .append( ) :

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

Par défaut, le courrier est créé avec une étiquette « DRAFT », mais vous pouvez la modifier en passant un second paramètre :

$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