Envoie d'un mail vba sous condition

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 !

TEMAGOULTFARID

XLDnaute Occasionnel
bonjour a vous tous;
la macro ci dessous fonctionne très bien , j'aurai souhaiter ajouter une condition. A savoir pour envoyé le mail il faut l'information PCC de la cellule H4 sinon pas d'voie et si possible avec un msgbox.

par avance , merci et surtout faite attention a vous.


Sub envoiClasseur()
Dim Fichier As Variant

'ici on demande d'utiliser Outlook comme client de messagerie'
Dim MaMessagerie As Object
Dim MonMessage As Object
Set MaMessagerie = CreateObject("Outlook.application")
Set MonMessage = MaMessagerie.CreateItem(0)
If Range("M1") <> "" Then MsgBox "Fichier déjà envoyé ": Exit Sub

'ici nous definissons les champs du mail'
'entre duillemet il faut indiquer les adresse mail'
MonMessage.To = "machin@truc.bidul"


'ici nous commencons la rédaction du mail'
MonMessage.Attachments.Add ActiveWorkbook.FullName

'sujet du mail'
MonMessage = "Signalement PCC"

'Corps du mail'
contenu = "Bonjour,"
contenu = contenu & Chr(10) & Chr(13)

'les caractèrs Chr indiquent un saut de ligne'
contenu = contenu & "Veuillez trouver en pièce jointe le fichier intervention" & Chr(10) & Chr(13)
contenu = contenu & "Cordialement" & Chr(10) & Chr(13)
contenu = contenu & "Service PCC"
MonMessage.Body = contenu

'ici on provoque l'envoie du mail et de sa pièce jointe'
MonMessage.Send

'réinitialisation de la mlessagerie'
Set MaMessagerie = Nothing

'boite de dialogie qui confirme l'envoie du massage et de la pièce jointe'
MsgBox "Votre mail a bien été envoyé et enregistré"

Range("M1").Value = "Fichier envoyé"
End Sub
 
Bonsoir,
Il faut que la cellule H4 contienne PCC c'est ça ?

VB:
Sub envoiClasseur()
Dim Fichier As Variant

'ici on demande d'utiliser Outlook comme client de messagerie'
Dim MaMessagerie As Object
Dim MonMessage As Object
Set MaMessagerie = CreateObject("Outlook.application")
Set MonMessage = MaMessagerie.CreateItem(0)
If Range("M1") <> "" Then MsgBox "Fichier déjà envoyé ": Exit Sub
'Si H4 contient PCC alors
If Range("H4")="PCC" Then
'ici nous definissons les champs du mail'
'entre duillemet il faut indiquer les adresse mail'
MonMessage.To = "machin@truc.bidul"


'ici nous commencons la rédaction du mail'
MonMessage.Attachments.Add ActiveWorkbook.FullName

'sujet du mail'
MonMessage = "Signalement PCC"

'Corps du mail'
contenu = "Bonjour,"
contenu = contenu & Chr(10) & Chr(13)

'les caractèrs Chr indiquent un saut de ligne'
contenu = contenu & "Veuillez trouver en pièce jointe le fichier intervention" & Chr(10) & Chr(13)
contenu = contenu & "Cordialement" & Chr(10) & Chr(13)
contenu = contenu & "Service PCC"
MonMessage.Body = contenu

'ici on provoque l'envoie du mail et de sa pièce jointe'
MonMessage.Send

'réinitialisation de la mlessagerie'
Set MaMessagerie = Nothing

'boite de dialogie qui confirme l'envoie du massage et de la pièce jointe'
MsgBox "Votre mail a bien été envoyé et enregistré"

Range("M1").Value = "Fichier envoyé"
Else 'Sinon PCC manquant alors message
Msgbox("PCC manquant")
End if
End Sub

Dit moi ton retour ! 🙂
 
Bonsoir,
Il faut que la cellule H4 contienne PCC c'est ça ?

VB:
Sub envoiClasseur()
Dim Fichier As Variant

'ici on demande d'utiliser Outlook comme client de messagerie'
Dim MaMessagerie As Object
Dim MonMessage As Object
Set MaMessagerie = CreateObject("Outlook.application")
Set MonMessage = MaMessagerie.CreateItem(0)
If Range("M1") <> "" Then MsgBox "Fichier déjà envoyé ": Exit Sub
'Si H4 contient PCC alors
If Range("H4")="PCC" Then
'ici nous definissons les champs du mail'
'entre duillemet il faut indiquer les adresse mail'
MonMessage.To = "machin@truc.bidul"


'ici nous commencons la rédaction du mail'
MonMessage.Attachments.Add ActiveWorkbook.FullName

'sujet du mail'
MonMessage = "Signalement PCC"

'Corps du mail'
contenu = "Bonjour,"
contenu = contenu & Chr(10) & Chr(13)

'les caractèrs Chr indiquent un saut de ligne'
contenu = contenu & "Veuillez trouver en pièce jointe le fichier intervention" & Chr(10) & Chr(13)
contenu = contenu & "Cordialement" & Chr(10) & Chr(13)
contenu = contenu & "Service PCC"
MonMessage.Body = contenu

'ici on provoque l'envoie du mail et de sa pièce jointe'
MonMessage.Send

'réinitialisation de la mlessagerie'
Set MaMessagerie = Nothing

'boite de dialogie qui confirme l'envoie du massage et de la pièce jointe'
MsgBox "Votre mail a bien été envoyé et enregistré"

Range("M1").Value = "Fichier envoyé"
Else 'Sinon PCC manquant alors message
Msgbox("PCC manquant")
End if
End Sub

Dit moi ton retour ! 🙂
Bonjour a toi
merci pour ta réactivité et cela fonctionne tres bien et je t'en remerci.
une derniers chose , il y a t-il la possibilité que l'envoie puisse se faire en pdf.
par avance merci
bien a toi
 
- 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éponses
2
Affichages
715
Réponses
7
Affichages
726
  • Question Question
Microsoft 365 Excel VBA
Réponses
14
Affichages
814
Retour