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

VBA Outlook Discussion :

Automatisation d'un tableau excel avec des relance


Sujet :

VBA Outlook

  1. #1
    Candidat au Club
    Homme Profil pro
    Montpellier
    Inscrit en
    janvier 2023
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 27
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Montpellier

    Informations forums :
    Inscription : janvier 2023
    Messages : 1
    Points : 3
    Points
    3
    Par défaut Automatisation d'un tableau excel avec des relance
    Bonjour à vous,
    Merci à tous pour votre accueil. Je suis enseignant en gestion mais je ne connais pas le VBA.
    Voilà mon problème !
    Je souhaiterais automatiser des envois de mail via Excel. J'ai essayé de créer une macro, (voir ci dessous, je ne sais pas si elle tient la route !). Est-il, possible de prévoir d’envoyer des mails à j+3 , prévoir une notification dans mon agenda pour relancer par téléphone à j+5 ? et ajouter automatiquement une pièce jointe.

    En PJ, mon tableau Excel.

    matmane-retroplanning.xlsx (27.04 Ko)

    Essai pour Macro Excel pour automatiser des envois de mail mais impossible de le faire fonctionner :

    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
    21
    Sub mail_outlook_débutant() 'début du programme 'mail_outlook_'
    Dim OutApp As Object 'Déclaration de l'application objet Outlook
    Dim OutMail As Object 'Déclaration du mail objet Outlook
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail 'début de la boucle
    .To = <a href="mailto:matmane@ecolevilz.fr">matmane@ecolevilz.fr</a> 'champ envoyer à
    .CC = <a href="mailto:matmane@ecolevilz.fr">matmane@ecolevilz.fr</a>; <a href="mailto:matmane@ecolevilz.fr">matmane@ecolevilz.fr</a> 'champ mail en copie
    .BCC = "" 'champ mail en copie caché
    .Subject = "Test de matmane" 'champ du sujet du mail
    .Body = "Ceci est un message test." & vbCrLf & "ceci est une nouvelle ligne"
    'champ du corps du mail
    ' ajouter & vbCrlF & pour aller à la ligne entre deux valeurs
    .Display 'affiche le mail en brouillon dans Outlook, pratique
    'pour vérifier avant d'envoyer
    '.Send 'envoie directement le mail
    '.Save 'sauvegarde le mail
    End With 'fin de la boucle
    Set OutMail = Nothing 'nettoie la mémoire en nettoyant les variables
    Set OutApp = Nothing 'nettoie la mémoire en nettoyant les variables
    End Sub 'fin du programme
    Merci pour votre aide.
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. [WD-2010] Créer un tableau Word avec des données Excel
    Par Kris41 dans le forum VBA Word
    Réponses: 9
    Dernier message: 06/09/2019, 06h04
  2. Supprimer des lignes d’un tableau Excel avec une limite
    Par PASCAL9210 dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 28/12/2018, 13h05
  3. Réponses: 0
    Dernier message: 21/06/2016, 16h18
  4. [Débutant] comment remplir un tableau sous excel avec des données de DGV?
    Par spring.time dans le forum VB.NET
    Réponses: 6
    Dernier message: 26/10/2012, 21h36
  5. Réponses: 4
    Dernier message: 05/12/2006, 12h43

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