VBA outlook : envoyer automatiquement une copie d'un mail envoyé
1 réponse
Fil GOUDE
Bonjour,
vba excel, je connais, mais je suis un vrai blaireau en VBA OUTLOOK.
Je souhaite renvoyer tous les messages qui arrivent dans la boite
"messages envoys" vers une autre messagerie.
exemple : chaque fois que j'envoie un mail depuis outlook, ce mail est
stocké dans "messages envoyés". Je voudrais trouver une macro qui me
renvoie automatiquement une copie de ce mail à une autre adresse
tartempion@trucmuche.fr
Les règles automatiques d'outlook ne me conviennent pas car elles
copient l'adresse tartempion@trucmuche.fr dans le champ CC et ainsi tous
mes destinataires connaissent cette adresse.
Quelqu'un aurait-t-il un bout de code déjà existant ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Oliv'
*Fil GOUDE que je salut a écrit *:
Bonjour,
vba excel, je connais, mais je suis un vrai blaireau en VBA OUTLOOK. Je souhaite renvoyer tous les messages qui arrivent dans la boite "messages envoys" vers une autre messagerie.
pas facile sans enregistreur de macro ;-))
exemple : chaque fois que j'envoie un mail depuis outlook, ce mail est stocké dans "messages envoyés". Je voudrais trouver une macro qui me renvoie automatiquement une copie de ce mail à une autre adresse
Les règles automatiques d'outlook ne me conviennent pas car elles copient l'adresse dans le champ CC et ainsi tous mes destinataires connaissent cette adresse.
Quelqu'un aurait-t-il un bout de code déjà existant ?
merci d'avance
avec ceci à mettre dans ThisOutlookSession Private Sub Application_Startup()
End Sub
Private Sub application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim prompt As String prompt = "Ajouter le Destinataire CCI : monCCi à " & Item.Subject & "?" If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbYes Then Item.BCC = End If End Sub
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook Dernière chance http://www.outlookcode.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*Fil GOUDE <filgoude@yahoo.fr> que je salut a écrit *:
Bonjour,
vba excel, je connais, mais je suis un vrai blaireau en VBA OUTLOOK.
Je souhaite renvoyer tous les messages qui arrivent dans la boite
"messages envoys" vers une autre messagerie.
pas facile sans enregistreur de macro ;-))
exemple : chaque fois que j'envoie un mail depuis outlook, ce mail est
stocké dans "messages envoyés". Je voudrais trouver une macro qui me
renvoie automatiquement une copie de ce mail à une autre adresse
tartempion@trucmuche.fr
Les règles automatiques d'outlook ne me conviennent pas car elles
copient l'adresse tartempion@trucmuche.fr dans le champ CC et ainsi
tous mes destinataires connaissent cette adresse.
Quelqu'un aurait-t-il un bout de code déjà existant ?
merci d'avance
avec ceci à mettre dans ThisOutlookSession
Private Sub Application_Startup()
End Sub
Private Sub application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim prompt As String
prompt = "Ajouter le Destinataire CCI : monCCi à " & Item.Subject & "?"
If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbYes Then
Item.BCC = Destinataire@sonDomaine.fr
End If
End Sub
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
vba excel, je connais, mais je suis un vrai blaireau en VBA OUTLOOK. Je souhaite renvoyer tous les messages qui arrivent dans la boite "messages envoys" vers une autre messagerie.
pas facile sans enregistreur de macro ;-))
exemple : chaque fois que j'envoie un mail depuis outlook, ce mail est stocké dans "messages envoyés". Je voudrais trouver une macro qui me renvoie automatiquement une copie de ce mail à une autre adresse
Les règles automatiques d'outlook ne me conviennent pas car elles copient l'adresse dans le champ CC et ainsi tous mes destinataires connaissent cette adresse.
Quelqu'un aurait-t-il un bout de code déjà existant ?
merci d'avance
avec ceci à mettre dans ThisOutlookSession Private Sub Application_Startup()
End Sub
Private Sub application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim prompt As String prompt = "Ajouter le Destinataire CCI : monCCi à " & Item.Subject & "?" If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbYes Then Item.BCC = End If End Sub
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook Dernière chance http://www.outlookcode.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
