SMTP_MessageID

4D Internet Commands v16

SMTP_MessageID


SMTP_MessageID ( smtp_ID ; message_ID {; option} ) -> Résultat

Paramètre	Type	Description
smtp_ID	Entier long	Référence de message
message_ID	Texte	Identifiant unique du message
option	Entier	0 = Ajouter (défaut), 1 = Remplacer, 2 = Supprimer
Résultat	Entier	Code d’erreur

Description

La commande SMTP_MessageID permet d’ajouter un champ "message-id" dans l’en-tête du message dont la référence est smtp_ID. Cet identifiant unique est utilisé notamment sur les forums ou listes de messagerie publiques. En général, les serveurs de messagerie ajoutent automatiquement cet en-tête aux messages qu’ils émettent. Cette commande vous permet de définir son contenu.

smtp_ID contient l’identifiant d’un message électronique créé avec la commande SMTP_New.

Passez dans message_ID l’identifiant à associer au message. Le contenu à passer est en principe libre, toutefois par convention il sera généralement de la forme "lettresOuChiffres@nomdomaine", par exemple "abcdef.123456@4d.com". A noter que certains serveurs de messagerie (par exemple Gmail) ne reconnaissent pas les en-têtes "message-id" personnalisés et les remplacent s’ils ne sont pas sous cette forme.

Le paramètre option vous permet de préciser s’il faut conserver ou supprimer l’en-tête message_ID éventuellement existant :

Si vous passez 0 (valeur par défaut si le paramètre est omis), le contenu du paramètre passé est ajouté au contenu existant.
Si vous passez 1, le contenu du paramètre passé remplace le contenu existant.
Si vous passez 2, le contenu existant est supprimé du message.

Exemple

Dans cet exemple, un message avec en-tête "message-id" spécifique est envoyé pour chaque enregistrement de la table [Admins] :

 $erreur:=SMTP_New($smtp_id)

 $erreur:=SMTP_Host($smtp_id;"infoserv.com")

 $erreur:=SMTP_From($smtp_id;"info@infoserv.com")

 $erreur:=SMTP_Subject($smtp_id;"Statistiques générales")

 FIRST RECORD([Admins])

 For($i;1;Records in selection([Admins]))

    $erreur:=SMTP_Body($smtp_id;$Stats)

    $erreur:=SMTP_To($smtp_id;[Admins]Email;1) //Remplacer l'en-tête "A" par une nouvelle valeur

    $erreur:=SMTP_MessageID($smtp_id;[Admins]ID+"@infoserv.com";1) //Utilisation de l’id de l’admin

    $erreur:=SMTP_Send($smtp_id)

    NEXT RECORD([Admins])

 End for

 $erreur:=SMTP_Clear($smtp_id)