4D Doc Center : SMTP

4D Internet Commands v12.1

SMTP_Send


SMTP_Send ( smtp_ID {; paramSession} ) -> Résultat

Paramètre	Type	Description
smtp_ID	Entier long	Référence du message
paramSession	Entier long	1 = Utiliser SSL, 0 ou omis = Ne pas utiliser SSL
Résultat	Entier	Code d'erreur

Description

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.

Le paramètre optionnel paramSession vous permet d'activer le protocole SSL pour la connexion :

si vous passez 1, l'envoi du message sera effectué en SSL (mode synchrone),
si vous passez 0 ou omettez ce paramètre, le message sera envoyé en mode standard non sécurisé.

Exemple

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)