Derniers Articles
Vous êtes ici : Accueil / Tutoriaux / Développement / Envois de Mailing, Modulo() est votre amis.

Envois de Mailing, Modulo() est votre amis.

En effet, pour les sites qui ne bénéficie pas d`un contrat professionnel auprès de leur FAI, l`envoi de XXX emails est souvent considéré comme du SPAM.

Pour contourner cette limitation, la technique consiste donc à ce déconnecter du compte SMTP tous les XXX emails envoyés puis a ce reconnecter.

Voici un exemple de code :

 

//Ouverture de la session SMTP
//On fixe le délai de timeout, on le fixe à 20 secondes

EmailChangeTimeOut(20)

 

//Init des paramètres de l`email

Email.NbDestinataire = 1

Email.Expéditeur = « webmaster@ informatique-loiret.fr  »

Email.AdresseExpéditeur = « webmaster@informatique-loiret.fr »

Email.Sujet = « Le Sujet : test envoi email »

Email.message = « Le Message : test envoi email »

 

//Ouverture sessions SMTP

SI PAS EmailOuvreSessionSMTP(« SessionSMTP », « smtp.free.fr ») ALORS

Erreur(« Erreur : Impossible d`établir la connexion » + RC + EmailMsgErreur(Email.Erreur))

RETOUR

FIN

 

//***** ENVOI MAILING A 100 CONTACTS *****//

 

i est un entier = 1

POUR i = 1 A 100

 

//Je me déconnecte et reconnecte tous les 10 messages.

SI modulo(i, 10)=0 ALORS

 

EmailFermeSession(« SessionSMTP »)

Multitâche(100)

SI PAS EmailOuvreSessionSMTP(« SessionSMTP », »smtp.free.fr ») ALORS

Erreur(« Erreur : Impossible d`établir la connexion » + RC + EmailMsgErreur(Email.Erreur))

RETOUR

FIN

FIN

 

//On affecte le destinataire avec l`adresse contenue dans le tableau précédemment conçu

Email.Destinataire[1] = TabAdresseEmail[i]

 

// Envoie du eMail

SI PAS EmailEnvoieMessage(« SessionSMTP ») ALORS

ErreurInfo(errMessage))

FIN

Jauge(i,nbAdressesEmail)

FIN

 


Répondre

Votre adresse email ne sera pas publiée.

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.

shared on wplocker.com