SMTP_Send

version 6.5

SMTP_Send (smtp_ID) Entier

La commande SMTP_Send envoie le message référencé par smtp_ID, mais n'efface pas les données de la mémoire.

smtp_ID est l'identifiant du message électronique créé avec la commande SMTP_New.

Dans cet exemple, un message est créé et les éléments statiques sont définis. Ensuite, pour chaque enregistrement de la table [Personnes], le message est personnalisé et envoyé.

   $erreur:=SMTP_New ($smtp_id)
   $erreur:=SMTP_Host ($smtp_id;"wkrp.com")
   $erreur:=SMTP_From ($smtp_id;"herb_tarlick@wkrp.com")
   $erreur:=SMTP_ReplyTo ($smtp_id;"bigguy@wkrp.com")
   $erreur:=SMTP_Subject ($smtp_id;"Promotions sur les espaces publicitaires !")
   DEBUT SELECTION([Personnes])
   Boucle($i;1;Enregistrements trouves ([Personnes]))
      Si ([Personnes]VentesACeJour>100000)
         $Corps:=<>GrdTexteDisque
      Sinon
         $Corps:=<>PttTexteDisque
      Fin de Si
      $Corps:=Remplacer chaine ($TexteConstant;"<Salutations>";[Personnes]Prénom)
      $erreur:=SMTP_To ($smtp_id;[Personnes]Email;1)   `Remplacer l'en-tête "A" par une nouvelle valeur
      $erreur:=SMTP_Body ($smtp_id;$Corps)
      $erreur:=SMTP_Send ($smtp_id)
      ENREGISTREMENT SUIVANT([Personnes])
   Fin de boucle 
   $erreur:=SMTP_Clear ($smtp_id)

SMTP_New.