WDForge.org - Forums

Classe d'envoi de mail par l'emailer gratuit BLAT

Sujet: Classe d'envoi de mail par l'emailer gratuit BLAT
par Christian sur 2/5/2006 12:27:06

Bonjour,

J'essaie d'utiliser la classe cMail avec BLAT et j'ai un message d'erreur: Nom de fichier (texte de message) introuvable, ou Argument mal déclaré."

Mon code (sur le clic d'un bouton)
monmail est un cMail
sPJ est une chaîne=""

Sablier(Vrai)

// on installe blat
monmail:OuvreSessionSMTP("IDCompte","smtp.wanadoo.fr","IDCompte","pwd")

//on prepare l'email
monmail:Expéditeur = "expediteur@domaine.fr" // L'expéditeur
monmail:NbDestinataire = 1 // Le nombre de destinataires
monmail:TabDestinataire[1] = "destinataire@wanadoo.fr" // Le destinataire
monmail:Sujet = "sObjet" // Le sujet
monmail:Corps = "sContenu" // Le corps du message

// Pièces jointes
sListePJ est une chaîne = sPJ+";"
sFichier est une chaîne
i est un entier
monmail:NbAttache = 0
BOUCLE
i++
sFichier=SansEspace(ExtraitChaîne(sListePJ,i,";"))
SI sFichier = EOT ALORS SORTIR
SI PAS fRep(sFichier,frFichier)~="" ALORS
monmail:NbAttache++
monmail:TabAttache[monmail:NbAttache]=sFichier
FIN
FIN

monmail:Send()

Sablier(Faux)

Un grand merci à ceux qui peuvent me dépatouiller !

Christian