Mettre un ou des destinataires en Cci par Outlook
Bonjour ,
J'ai un fichier qui me sert à générer des emails afin d'envoyer des rapports .
Je voudrais y ajouter les fameuses Copies cachées (Cci) , car je voudrais voir ce qui part comme rapports quand je ne suis pas présent au travail .
Voici la macro :
Option Explicit
Sub EnvoiMail()
Dim ListeDest()
Dim ListeComment()
Dim i As Long
Dim oMsgApp As Object
Dim oMsg As Object
Dim sListeDest As String
Dim Nom_Fichier1 As String
Dim Nom_Fichier2 As String
Dim Nom_Fichier3 As String
Nom_Fichier1 = Application.GetOpenFilename(, , "Sélectionner le fichier à envoyer")
If Nom_Fichier1 = "" Then
MsgBox "Aucun fichier sélectionné, opération annulée"
Exit Sub
End If
Nom_Fichier2 = Application.GetOpenFilename(, , "Sélectionner le fichier à envoyer")
If Nom_Fichier2 = "" Then
MsgBox "Aucun fichier sélectionné, opération annulée"
Exit Sub
End If
Nom_Fichier3 = Application.GetOpenFilename(, , "Sélectionner le fichier à envoyer")
If Nom_Fichier3 = "" Then
MsgBox "Aucun fichier sélectionné, opération annulée"
Exit Sub
End If
Set oMsgApp = CreateObject("Outlook.Application")
ListeDest() = Range("tblBase[Mail]")
ListeComment() = Range("tblBase[Commentaire]")
For i = LBound(ListeDest(), 1) To UBound(ListeDest(), 1)
Set oMsg = oMsgApp.CreateItem(0)
With oMsg
.To = ListeDest(i, 1)
.Attachments.Add Nom_Fichier1
.Attachments.Add Nom_Fichier2
.Attachments.Add Nom_Fichier3
.Subject = "Rapport du jour Mini-golf et EHBO"
.Body = "" & Chr(10) & Chr(13) & _
ListeComment(i, 1) & Chr(10) & Chr(13) & ""
.Display
End With
Set oMsg = Nothing
Next
Set oMsgApp = Nothing
MsgBox "Mails préparés , veuillez compléter et envoyer. Merci"
End Sub
J'ai déjà essayé d'introduire :
.Bcc = "...."
.Cci = "...."
Mais rien n'y fait .
Pour tout vous expliquer , pour ce rapport je dois envoyer 3 fichiers , mais pour les textes du corps et les adresses mails , la macro va les chercher dans la première feuille nommée "Base" ...
La première colonne vide est la j ...
Comment feriez vous pour y ajouter les variables et le reste pour aller ajouter les adresses mails pour les copies cachées ?
Merci d'avance pour vos réponses ...
Fschauer21
Bonjour fschauer21 le forum
pourtant cela devrait être
.BCC = "NNNN"mais tu es sur que tu as quelque chose après ton égal?
a+
Papou
Merci pour votre réponse , ce que vous m´avez donné est bon pour certains fichiers , et j´ai aussi déjà essayé avec cette ligne mais cela ne fonctionne pas ...
Quelqu´un aurait il une piste ?
Voudriez vous le fichier pour essayer ?
Merci pour votre aide ,
Fschauer21
Bonjour,
je confirme la syntaxe (et je la pratique)
With oMsg
.Bcc = "prenom.nom@fai.fr"
End Withhttps://msdn.microsoft.com/fr-fr/vba/outlook-vba/articles/mailitem-bcc-property-outlook
Qu'est-ce qui ne fonctionne pas chez toi ? message d'erreur ? pas de copie cachée envoyée ?
Bonjour ,
Pas de message d´erreur , mais nénvoie pas la copie cachée non plus ...
j´ai office 2010 ou 2013 sur le pc du bureau , mais chez moi j´ai office 2016 mais sans outlook ... donc quand je ne travailles pas , je ne sais pas essayer si une autre macro fonctionnerait ...
Demain , je travaille à nouveau pendant 5 jours (jusque samedi soir ...) là je peux encore essayer ...
Merci de votre réponse ,
Fschauer21
Re Bonjour Fschauer21 le forum
oui passe le fichier à tout hasard
a+
papou
Bonjour ,
Tout dabord désolé d'être seulement maintenant sur le forum ...
Voilà le fichier auquel je voudrais ajouter le fameux "Cci" ou "Bcc" ....
Merci déjà pour vos réponses ...
Je vous en souhaite bonne réception ,
Fschauer21
Bonjour,
J'ai ajouté une colonne CCI à ton tableau.
Voir si ça convient ...
ric
Bonjour Ric ,
Bonjour à tous du forum ,
Je viens de tester le fichier , et il fonctionne . j'ai fait un test avec 2 de mes adresses mail . Cependant , le message vers le contact Cci a mis une dizaine de minutes à arriver ...
Sais tu m'expliquer ce que tu as changé par rapport à mon fichier , car moi j'ai essayé un tas de petites choses sans avoir le résultat escompté .
Merci pour votre aide ,
Fschauer21
Bonjour Fschauer21 le forum
il a fait ce que l'on t'avait dit de faire, il a ajouté
.bcc = ListeCCI(i, 1)a+
Papou
Bonjour ,
Oui , mettre la formule : .bcc = ListeCCI(i, 1) est vite dit ...
J'avais beau aller mettre les variantes au début , et ajouter la colonne mais rien n'y faisait , car apparemment j'avais de grosses erreurs de synthaxe ou de comfiguration des variantes ...
Merci pour le coup de main ....
Fschauer21
Bonjour Fschauer21, bonjour le forum,
Les deux seuls changements à ton fichier :
1- j'ai ajouté une colonne à ton tableau (CCI)
2- j'ai ajouté à ton code : .bcc = ListeCCI(i, 1) qui fait référence à cette nouvelle colonne.
Si Microsoft Outlook est ouvert en arrière-plan, la réaction est rapide.
Pour le temps de départ du courriel, cela peut dépendre du poids des fichiers joints et de la vitesse de transfert en téléversement (upload) de ta connexion internet ainsi que le temps de réaction de l'ordinateur (performance).
Pour le temps d'arrivée à destination du courriel, cela peut dépendre du type de fichiers envoyés. Certains types sont plus exhaustivement testés par les antivirus et antipourriels de ton fournisseur d'accès internet ainsi que du fournisseur d'accès Internet des destinataires.
Un autre facteur à considérer dans le délai, entre l'envoi et la réception, peut s'expliquer en partie par le volume de courriels que ces fournisseurs de services ont à traiter à ce moment-là. Au risque de me répéter, les courriels avec pièces jointes sont examinés plus minutieusement par les filtres des FAI (fournisseur d'accès Internet).
ric
Rebonjour,
Je te retourne ton fichier modifié en espérant que ça puisse aider.
ric
Bonjour ,
Merci Ric pour tes explications , maintenant je vois aussi les erreurs de synthaxe que j'ai faites , et surtout comment parametrer les variables de ce genre de choses .
j'espère que ce genre de fichier peut aider d'autres personnes à résoudre leurs soucis avec des rapports journaliers à envoyer .
Merci d'avoir un forum où tout le monde peut se faire aider .....
Bonne journée ,
Fschauer21