XL 2016 [RESOLU] Problème envoi mail si espace suivi d'un tiret

Lolote83

XLDnaute Barbatruc
Bonjour à tous,
Cette fois-ci, c'est moi qui est besoin d'aide ou d'explication.
J'utilise très régulièrement l'envoi de fichier par mail et j'ai une macro qui fonctionne bien sauf qu'il faut se contraindre à respecter une certaine forme d'écriture. NE PAS AVOIR d'espace suivi d'un tiret que ce soit dans le corps du message ou dans le nom du fichier à joindre.
Pour plus d'explications, tout est simulé dans l'onglet explication.
Un onglet Test est présent pour vous permettre aussi de tester
Question 1 : Comment remédier à ce problème ?
Question 2 : Comment joindre plus d'un fichier (2,3 .....)
Si besoin de plus de détail, n'hésitez pas.
@+ Lolote83
 

Pièces jointes

  • Mail sans espace suivi d'un tiret sinon problème.xlsm
    148.7 KB · Affichages: 18

sousou

XLDnaute Barbatruc
Bonsoir
Réponse à la question1
La syntaxe xml.
Modifie ces deux lignes

xSujet = "Commande n°""" & [C4] & """ (à " & Time() & ")"

.Body = .Body & "Veuillez trouver joint la commande n° <b>""" & [C4] & """</b> d'un montant de <b>" & Format([D4], "000.00 €") & "</b> pour la société <b>""" & [E4] & """</b>" & vbCrLf & vbCrLf
 

sousou

XLDnaute Barbatruc
Re
Deuxième question:
Les pièces jointes doivent être séparée par une virgule du genre:
.Attachments = xFichier1 & "," & xFichier2
Il faut donc fabriquer la phrase d'attachement en fonction du nombre de pièces jointes
A voir!!??
 

Lolote83

XLDnaute Barbatruc
Salut Sousou,
Merci pour ta réponse que je vais immédiatement tester et du coup mettre en place
Pour la réponse 2, j'aurais du y penser, mais il y a toujours plus fort que moi !!!!

Tests effectués, tout est OK.
Merci

Bonne journée
@+ Lolote83
 
Dernière édition:

Statistiques des forums

Discussions
311 734
Messages
2 082 020
Membres
101 872
dernier inscrit
Colin T