Envoi mail automatique avec conditions sur excel
oumerri88
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
j'ai un problème au niveau de l'envoi de message
j'ai une cellule A1 qui contiennent un chiffre si le chiffre <ou = 0 il faut envoyer un message Outlook a des destinateurs merci d'avance .
j'ai une cellule A1 qui contiennent un chiffre si le chiffre <ou = 0 il faut envoyer un message Outlook a des destinateurs merci d'avance .
A voir également:
- Envoi mail automatique avec conditions sur excel
- Liste déroulante excel - Guide
- Réponse automatique thunderbird - Guide
- Excel cellule couleur si condition texte - Guide
- Word et excel gratuit - Guide
- Programmer envoi mail gmail - Guide
Dim LeMail As Variant
If ThisWorkbook.Worksheets("feuil1").Names("A2").RefersToRange.Value <= 0 Then
Set LeMail = CreateObject("Outlook.application")
With LeMail.CreateItem(olMailItem)
.Subject = "un simple mail"
.To = "y.oumerri@ocpgroup.ma"
.Body = "un simple mail envoyer a moi"
.Display
End With
End If
End Sub
Et ca donne quoi?