Envoyer un mail par macro
Bonjour,
Avant de vous solliciter j'ai bien rechercher sur google ainsi que tous les forums mais cependant j'ai un problème.
Voila à partir d'une macro je veux envoyer un mail contenant un tableau dans le mail (pas en pièce jointe)
Code :
Code:
1
2
3
4
5
6
7
8
9
10
11
|
Sh.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Please you will found below the ticket Number" & c.Value
.Item.To = "ADDRESSE MAIL "
.Item.Subject = "Ticket Number " & c.Value
.Item.body = "Regards"
.Item.Send
End With |
Mon code s'arréte beug sur la ligne (item.send)
Le problème que je rencontre c est que j'ai bien toutes les données ds le mail avec le mail tout prêt à l'envoi.
Cependant, non seulement il m'envoie pas le mail automatiquement comme demandé mais quand je clique sur envoie, j'ai un message indiquant qu'il il y a une boite de dialogue ouverte dans microsoft outlook et il me demande de fermer cette boite.
je comprends pas trop pourquoi il se passe cela ?
merci d'avance
