toujurs envoyer une copie Cci

Le
beepee
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é.

merci de vos conseils

bp
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JièL
Le #345490
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

beepee
Le #345469
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


Geo
Le #345468

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+

beepee
Le #345466
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


Geo
Le #345465

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+

beepee
Le #345811

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


Geo
Le #345810

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+

beepee
Le #345777
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


Geo
Le #366726

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 = "" Then GoTo fin
' ici renseigner le destinataire
cci = ""
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+

Publicité
Poster une réponse
Anonyme