Olic78124
XLDnaute Nouveau
Bonjour à toutes et à tous,
Tout est dans le titre ou presque, en espérant ne pas trop faire bondir @dysorthographie
J'ai un environnement TEST lorsque je modifie ma fameuse macro développée à l'arrache sur plusieurs années, et je souhaite afficher les mails générés au lieu de les envoyer mais le .Display ne fonctionne pas ! Pas de message d'erreur et en pas à pas tout semble se dérouler correctement.
La seule modification apportée au code est la suivante et je ne vois pas ce qu'il faudrait modifier d'autre pour que le mail s'affiche.
D'avance merci.
Olivier
Tout est dans le titre ou presque, en espérant ne pas trop faire bondir @dysorthographie
J'ai un environnement TEST lorsque je modifie ma fameuse macro développée à l'arrache sur plusieurs années, et je souhaite afficher les mails générés au lieu de les envoyer mais le .Display ne fonctionne pas ! Pas de message d'erreur et en pas à pas tout semble se dérouler correctement.
La seule modification apportée au code est la suivante et je ne vois pas ce qu'il faudrait modifier d'autre pour que le mail s'affiche.
VB:
If ThisWorkbook.Worksheets("Initialisation").Range("Q17").Value = "TEST" Then
With OutMail
.To = Destinataire
.CC = DestinataireCopie
.BCC = DestinataireCopieCache
.Subject = Sujet
.Importance = ImportanceMessage '1:Priorité normale(valeur par défaut)/ 2: priorite haute/ 0 et autres valeurs: faible/
.HTMLBody = Message & RangetoHTML(rng)
.Attachments.Add lien_piece_jointe
.Display
End With
Else
With OutMail
.To = Destinataire
.CC = DestinataireCopie
.BCC = DestinataireCopieCache
.Subject = Sujet
.Importance = ImportanceMessage '1:Priorité normale(valeur par défaut)/ 2: priorite haute/ 0 et autres valeurs: faible/
.HTMLBody = Message & RangetoHTML(rng)
.Attachments.Add lien_piece_jointe
.Send
End With
End If
D'avance merci.
Olivier