Discussion :

[delbok]

Bonjour à tous,

c'est mon premier message alors un peu d'émotion forcément...

voilà j'ai réalisé un petit module d'envoi d'email en vba excel via Outlook.
Ce petit module envoie un mail à toute une liste de clients (un nombre important) et je souhaiterais empêcher l'enregistrement automatique de tous les mails envoyés dans le dossier Sent Items (Boite d'envoi ou Eléments Envoyés en français ).

Ma boite étant limité en taille (15Mo) je souhaite donc annuler l'enregistrement mais ne sais pas comment le faire sous vba donc si vous savez ça serait top !
J'ai bien cherché sur les différents forums, mais j'ai pas trouvé !

Je vous remercie par avance et vous souhaite une bonne journée.

Delbok

[SfJ5Rpw8]

tu utilise qu'elle méthode pour l'envoi des mails ..? CDO ?

[delbok]

Et bien j'utilise la méthode "classique" :

Code :

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

1
2
3
4
5
6
7
8
9
10
                   Set MonOutlook = CreateObject("Outlook.Application")
                   Set MonMessage = MonOutlook.CreateItem(0)
 
                    MonMessage.to = "essai@machin.com"
                    MonMessage.Cc = ""
                    MonMessage.Bcc = ""
                    MonMessage.Subject = sujet
                    MonMessage.body = message
                    MonMessage.send
                    Set MonOutlook = Nothing

Voilà ma méthode, mais je suis ouvert à toutes propositions me permettant d'empêcher la sauvegarde automatique...
Merci !

[wape]

Bonjour,

Essaye d'ajouter (avant le send) :

Code :

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

MonMessage.DeleteAfterSubmit = True

wape

[delbok]

De la balle,
t'es un vrai champion... ça marche nickel...

j'avais parcouru des centaines de pages sans succès et en deux lignes t'as tout résolu...

Merci mille fois !

Delbok