IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Envoi de mail automatique depuis Excel + ajout condition temporelle


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    Mars 2012
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2012
    Messages : 4
    Points : 5
    Points
    5
    Par défaut Envoi de mail automatique depuis Excel + ajout condition temporelle
    Bonjour,

    Le problème auquel je suis confronté et semble-t-il un problème récurrent sur ce forums.. Cependant, en balayant l'ensemble des sujets, je n'arrive pas à le résoudre.

    J'ai crée une macro permettant d'envoyer un mail "pré-fabriqué" à un destinataire défini. Il suffit alors de cliquer sur la case correspondante ( ou plutôt un bouton d'action et le mail s'envoie automatiquement).

    Maintenant, je souhaiterai que le mail ne s'envoie pas dans la seconde qui suit mais dès que nous sommes a 10 jours d'une date jalon. Pour cela, dans mon tableur, j'ai rajouté une colonne qui me calcule le nombre de jour entre la date jalon et la date d'aujourd'hui. L'idée est que le mail ne s'envoie donc pas au moment où on clique sur le bouton, mais dès que l'on a 10 jours d'écart ...

    Je suppose que je dois rajouter une boucle de condition , mais je n'y arrive pas.
    De plus, si je clique sur le bouton le 5 mai, et que je ne ré-ouvre pas mon classeur, est-il possible au moins que le mail s'envoie directement , le 25 mai par exemple ?

    Je vous montre ci-dessous ma macro actuelle :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Sub CdTmassifsLac()
     
    ' CdTmassifsLac Macro
    ' Envoi de mail automatique au conducteur de travaux Massifs lac
     
    Dim ol As New Outlook.Application
    Dim olmail As MailItem
    Dim CurrFile As String
    Set ol = New Outlook.Application
    Set olmail = ol.CreateItem(olMailItem)
    With olmail
    .To = Range("aa3").Value
    .Subject = Range("al2").Value
    .Body = Range("al3").Value
     
    .Send
     
     
    End With
    End Sub
    Je vous remercie d'avance
    Bonne soirée

  2. #2
    Membre actif Avatar de L'Albatros
    Homme Profil pro
    Chercheur en économie - statistique
    Inscrit en
    Avril 2012
    Messages
    150
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Chercheur en économie - statistique
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2012
    Messages : 150
    Points : 239
    Points
    239
    Par défaut
    Bonjour,

    ok, j'ai besoin d'avoir une info sur vos contraintes: la macro tournera au moins une fois par jour ou bien doit-elle être complètement autonome ?
    Si j'ai pu vous aider, dites le avec 1 pouce

Discussions similaires

  1. [XL-2010] Envoi de mail automatique sous Excel
    Par mad01 dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 07/04/2015, 12h41
  2. Envoi e-mail automatique via Excel
    Par nourmske dans le forum Excel
    Réponses: 1
    Dernier message: 30/10/2014, 16h10
  3. [AC-2010] envoi de mail Outlook depuis Excel en passant par Access :)
    Par Ragmaxone dans le forum Macros Access
    Réponses: 3
    Dernier message: 23/08/2013, 14h33
  4. Envoie mail automatique d'excel vers outlook
    Par misslol_21 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 01/11/2011, 18h59
  5. Envoie de mail automatique depuis une page ASP
    Par ravidat dans le forum ASP
    Réponses: 3
    Dernier message: 30/05/2009, 13h25

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo