Envoi de mail par 4D

**scorpia** · 02/05/2006, 11h43

Bonjour,
Je souhaite envoyer des mails via 4D avec un format type HTML.
C'est à dire que je souhaite intégrer dans le mail des images, des boutons et des champs textes (un petit formulaire en somme).

Avez-vous un idée ?

Merci
SCRP

**Elgo** · 02/05/2006, 14h16

Bonjour,

Voici un bout de code permettant d'envoyer un fichier HTML avec 4D, il faut passer par les Internets Commands. Le code ne permet pas l’envoi de fichier HTML incluant des images:

Dans un Premier temps on charge le document HTML à envoyer dans une variable texte (MesHTM).
`méthode objet BoutonOpen
`Ouvrir un document html le stocker dans MesHTM
`initialisation
C_BLOB(box)
C_HEURE($ref)
C_ENTIER($offset)
C_TEXTE(MesHTM)
$ref:=Ouvrir document("")
FERMER DOCUMENT($ref)
DOCUMENT VERS BLOB(document;box)
MesHTM:=BLOB vers texte(box;3;$offset;32000)
Ensuite, on va envoyer notre document pour ne pas recevoir du texte simple au lieu de notre texte HTML puis on met a jour le Charset.
`méthode objet BoutonSend
`envoi un message (MesHTM) en html
`Initialisation
C_ENTIER($error;$smtp_id)
C_TEXTE($Host;$Subject;$FromAddress;$ToAddress;MesHTM)
`Paramètres à fournir
$Host:="MonSeveurMail"
$Subject:="Monsujet"
$FromAddress:="AdresseExpediteur"
$ToAddress:= "AdresseDestinataire"
`Création d' un nouveau mail
$error:=SMTP_New ($smtp_id)
`Transformation du head pour la compatibilité
Si (Sous chaine(MesHTM;1;6)="<HTML>")
$error:=SMTP_AddHeader ($smtp_id;"Content-Type:";"text/html;charset=us-ascii";1)
Fin de si
$error:=SMTP_Host ($smtp_id;$Host)
$error:=SMTP_From ($smtp_id;$FromAddress)
$error:=SMTP_Subject ($smtp_id;$Subject)
$error:=SMTP_To ($smtp_id;$ToAddress)
$error:=SMTP_Body ($smtp_id;MesHTM)
$error:=SMTP_Send ($smtp_id)
$error:=SMTP_Clear ($smtp_id)
`En cas d'erreur on le signale
Si ($error#0)
ALERTE("Error SMTP Command:"+Chaine($Error))
Fin de si

Cordialement

**scorpia** · 02/05/2006, 18h01

Merci beaucoup pour ta réponse qui m'a bien aidée.

Je fais qqs tests et je mettrai le message au statut "résolu" qd j'aurai bien testé tout ça.

En tout cas merci beaucoup
SCRP

Envoi de mail par 4D

4D

Discussions similaires

Partager

Partager