copie cci automatique

[David]

Bonjour a toutes et tous,

je souhaite definir une regle me permettant d'envoyer automatiquement tous
mes mails en CCI a mon collègue, j'ai bien trouvé la possibilité d'envoyer
en CC mais cela ne m'arrange pas.

J'utilise Office 2003 -> outlook 2003.

Merci a tous,

[Parkiro]

Post by David
Bonjour a toutes et tous,
je souhaite definir une regle me permettant d'envoyer automatiquement tous
mes mails en CCI a mon collègue, j'ai bien trouvé la possibilité d'envoyer
en CC mais cela ne m'arrange pas.
J'utilise Office 2003 -> outlook 2003.
Merci a tous,

Bonjour David,

Je ne sais pas si tu as la possibilité de créer une régle
automatique mais tu peux envoyer tes mails en CCI sous Outlook. Si
c'est seulement cette option qu'il te manque il suffit dans le nouveau
message de cliquer sur la fleche à côté de Option et de selectionner
CCI.


En esperant que ceci réponde à ta question.

Parkiro.

[David]

Bonjour et merci a tous pour ces reponses,

je confirme bien que je ne souhaite pas devoir remplir le champs cci a
chaque envoi.
merci donc pour la macro, mais comment dois je l'utiliser ?

Je sauve le contenu de la macro et puis que dois je en faire ?
n'y a t il pas moyen de faire sauter le message de securité ?

Merci

[Oliv']

Post by David
Bonjour et merci a tous pour ces reponses,
je confirme bien que je ne souhaite pas devoir remplir le champs cci a
chaque envoi.
merci donc pour la macro, mais comment dois je l'utiliser ?
Je sauve le contenu de la macro et puis que dois je en faire ?
n'y a t il pas moyen de faire sauter le message de securité ?
Merci

Ah oui il faut un peu connaitre les macros.
Soit tu lis ceci
http://www.microsoft.com/france/msdn/office/odc_olArticleUsingVBAInOutlook.mspx

ou alors en suivant cette méthode tu devrais y arriver

Dans outlook tu tapes sur Alt+F11

Tu dois avoir une fenêtre "Microsoft Visual Basic -Projet1" qui s'ouvre
à Gauche Clic développe "Projet1" jusqu'à voir "ThisOutlookSession"

Clic s'y 2X
A droite dans le cadre en dessous de général colle le texte de la macro
ci-dessous en remplacant l'adresse Email.

-----------------------------------------
Public WithEvents myOlApp As Outlook.Application

Public Sub Initialize_handler()
Set myOlApp = CreateObject("Outlook.Application")
End Sub

Private Sub Application_Startup()
Initialize_handler
End Sub

Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim prompt As String
prompt = "Ajouter le cci monCCi à " & Item.Subject & "?"
If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbYes Then
Item.BCC = "***@domaine.fr"
End If
End Sub
-----------------------------------------
Ferme la fenetre.
Tapes Alt+F8
tu dois avoir de selectionné "ThisOutlookSession.Initialize_handler"
cliques sur executer.

Dans Outils /Macro /Sécurité Selectionne "Moyen"

Ferme OUTLOOK et enregistre le projet.

Voilà c'est opérationnel.

à l'ouverture "activer les macros" on peut éviter cela en mettant une
signature électronique (menu outils).



Ce qui est bizarre c'est qu'en partant d'un projet de macro vide je n'ai pas
le message de sécurité.
Sinon utiliser CLIKYES http://faq.outlook.free.fr/telechargement.htm

[Oliv']

Si le précedent code ne fonctionne pas essayer celui-ci

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 = ***@sonDomaine.fr
End If
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

[David]

Merci,
je teste cela.

[unknown]

Bonjour,

Je ne crois pas que ce soit possible ça...
En tout cas, pas avec les règles...

Peut-être en faisant une macro, mais là je laisse les expert parler...
D'ailleurs ça m'intéresse...

Post by David
Bonjour a toutes et tous,
je souhaite definir une regle me permettant d'envoyer automatiquement tous
mes mails en CCI a mon collègue, j'ai bien trouvé la possibilité d'envoyer
en CC mais cela ne m'arrange pas.
J'utilise Office 2003 -> outlook 2003.
Merci a tous,

[Oliv']

*Fabrice" <"f.nebbia" dans le domaine "technicn.com <"f.nebbia" dans le

Post by unknown
Bonjour,
Je ne crois pas que ce soit possible ça...
En tout cas, pas avec les règles...
Peut-être en faisant une macro, mais là je laisse les expert parler...
D'ailleurs ça m'intéresse...

Bon si ca t'intéresse

Il faut utiliser l'événement itemSend dans ThisOutlookSession.

Public WithEvents myOlApp As Outlook.Application

Public Sub Initialize_handler()
Set myOlApp = CreateObject("Outlook.Application")
End Sub

Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim prompt As String
prompt = "Ajouter le cci monCCi à " & Item.Subject & "?"
If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbYes Then
Item.BCC = "***@domaine.fr"
End If
End Sub


IL Y AURA BIEN SUR LE MESSAGE DE SECURITE !!!
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Post by unknown

Post by David
Bonjour a toutes et tous,
je souhaite definir une regle me permettant d'envoyer
automatiquement tous mes mails en CCI a mon collègue, j'ai bien
trouvé la possibilité d'envoyer en CC mais cela ne m'arrange pas.
J'utilise Office 2003 -> outlook 2003.
Merci a tous,

[unknown]

Re-bonjour.

Trop classe
J'adore toutes ces macro, ça m'éclate... ;o)

Merci Oliv'

Post by Oliv'
*Fabrice" <"f.nebbia" dans le domaine "technicn.com <"f.nebbia" dans le

Post by unknown
Bonjour,
Je ne crois pas que ce soit possible ça...
En tout cas, pas avec les règles...
Peut-être en faisant une macro, mais là je laisse les expert parler...
D'ailleurs ça m'intéresse...

Bon si ca t'intéresse
Il faut utiliser l'événement itemSend dans ThisOutlookSession.
Public WithEvents myOlApp As Outlook.Application
Public Sub Initialize_handler()
Set myOlApp = CreateObject("Outlook.Application")
End Sub
Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim prompt As String
prompt = "Ajouter le cci monCCi à " & Item.Subject & "?"
If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbYes Then
End If
End Sub
IL Y AURA BIEN SUR LE MESSAGE DE SECURITE !!!
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Post by unknown

Post by David
Bonjour a toutes et tous,
je souhaite definir une regle me permettant d'envoyer
automatiquement tous mes mails en CCI a mon collègue, j'ai bien
trouvé la possibilité d'envoyer en CC mais cela ne m'arrange pas.
J'utilise Office 2003 -> outlook 2003.
Merci a tous,

[JièL]

Bonjoir(c) Oliv'

Post by Oliv'
Il faut utiliser l'événement itemSend dans ThisOutlookSession.
Public WithEvents myOlApp As Outlook.Application
Public Sub Initialize_handler()
Set myOlApp = CreateObject("Outlook.Application")
End Sub
Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim prompt As String
prompt = "Ajouter le cci monCCi à " & Item.Subject & "?"
If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbYes Then
End If
End Sub
IL Y AURA BIEN SUR LE MESSAGE DE SECURITE !!!

joli, mais dommage pour le message de sécu :-((((((((
C'est vraiment pénible ce truc qui n'est pas désactivable alors que c'est
une simple case à cocher sur OE :-(

[sylvain25]

Post by David
Bonjour a toutes et tous,
je souhaite definir une regle me permettant d'envoyer automatiquement tous
mes mails en CCI a mon collègue, j'ai bien trouvé la
possibilité d'envoyer
en CC mais cela ne m'arrange pas.
J'utilise Office 2003 -> outlook 2003.
Merci a tous,

Bonjour,

n'étant pas spécialiste des macros, je me permets de déterrer ce post
J'ai plusieurs compte mails sur Outlook, et je souhaiterais que ce code ne soi
actif que pour un des comptes, cela est-il possible et quel serait l
modification à apporter ?

Merci par avance de votre retour !!