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 :

Envoyer des mails automatiquement tous les mois [OL-2016]


Sujet :

VBA Outlook

  1. #1
    Candidat au Club
    Homme Profil pro
    Responsable des études
    Inscrit en
    février 2021
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Responsable des études
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : février 2021
    Messages : 2
    Points : 3
    Points
    3
    Par défaut Envoyer des mails automatiquement tous les mois
    Bonsoir
    Voici mon problème
    Je désire envoyer des mails en automatique tous les mois
    J'ai suivi un tuto mais il y a un bug après avoir manipulé certaines fonctions
    Quand je valide mon rendez-vous, j'ai une erreur de débogage 424


    Ce que j'ai manipulé
    - Fichier / Option / Centre de gestion et confidentialité / Paramètre / Paramètre des macros / Et j'ai coché (Afficher toutes les macros..........)

    - j'ai créé une catégorie nommé "SPML"
    - J'ai créé mon RDV Objet: SPML Emplacement : mes adresses Email Rajout de ma classification Popup de rappel et enregistrement


    Voici mon code

    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
    'Original function written by Diane Porensky: htpp:/www.slispstick.com/developer/send-mail-outlook_reminders-fires/
    Private Sub Application_Reminder(ByVal Item As Object)
      Dim objMsg As MailItem
      Set objMsg = Application.CreateItem(olMailItem)
     
    If Item.MessageClass <> "IPM.Appointment" Then 'vérifie s'il s'agit d'un rappel sur RDV
      Exit Sub
    End If
     
    If Item.Categories <> "SPML" Then 'indiquer ici le nom de la catégorie créée pour les mails autos
      Exit Sub
    End If
     
      objMsg.SendUsingAccount = objMsg.Session.Accounts.Item(1) 'si gestion de plusieurs comptes
        objMsg.Importance = o1ImportanceHigh    'importance du message
      objMsg.To = Itemm.Location  'ligne lieu de rendez-vous utilisée pour les adresses
      objMsg.Sbject = Item.Subject 'objet du mail
      objMsg.Body = Item.Body 'corps du mail
      obj.Display 'Display : affiche le mail avant envoi = SEND : envoit le mail sans relecture
      Set objMsg = Nothing
    End Sub
    Merci de votre aide

  2. #2
    Candidat au Club
    Homme Profil pro
    Responsable des études
    Inscrit en
    février 2021
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Responsable des études
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : février 2021
    Messages : 2
    Points : 3
    Points
    3
    Par défaut Résolution
    Bonjour
    J'ai vérifié mon code et il y avait quelques erreurs de Frappe
    Ce code fonctionne parfaitement bien après plusieurs échecs
    Voici le code corrigé et le lien pour ceux voulant utiliser ce moyen pour envoyer des mails chaque mois en automatique
    J'ai tjrs un problème de signature de pièces jointe



    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
    'Original function written by Diane Porensky: htpp:/www.slispstick.com/developer/send-mail-outlook_reminders-fires/
    Private Sub Application_Reminder(ByVal Item As Object)
      Dim objMsg As MailItem
      Set objMsg = Application.CreateItem(olMailItem)
     
    If Item.MessageClass <> "IPM.Appointment" Then 'vérifie s'il s'agit d'un rappel sur RDV
      Exit Sub
    End If
     
    If Item.Categories <> "SPML" Then 'indiquer ici le nom de la catégorie créée pour les mails autos
      Exit Sub
    End If
     
      'objMsg.SendUsingAccount = objMsg.Session.Accounts.Item(1) 'si gestion de plusieurs comptes
        objMsg.Importance = o1ImportanceHigh    'importance du message
      objMsg.To = Item.Location  'ligne lieu de rendez-vous utilisée pour les adresses
      objMsg.Subject = Item.Subject 'objet du mail
      objMsg.Body = Item.Body 'corps du mail
      objMsg.Send 'Display : affiche le mail avant envoi = SEND : envoit le mail sans relecture
      Set objMsg = Nothing
    End Sub

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2007] probleme code vba
    Par skipeemed dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 01/08/2011, 17h47
  2. probleme code vba
    Par jpr93 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 22/03/2010, 11h42
  3. [XL-2003] Probleme code VBA
    Par fullmetalknet dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 10/11/2009, 11h30
  4. Probleme code vba
    Par alex38 dans le forum Access
    Réponses: 6
    Dernier message: 18/04/2006, 13h10
  5. probleme code vba ne s'execute pas apres instruction sql
    Par arnogef dans le forum Requêtes et SQL.
    Réponses: 9
    Dernier message: 29/12/2005, 13h34

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