Envoi mail automatique avec conditions sur excel

oumerri88 Messages postés 3 Statut Membre -  
Le Pingou Messages postés 12275 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 .

2 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour
    Pouvez montrer le code que vous avez écrit?
    0
    1. Oumerri88.Yo
       
      J'ai rien ecrit jusqu'a maintenant
      0
    2. oumerri88 Messages postés 3 Statut Membre
       
      Sub envoi()


      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
      0
      1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > oumerri88 Messages postés 3 Statut Membre
         
        Bonjour
        Et ca donne quoi?
        0
      2. oumerri88 Messages postés 3 Statut Membre > f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention  
         
        Le message n'envoi pas j'ai deja activer outlook liberery
        0
  2. Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   1 477
     
    Bonjour,
    Au passage, il vous renvoie une erreur.......mais laquelle?
    0

Discussions similaires

Echec d'envoi message sur Messenger
Kris68 -
Colibri -

2 réponses