|
| Iniciado por iyaka, mar., 16 2004 10:36 AM - 1 resposta |
| |
| | | |
|
| |
Publicado em março, 16 2004 - 10:36 AM |
Hey!
Je souhaiterai savoir s'il est possible de générer un email avec des
images, des textes en HTML. Si oui, pourriez vous me dire comment
faire et/ou me donner un exemple de code ?
Merci de votre aide qui me sera précieuse.
A. |
| |
| |
| | | |
|
| | |
| |
Publicado em março, 17 2004 - 8:25 AM |
Salut, voici ce que j'ai trouvé dans la doc, si cela peut t'aider :
--------------------------------------------------------
Pour écrire un e-mail, les différentes étapes sont les suivantes :
1. Initialisez la structure e-mail, en précisant les destinataires, le
sujet, etc. (Email.Destinataire, Email.NbDestinataire, Email.NbBcc,
Email.Bcc et Email.Sujet).
2. Si l'e-mail est au format texte :
Initialisez la variable Email.Message avec le texte de l'e-mail.
Précisez les fichiers attachés si nécessaire (variables Email.NbAttache et
Email.Attache).
3. Si l'e-mail est au format HTML :
Initialisez les variables Email.Message et Email.HTML.
Remarque : Il est conseillé de mettre un message au format texte pour les
systèmes de messagerie ne permettant pas de lire des e-mails au format HTML.
Analysez le message HTML pour détecter tous les fichiers multimédia
présents dans le message.
Pour chaque fichier multimédia trouvé :
- Créez un fichier attaché. Ce fichier attaché correspond au fichier
multimédia (variables Email.Attache et Email.NbAttache).
- Créez un identifiant (Email.IdentifiantAttache). Cet identifiant doit être
de la forme "wdcid"+numéro du fichier attaché. Par exemple, WDCID5 si le
fichier correspondant est le cinquième fichier attaché.
- Recherchez le fichier multimédia dans le message HTML et remplacez son nom
par la chaîne : "cid:"+Email.IdentifiantAttache.
Par exemple :
Code HTML original : <IMG src="C:\MesImages\Image.gif">
Code HTML remplacé : <IMG src="cid:WDCID5"
4. Envoyez l'e-mail avec la fonction EmailEnvoieMessage.
Remarque : Il est possible de suivre la progression de l'envoi de l'e-mail
grâce à la fonction EmailJauge.
Exemple : Cet exemple permet de remplacer les références aux fichiers
multimédia (images, sons, etc.) présents dans la variables Email.HTML par
leurs identifiants de type "CID". Cette procédure est appelée pour chaque
fichier multimédia trouvé.
Procédure SetFichierAttache(NomFichier, Indice)
Email.Attache[Indice] = NomFichier
// Remplacer dans Email.HTML toutes les références au fichier
// par l'identifiant cid
CID est une chaîne = "cid:wdcid" + Indice
// Le fichier html n'a pas forcément été crée dans le répertoire en cours
// Il peut référencer les fichiers attachés sous des chemins quelconques
// On extrait donc le nom du fichier sans chemin
NomSimple est une chaîne = fExtraitChemin(NomFichier, fFichier + fExtension)
// Rechercher le nom du fichier dans Email.HTML
Pos est un entier = 0
PosDébut, PosFin sont des entiers
SousChaîne est une chaîne
Pos = Position(Email.html, NomSimple, Pos)
SI Pos <> 0 ALORS
PosFin = Pos + Taille(NomSimple)
// Rechercher la position du début de la référence
// Rechercher le delimiteur "
Pos --
SousChaîne = Email.HTML[[Pos]]
TANTQUE Pos > 1 ET SousChaîne <> """"
Pos --
SousChaîne = Email.HTML[[Pos]]
FIN
PosDébut = Pos + 1
// Remplacer
SousChaîne = Milieu(Email.HTML, PosDébut, PosFin-PosDébut)
Email.HTML = Remplace(Email.HTML, SousChaîne, CID)
FIN
--------------------------------------------------------
"Aristote" <iyaka@caramail.com> a écrit dans le message de news:
4056c167@news.pcsoft.fr...
Hey!
Je souhaiterai savoir s'il est possible de générer un email avec des
images, des textes en HTML. Si oui, pourriez vous me dire comment
faire et/ou me donner un exemple de code ?
Merci de votre aide qui me sera précieuse.
A.
|
| |
| |
| | | |
|
| | | | |
| | |
|