Discussion :

[Ic3cub3000]

Bonjour à tous et merci d'avance de vous pencher sur ma question.

Je cherche en effet à envoyer un mail récurent automatiquement tous les jours ouvrés à une seule et même adresse avec pour constante le même objet ainsi que le même fichier Excel en Pièce Jointe.

J'ai suivi à la lettre les instructions de cette vidéo

en créant une macro après avoir créé un rappel dans mon calendrier avec la bonne périodicité mais il se trouve qu'au moment de s'exécuter, ma tache plante au niveau de l'envoi de la PJ (voir screenshots.

Je reçois bien le mail mais sans PJ






Si une âme charitable pouvait m'aider car je rame un peu à m'en dépatouiller.

[Oliv-]

l'ordre des instruction est en cause

le .send doit se trouver après le.attachments.add...

[Ic3cub3000]

Ah d'accord.... merci


Pour ceux que ça interresse, voici le code que j'utilise depuis avec la méthodologie

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
22
23
24
25
26
27
28
29
Private Sub Application_Reminder(ByVal Item As Object)
  Dim objMsg As MailItem
  Dim myAttachments As Outlook.Attachments
  Set objMsg = Application.CreateItem(olMailItem)
  Set myAttachments = objMsg.Attachments
If Item.MessageClass <> "IPM.Appointment" Then
  Exit Sub
End If
 
If Item.Categories <> "Mails automatiques" Then           'Indiquer ici la catégorie du mail définie
  Exit Sub
End If
 
  objMsg.To = Item.Location             'Destinataire du mail
  objMsg.Subject = Item.Subject         'Objet du mail
  objMsg.Body = Item.Body               'Corps du mail
  myAttachments.Add "C:\..............."                'Chemin vers pièce jointe du mail
  objMsg.Send                      'Remplacer SEND par DISPLAY pour demande de confirmation avant envoi du mail
 
  Set objMsg = Nothing
End Sub
 
 
'Créer catégorie "Mails automatiques"
'Calendrier - Rendez-vous - classer dans la catégorie "Mail auto"
'Programmer rappel "00 minutes"
'Programmer périodicité
'Fichier - Option - Personnaliser le ruban - "Développeur"
'Développeur - ThisOutlookSession - Copier le code ci-dessus

[yann7630]

Bonjour

je reviens sur cette discussion qui se rapproche le plus de mon problème

J'utilise ce code qui fonctionne dans le cas d'une adresse mail enregistré dans la localisation du RDV

Par contre dans mon cas il me faut utiliser une liste de diffusion (nombre de contact trop important et peut être variable)

Avec le nom de la liste de contact j'obtiens une erreur sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  objMsg.Send                      'Remplacer SEND par DISPLAY pour demande de confirmation avant envoi du mail

si je remplace send par display le mail se créer et au bout d'un moment le nom de la liste et reconnu et l'envoi peut se faire

Y a t'il une façon particulière d’écrire le nom de la liste ou autre

Merci de votre aide

[Oliv-]

Bonjour,
tu peux utiliser cette écriture ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Set recip = objMsg.Recipients.add("TOTO")
    recip.Type = olTo
    recip.Resolve

[yann7630]

Bonjour,
tu peux utiliser cette écriture ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Set recip = objMsg.Recipients.add("TOTO")
    recip.Type = olTo
    recip.Resolve

Merci Oliv je teste dès que possible

[yann7630]

Merci Oliv je teste dès que possible

Bonjour Oliv
J'ai testé mais cela ne correspond pas à ce que je souhaite
le nom du groupe de contact devant être dans la lieu du RDV

J'ai résolu mon problème en incluant objMsg.Display avant objMsg.Send.
ça génère le mail et donne le temps à Outlook de reconnaître la liste de diffusion puis l'envoi

merci

[Oliv-]

Bonjour,

Il faut remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 Set recip = objMsg.Recipients.add("TOTO")
    recip.Type = olTo
recip.Type = olResource
recip.resolve

il faut peut être aussi renseigner objMsg.location = "TOTO"