toujurs envoyer une copie Cci

Bonjoir(c) beepee

Le 21/01/2008 22:22 vous avez écrit ceci :

bonsoir,

est il possible de toujours envoyer une copie Cci d'un mail sortant sans
avoir a saisir l'adresse mail a chaque fois ?
le destinataire en Cci est toujours le meme.

je n'ai rien trouvé sur google, j'ai peut etre mal regardé.

et pas regardé sur la FAQ ?! Pas bien ;-)
http://faq.outlook.free.fr/readarticle.php?article_id#2

merci de vos conseils

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est là : http://faq.outlook.free.fr/

Boycott des questions venant de CDO
http://faq.outlook.free.fr/viewpage.php?page_id=2

JièL a formulé la demande :

Bonjoir(c) beepee

Le 21/01/2008 22:22 vous avez écrit ceci :

bonsoir,

est il possible de toujours envoyer une copie Cci d'un mail sortant sans
avoir a saisir l'adresse mail a chaque fois ?
le destinataire en Cci est toujours le meme.

je n'ai rien trouvé sur google, j'ai peut etre mal regardé.

et pas regardé sur la FAQ ?! Pas bien ;-)
http://faq.outlook.free.fr/readarticle.php?article_id#2

bonjour,
eh ben si, j'avais regardé sur la faq mais j'ai surement du la lire un
peu (beaucoup) trop vite.

merci donc pour le lien mais à quel endroit je dois copier tout cela ?
c'est quoi 'thisOutlookSession' ça se trouve où ?

bonne journee
BP

c'est quoi 'thisOutlookSession' ça se trouve où ?

Alt+F11
Si votre installation est standard :
Dans la fenêtre en haut à gauche "Projet Outlook"
développer (si ce n'est pas déjà fait ) "Outlook(VbaProject.OTM)
puis "Microsoft Office Outlook Objets"

Faire un double Clic sur "ThisOutlookSession"
Copier le texte dans la fenêtre vide qui est sur la droite.

--
A+

Geo a formulé la demande :

c'est quoi 'thisOutlookSession' ça se trouve où ?

Alt+F11
Si votre installation est standard :
Dans la fenêtre en haut à gauche "Projet Outlook"
développer (si ce n'est pas déjà fait ) "Outlook(VbaProject.OTM)
puis "Microsoft Office Outlook Objets"

Faire un double Clic sur "ThisOutlookSession"
Copier le texte dans la fenêtre vide qui est sur la droite.

bonjour,

merci pour l'info et à la personne qui a fait ce code.

cependant, en regardant ces lignes de code, il me semble que l'envoi de
la copie cachée va se faire dès que j'envoie un mail.
hors, j'ai plusieurs comptes differents sur mon outlook et je n'ai
besoin de cette copie cachée que pour 2 comptes seulement.

est ce que mon raisonement est juste ?

bonne journee
BP

est il possible de toujours envoyer une copie Cci d'un mail sortant
sans avoir a saisir l'adresse mail a chaque fois ?
le destinataire en Cci est toujours le meme.

j'ai plusieurs comptes differents sur mon outlook et je n'ai besoin
de cette copie cachée que pour 2 comptes seulement.

Comme quoi, ce n'est pas toujours simple d'expliquer ce qu'on veut.

Ajouter une ligne comme celle-ci qui existe déjà :
If Not Item.Class = olMail Then GoTo fin

mais en ajoutant une sélection sur le compte d'envoi :

If Item.SendUsingAccount = "xxx" Then GoTo fin ' xxx = compte sans cci

--
A+

est il possible de toujours envoyer une copie Cci d'un mail sortant sans
avoir a saisir l'adresse mail a chaque fois ?
le destinataire en Cci est toujours le meme.

j'ai plusieurs comptes differents sur mon outlook et je n'ai besoin de
cette copie cachée que pour 2 comptes seulement.

Comme quoi, ce n'est pas toujours simple d'expliquer ce qu'on veut.

Ajouter une ligne comme celle-ci qui existe déjà :
If Not Item.Class = olMail Then GoTo fin

mais en ajoutant une sélection sur le compte d'envoi :

If Item.SendUsingAccount = "xxx" Then GoTo fin ' xxx = compte sans cci

pardon pour le retard de ma reponse,

bien que je n,'ai pas de conpétance dans ce language, je vais tenter de
modifier le programme avec la ligne de code que vous donnez.

je vous remercie,
bonne journee.
bp

pardon pour le retard de ma reponse,

Une journée, ce n'est pas du retard

bien que je n,'ai pas de conpétance dans ce language, je vais tenter de modifier le
programme avec la ligne de code que vous donnez.

Si vous avez des soucis, n'hésitez pas à en faire part.

--
A+

Geo avait énoncé :

pardon pour le retard de ma reponse,

Une journée, ce n'est pas du retard

bien que je n,'ai pas de conpétance dans ce language, je vais tenter de
modifier le programme avec la ligne de code que vous donnez.

Si vous avez des soucis, n'hésitez pas à en faire part.

merci de votre proposition et malgré vos conseil, je ne suis pas
parvenu a réaliser ce que je souhaitais.
mon adresse mail est plus lisible que la votre, vous serait'il possible
de me contacter pour me donner un ultime conseil.
je vous en remercie par avance.

BP

mon adresse mail est plus lisible que la votre, vous serait'il possible de me contacter
pour me donner un ultime conseil.

Par principe, on continue plutôt sur le forum car cela permet à
d'autres personnes d'intervenir et cette conversation peut intéresser
des lecteurs actuels ou futurs.

Si vous ne voulez pas de cci pour votre compte utilisé ici, mais pour
tous les autres :
Private Sub Application_ItemSend(ByVal Item As Object, _
Cancel As Boolean)
'By Oliv' 29/06/2007 pour Outlook 2003
Dim myRecipient As Outlook.Recipient
If Not Item.Class = olMail Then GoTo fin
If Item.SendUsingAccount.SmtpAddress = "beepee@cretin.fr" Then GoTo fin
' ici renseigner le destinataire
cci = "MonDestinataire@sonDomaine.fr"
Set myRecipient = Item.Recipients.Add(cci)
myRecipient.Type = olBCC
myRecipient.Resolve
If myRecipient.Resolved = False Then
MsgBox "L'adresse Email n'est pas correcte !", vbCritical, "Erreur"
Cancel = True ' Le message n'est pas envoyé
End If
End If
fin:
End Sub

--
A+