Discussion :

[perouse07]

Bonjour,
j'ai récemment incrémenter une macro qui me permet d'envoyer un rappel suivant une date !
Cependant je bloque sur un sujet .. l'envoyer à plusieurs destinataires que j'aurais rentré dans un tableau.. ( j'ai un tableau intitulé "EMAIL" )
ainsi que sur le message du commentaire créé ..

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub AjoutRV()
  Dim DLig As Long, Lig As Long
  Dim OutObj As Outlook.Application
  Dim OutAppt As Outlook.AppointmentItem
  Dim DateRdv As Date, FlgRdv As Boolean
 
' j'aimerais que ce rappel soit envoyé à des adresses bien précises sur mon tableau intitulé EMAIL
 
 
  Set OutObj = CreateObject("outlook.application")
 
  With Sheets("base")
    DLig = .Range("B" & Rows.Count).End(xlUp).Row
 
    For Lig = 5 To DLig
 
      If .Range("H" & Lig) <> "" Then
 
        If .Range("H" & Lig).Comment.Text <> .Range("D" & Lig).Value Then
          FlgRdv = True
        Else
          FlgRdv = False
        End If
      Else
        FlgRdv = True
      End If
 
      If FlgRdv Then
 
        DateRdv = Range("E" & Lig)
        Set OutAppt = OutObj.CreateItem(olAppointmentItem)
        With OutAppt
          .Subject = "DATE LIMITE APPROCHANTE TAMPON : " & Sheets("base").Range("B" & Lig) & " " & Sheets("base").Range("C" & Lig) & " se situant " & Sheets("base").Range("D" & Lig)
          .Start = DateRdv & " 08:00"
          .Duration = 60
          .ReminderSet = True
          .Save
        End With
 
        On Error Resume Next
        .Range("H" & Lig).Comment.Delete
        ' ici j'aimerais les jours restants datedif en fonction de ma date de rappel
        .Range("H" & Lig).AddComment Text:="xxx"
        .Range("H" & Lig) = "Oui"
        On Error GoTo 0
      End If
    Next Lig
  End With
  Set OutAppt = Nothing
End Sub

Quelqu'un pourrait il m'éclairer ?

[Invité]

Bonsoir,
Tu sépare le destinataires par un ;

http://www.developpez.net/forums/d14...t/#post7968025

[perouse07]

Merci pour ta réponse mais elle ne correspond pas à ce que je recherchais.
Je me suis surement mal exprimé !

Aujourd'hui ma macro est fonctionnel, elle m'envoie des rappels en fonction des dates de mon tableau ! Cependant je voudrais que ces rappels soient envoyés
à des Emails qui se trouveraient dans un tableau intitulé "EMAIL" et non plus sur ma session Outlook en cours.

quelqu'un aurait une idée ?

personne ? ..

[Oliv-]

Bonjour,
Est ce que tu veux faire l'équivalent de créer une réunion avec des participants ?

il suffit d'ajouter des destinataires ! et de donner leur rôle

Code :

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

1
2
3
     Dim myRequiredAttendee As Outlook.Recipient
    Set myRequiredAttendee = OutAppt.Recipients.add("toto@toto.fr")
    myRequiredAttendee.Type = olRequired

Nom Valeur Description
olOptional 2 Participant facultatif
olOrganizer 0 Organisateur de la réunion
olRequired 1 Participant obligatoire
olResource 3 Ressource, par exemple, une salle de conférence

[perouse07]

Cela me parait très utile cette fonctionnalité, là aujourd'hui je recherche juste à envoyer des rappels à plusieurs destinataires et non plus à la session outlook ouverte.
Les adresses sont dans un tableau du même classeur intitulé Email, qui me permet de modifier à ma guise l'ajout ou la suppression d'un contact.
C'est à ce sujet que je bloque

[Invité]

Bonjour,
Tu ma dit que j'étais hors sujet mais ma fonction dans le lien fait ça également!

[Oliv-]

Cela me parait très utile cette fonctionnalité, là aujourd'hui je recherche juste à envoyer des rappels à plusieurs destinataires et non plus à la session outlook ouverte.
Les adresses sont dans un tableau du même classeur intitulé Email, qui me permet de modifier à ma guise l'ajout ou la suppression d'un contact.
C'est à ce sujet que je bloque

Qu'entends tu par "RAPPEL" (comment ferais tu dans outlook sans macro ?), tu veux affecter une tâche ? tu peux aussi envoyer un Email avec un indicateur de suivi pour le destinataire et un rappel...

un rappel n'existe pas tout seul , il est associé à une tache, un rdv ou un Email