envoi automatique d'un mail à ceux qui n'ont pas répondu à une demande de réun ion

*C15 &lt;MefiezVousDesSpams@club-internet.fr&gt; que je salue a &eacute;crit *:<br />
<blockquote class="block0"><br />
Bonjour &agrave; tous et &agrave; toutes<br />
<br />
Sous Outlook 2003, est-il possible d'envoyer automatiquement un mail<br />
aux participants qui n'ont pas r&eacute;pondu &agrave; une demande de r&eacute;union ?<br />
<br />
<br />
Merci de votre r&eacute;ponse<br />
<br />
A+<br />
<br />
C15<br />
<br />
</blockquote><br />
S'il n'est pas trop tard :<br />
<br />
Sub relance_reunion()<br />
<br />
'BY OLIV 2008<br />
<br />
Dim ObjcurrentReunion As Outlook.AppointmentItem<br />
<br />
Set ObjcurrentReunion = ActiveInspector.CurrentItem<br />
<br />
For I = 1 To ObjcurrentReunion.Recipients.Count<br />
<br />
If ObjcurrentReunion.Recipients(I).MeetingResponseStatus = olResponseNone<br />
Then<br />
<br />
'olResponseAccepted 'olResponseDeclined 'olResponseNone<br />
'olResponseNotResponded<br />
<br />
'olResponseOrganized 'olResponseTentative<br />
<br />
MsgBox ObjcurrentReunion.Recipients(I).Name &amp; vbCr &amp; &quot;pas de r&eacute;ponse&quot;<br />
<br />
'nouveau mail &agrave; la personne<br />
<br />
End If<br />
<br />
Next I<br />
<br />
End Sub<br />
<br />
<br />
<br />
<br />
--<br />
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~<br />
Have a nice day<br />
Oliv'<br />
Outlook : http://faq.outlook.free.fr/<br />
les macros Outlook : http://faq.outlook.free.fr/articles.php?cat_id<br />
les archives : http://groups.google.com/group/microsoft.public.fr.outlook<br />
Derni&egrave;re chance http://www.outlookcode.com/<br />
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~<br />
<br />