1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105
|
PROCÉDURE envoiMail()
user,password,entree,ssortie,corps,porc,sfichier,sujet sont des chaînes
bbb est un entier
gSessionSMTP est une emailSessionSMTP
UnCourriel est un Email
monAttache est un emailAttache
EmailRAZ()
sfichier=fRepEnCours+"\FACMAIL\"+Sarl.Numero+Facture.numfac+NumériqueVersChaîne(lexemplaire)+".PDF"
HLit("paramfac",67)
user=SansEspace(Paramfac.nompolice)
HRAZ("paramfac")
HLit("paramfac",68)
password=SansEspace(Paramfac.nompolice)
HRAZ("paramfac")
HLit("paramfac",69)
entree=SansEspace(Paramfac.nompolice)
HRAZ("paramfac")
HLit("paramfac",70)
ssortie=SansEspace(Paramfac.nompolice)
HRAZ("paramfac")
HLit("paramfac",70)
porc=SansEspace(Paramfac.logo)
HRAZ("paramfac")
decomposition()/// si plusieurs destinataires
FOR bbb=1 TO nbmail
IF SansEspace(txtmail)<>"" ALORS
sujet=lepipi+"/ Facture de loyer n° "+Facture.numfac
corps="Bonjour,"+RC+RC+"Nous vous prions de trouver en pièce jointe votre facture relative au :"+RC+RC+Facture.objet_de_facture+RC+RC+SansEspace(txtmail)+RC+RC+"Cordialement"+RC+RC+...
Sarl.nom_du_gerant+RC+SansEspace(Sarl.Raison_sociale)
ELSE
sujet=lepipi+"/ Facture de loyer n° "+Facture.numfac
corps="Bonjour,"+RC+RC+"Nous vous prions de trouver en pièce jointe votre facture relative au :"+RC+RC+Facture.objet_de_facture+RC+RC+"Cordialement"+RC+RC+...
Sarl.nom_du_gerant+RC+SansEspace(Sarl.Raison_sociale)
FIN
gSessionSMTP..AdresseServeur =ssortie
gSessionSMTP..Nom =user
gSessionSMTP..MotDePasse =password
gSessionSMTP..Port =porc
gSessionSMTP..Option = emailOptionSécuriséTLS
// Contenu de l'email
monAttache..Nom = fExtraitChemin(sfichier, fFichier + fExtension)
monAttache..Contenu =fChargeBuffer(sfichier)
monAttache..ContentType = "application/pdf"
monAttache..ContentDescription =Facture.numfac
UnCourriel..Expediteur =user
UnCourriel..Destinataire[1] =TableauValeur[bbb]
UnCourriel..Sujet = sujet
UnCourriel..Message =corps
UnCourriel..TexteBrut = corps
Ajoute(UnCourriel..Attache, monAttache)
ToastAffiche(SansEspace(Sarl.Raison_sociale)+RC+"Envoie de la factures: "+SansEspace(Bien.locataire)+RC+TableauValeur[bbb],toastCourt,cvMilieu,chCentre,BleuClair)
// Envoi de l'email
SI EmailOuvreSession(gSessionSMTP) = Vrai ALORS
SI EmailEnvoieMessage(gSessionSMTP, UnCourriel) = Faux ALORS
Erreur("L'envoi de l'email a échoué.", ErreurInfo(errMessage))
FIN
SINON
Erreur("Impossible d'établir la connexion", ErreurInfo(errMessage))
FIN
ToastSupprimeTout()
Multitâche(tempomail)
FIN
EmailFermeSession(gSessionSMTP) |
Partager