Envoyer mail récurent automatiquement (Avec PJ)

Version imprimable

24/12/2018, 15h26
Ic3cub3000

2 pièce(s) jointe(s)

Envoyer mail récurent automatiquement (Avec PJ)

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
https://www.youtube.com/watch?v=mIEsYqL4i2U

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

Pièce jointe 436696 Pièce jointe 436694

Si une âme charitable pouvait m'aider car je rame un peu à m'en dépatouiller.
28/12/2018, 18h22
Oliv-

l'ordre des instruction est en cause

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

Ah d'accord.... merci :oops:

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

Code:

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

14/09/2019, 15h23
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:

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

Bonjour,
tu peux utiliser cette écriture ci
Code:

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

19/09/2019, 21h36
yann7630
Citation:
Envoyé par Oliv-

Bonjour,
tu peux utiliser cette écriture ci

Code:

1 2 3 Set recip = objMsg.Recipients.add("TOTO") recip.Type = olTo recip.Resolve
Merci Oliv je teste dès que possible
28/09/2019, 11h32
yann7630

Citation:

Envoyé par 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
30/09/2019, 09h09
Oliv-
Bonjour,

Il faut remplacer par
Code:

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"