Discussion :

[CmzxNene]

Bonjour,

Dans mon projet actuel, j'ai plusieurs Function pour envoyer des mails (je ne passe pas par Outlook)
Dans chaque Function, j'ai le corps du texte de mon mail qui est identique pour toutes les Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Corps = "Bonjour, " & vbCrLf & vbCrLf & _
"Veuillez trouver en pièce jointe la/les facture(s) émise(s) ce jour." & vbCrLf & vbCrLf & _
"Vous en souhaitant bonne réception, " & vbCrLf & vbCrLf & _
"Le Service Comptable"

J'ai créé une variable publique qui se trouve tout en haut de mon module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PUBLIC Corps as String

J'ai essayé comme ci-dessous de copier le Corps à la suite de la variable mais mon mail est sans Corps....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
PUBLIC Corps as String = "Bonjour, " & vbCrLf & vbCrLf & _
"Veuillez trouver en pièce jointe la/les facture(s) émise(s) ce jour." & vbCrLf & vbCrLf & _
"Vous en souhaitant bonne réception, " & vbCrLf & vbCrLf & _
"Le Service Comptable"

Ma question : où dois-je mettre mon corps de mail pour éviter de le copier dans chaque Function ?

Merci à tous de votre aide

[jd gayot]

Bonjour
Dans la mesure où le texte est toujours le même, ce n'est plus une variable mais une constante...

Un peu de lecture ici

[CmzxNene]

Bonjour
Dans la mesure où le texte est toujours le même, ce n'est plus une variable mais une constante...

Un peu de lecture ici

Bonjour jd
Merci pour ton retour

J'ai donc fait sous forme de constante et mis celle-ci en tout début de module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Const Corps as String = "Bonjour, " & vbCrLf & vbCrLf & _
"Veuillez trouver en pièce jointe la/les facture(s) émise(s) ce jour." & vbCrLf & vbCrLf & _
"Vous en souhaitant bonne réception, " & vbCrLf & vbCrLf & _
"Le Service Comptable"

Mon mail est désespérément vide de corps de texte



Pendant que j'écrivais ce post, une idée est venue à moi et j'ai relancé ma Function
Le résultat attendu est bien là

En fait, j'avais fait des essais dans la même logique auparavant et mon mail restait vide de Corps
et j'ai trouvé mon erreur ==> j'avais déclaré mes variables dans chaque Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Corps as String

et ne l'avais pas retiré une fois la Const inscrite

Tout fonctionne correctement et mon code est allégé
Merci pour ton aide
Bien cordialement

[jd gayot]

Effectivement une étourderie qui peut faire perdre beaucoup de temps.
Maintenant cela fonctionne et tu as appris quelque chose. C'est le principal.