Envoie d'un mail vba sous condition

shinozak à dit:

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 !

Cliquez pour agrandir...