Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

envoi mail selon condition

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ngexcel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

ngexcel

XLDnaute Occasionnel
Bonsoir

je cherche depuis quelques jours une solution pour envoyer un mail selon la couleur de la cellule
j ai un message quand la macro démarre sur send si quelqu un peut me débloquer je joint le fichier
Encore merci


Option Explicit
Sub Conditions()
Dim Message As String
With Sheets("Feuil1").Range("J9:J97").Activate
If ActiveCell.Interior.ColorIndex = 1 Then EnvoiMail Message
End With
End Sub

Sub EnvoiMail(Message As String)
Dim OutApp As Object, OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Sheets("Feuil1").Range("K3").Value
.Send '<<<<<<<<<<<< Pour envoyer directement
End With
Set OutApp = Nothing: Set OutMail = Nothing
On Error GoTo 0: Err.Clear
Exit Sub
Set OutApp = Nothing: Set OutMail = Nothing
On Error GoTo 0: Err.Clear
Exit Sub
End Sub
 
Dernière édition:
Trier par date Trier par votes
Re : envoi mail selon condition

Bonjour ngexcel

Essaye ce code
Code: 
Sub EnvoiMailSelonCondition()
  Dim Cel As Range, OutApp As Object, OutMail As Object
  Dim FlgEnvoi As Boolean, Message As String
  ' Initialiser le FLAG
  FlgEnvoi = False
  ' Avec la feuille
  With Sheets("Feuil1")
    For Each Cel In .Range("J9:J97")
      If Cel.Interior.ColorIndex <> 1 Then
        FlgEnvoi = True: Exit For
      End If
    Next Cel
    ' Tester le FLAG
    If FlgEnvoi = True Then
      ' Créer uns instance d'Outlook
      Set OutApp = CreateObject("Outlook.Application")
      ' Créer une instance mail
      Set OutMail = OutApp.CreateItem(0)
      OutMail.To = .Range("K3").Value
      OutMail.Display
      Set OutApp = Nothing: Set OutMail = Nothing
    End If
  End With
End Sub

A+
 
Vote positif 0 Vote négatif
Re : envoi mail selon condition

Bonjour BRUNOM45


merci pour le code ça marche juste dans objet j ai besoin de mettre ATTENTION CONTRÔLE DATE puis un message DATE .....
et envoyer le message sans voir outlook

merci encore
 
Vote positif 0 Vote négatif
Re : envoi mail selon condition

Bonjour BRUNOM45


merci pour le code ça marche juste dans objet j ai besoin de mettre ATTENTION CONTRÔLE DATE puis un message DATE .....
et envoyer le message sans voir outlook

merci encore
 
Vote positif 0 Vote négatif
Re : envoi mail selon condition

Bonjour ngexcel, Bruno 🙂,

Tu remplaces .Display par .Send pour envoyer sans voir Outlook
Puis avant .Send tu ajoutes :
.Subject = "Ton Objet"
.Body = "Ton texte, ta date etc..."

A+

Martial
 
Vote positif 0 Vote négatif
Re : envoi mail selon condition

bonjour Martial

je dois oublier quelque chose car je une erreur sur l'envoi du mail
merci de votre aide

sub EnvoiMailSelonCondition()
Dim Cel As Range, OutApp As Object, OutMail As Object
Dim FlgEnvoi As Boolean, Message As String
' Initialiser le FLAG
FlgEnvoi = False
' Avec la feuille
With Sheets("Feuil1")
For Each Cel In .Range("J9:J97")
If Cel.Interior.ColorIndex <> 1 Then
FlgEnvoi = True: Exit For
End If
Next Cel
' Tester le FLAG
If FlgEnvoi = True Then
' Créer uns instance d'Outlook
Set OutApp = CreateObject("Outlook.Application")
' Créer une instance mail
Set OutMail = OutApp.CreateItem(0)
OutMail.To = .Range("K3").Value
l.Subject = "Ton Objet"
.Body = "Ton texte, ta date etc..."
OutMail.Send
Set OutApp = Nothing: Set OutMail = Nothing
End If
End With
End Sub
 
Vote positif 0 Vote négatif
Re : envoi mail selon condition

Re,

Désolé, je n'avais pas vraiment regardé ta macro :
Il faut mettre
OutMail.Subject = "Ton Objet"
OutMail.Body = "Ton texte, ta date etc..."

ou
VB: 
sub EnvoiMailSelonCondition()
Dim Cel As Range, OutApp As Object, OutMail As Object
Dim FlgEnvoi As Boolean, Message As String
' Initialiser le FLAG
FlgEnvoi = False
' Avec la feuille
With Sheets("Feuil1")
For Each Cel In .Range("J9:J97")
If Cel.Interior.ColorIndex <> 1 Then
FlgEnvoi = True: Exit For
End If
Next Cel
' Tester le FLAG
If FlgEnvoi = True Then
' Créer uns instance d'Outlook
Set OutApp = CreateObject("Outlook.Application")
' Créer une instance mail
Set OutMail = OutApp.CreateItem(0)
With OutMail
  .To = .Range("K3").Value
  .Subject = "Ton Objet"
  .Body = "Ton texte, ta date etc..."
  .Send
End With
Set OutApp = Nothing: Set OutMail = Nothing
End If
End With
End Sub

A+
 
Vote positif 0 Vote négatif
Re : envoi mail selon condition

Bonjour et merci de prendre du temps pour moi

j ai un message d 'erreur sur cette ligne

.To = .Range("K3").Value

Errreur d'execution (438)
Propriété ou méthode non gérée par cet objet

une solution ?

merci bonne journée
 
Vote positif 0 Vote négatif
Re : envoi mail selon condition

Bonjour ngexcel

lorsque tu codes, le point devant une instruction veut dire que tu travailles avec l'objet définit par "With"

Dans le
Code: 
With OutMail
tu travailles avec l'objet mail
donc le ".Range("K3").Value" ne peut pas fonctionner il faut ajouter l'objet feuille devant
Code: 
.To = Sheets("Feuil1").Range("K3").Value

A+
 
Vote positif 0 Vote négatif
Re : envoi mail selon condition

Re,

Chez moi ce code fonctionne
Code: 
Sub EnvoiMailSelonCondition()  Dim Cel As Range, OutApp As Object, OutMail As Object
  Dim FlgEnvoi As Boolean, Message As String
  ' Initialiser le FLAG
  FlgEnvoi = False
  ' Avec la feuille
  With Sheets("Feuil1")
    For Each Cel In .Range("J9:J97")
      If Cel.Interior.ColorIndex <> 1 Then
        FlgEnvoi = True: Exit For
      End If
    Next Cel
    ' Tester le FLAG
    If FlgEnvoi = True Then
      ' Reset du FLAG
      FlgEnvoi = False
      ' Créer uns instance d'Outlook
      Set OutApp = CreateObject("Outlook.Application")
      ' Créer une instance mail
      Set OutMail = OutApp.CreateItem(0)
      OutMail.To = .Range("K3").Value
      OutMail.Subject = "Ton Objet"
      OutMail.Body = "Ton texte, ta date etc..."
      OutMail.Send
      Set OutApp = Nothing: Set OutMail = Nothing
    End If
  End With
End Sub

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2021 Envoi mail via VBA et Outlook
Réponses
6
Affichages
552
patricktoulon
G
  • Question Question
Microsoft 365 Vba Excel l'instruction Set OutApp = CreateObject("Outlook.Application") bloque excel
Réponses
2
Affichages
838
laurent950
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
662
Phil69970
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
804
Phil69970
G
  • Question Question
Microsoft 365 Valider automatiquement un message d'alerte
Réponses
4
Affichages
369
GG Delcroix
G
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
753
AtTheOne
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
424
sylvanu
  • Question Question
XL 2019 envoi pdf d'une feuille par gmail et non pas par outlook
Réponses
7
Affichages
370
pascal21
S
  • Résolu(e)
Microsoft 365 Envoi de la signature de l'utilisateur macro envoi de mail
Réponses
3
Affichages
610
spike29
S
N
  • Question Question
Microsoft 365 connexion ado vers access office 2024 64 bits
Réponses
2
Affichages
483
nabilexcel2007
N
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
409
nabilexcel2007
N
N
  • Résolu(e)
XL 2021 Exporter un graphique dans Outlook
Réponses
3
Affichages
628
NLSCt
N
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
665
fanch55
K
  • Résolu(e)
XL 2019 Probleme codage
Réponses
2
Affichages
526
Kevin42560
K
N
  • Question Question
Microsoft 365 Envoi via Excel avec OutlookNew
Réponses
4
Affichages
794
Titou37P
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
837
TooFatBoy
  • Résolu(e)
XL 2016 problème au niveau d'un contrôle dans VBA
Réponses
2
Affichages
556
chinel
  • Question Question
XL 2019 HTML Corps de mail
Réponses
6
Affichages
933
My<3
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
970
VBA_dev_Anne_Marie
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…