Envoie d'un mail vba sous condition

[TEMAGOULTFARID]

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

 

[shinozak]

Bonsoir,
Il faut que la cellule H4 contienne PCC c'est ça ?

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 !

 

[TEMAGOULTFARID]

Bonsoir,
Il faut que la cellule H4 contienne PCC c'est ça ?

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