Macro envoi mail via outlook 2003 sans confirmation d'envoi

[JerCaz]

Bonjour le forum,

Je viens vers vous pour des conseils autant que de l'aide.
Dans le cadre de la réalisation d'un projet concernant l'informatisation de l'hôpital dans lequel je travaille, je souhaiterais, dans un fichier excel, qu'il y ait un envoi automatique d'un mail en fonction d'une certaine condition, à différents utilisateurs, et ce sans qu'il ne soit nécessaire de confirmer l'envoi.
Cela concerne une messagerie interne, utilisant Outlook 2003.
Le problème n'est pas que l'utilisateur du document excel doit ignorer cet envoi, il est l'un des demandeurs de cet envoi automatique (mais pas du tout à l'aise avec l'outil informatique). C'est pour diminuer au maximum le nombre de manipulations à réaliser.
Ce fichier a pour but de prévenir les référents du groupe de travail "don d'organes" d'un patient décédé répondant à certains critères.

Après différentes recherches, voici ce que j'ai adapté comme code:

'Envoi automatique d'un mail si le patient est réfrigéré dans les 4 heures qui suivent son décès
'Avant de lancer cette macro, dans l'éditeur VBA: Faire Menu / Outils / Références... / Cocher "Microsoft Outlook Library"
    If tablo(15) < 0.16667 Then
        Application.DisplayAlerts = False
                    Dim ol As New Outlook.Application
            Dim olmail As MailItem
            Dim CurrFile As String
            Set ol = New Outlook.Application
            Set olmail = ol.CreateItem(olMailItem)
                With olmail
                    .To = "1erdestinataire@ch-douai.fr; 2emedestinataire@ch-douai.fr"
                    '.Cc = Oter l'apostrophe et mettre ici les destinataires en copie
                    .Subject = "Alerte PMO : un nouveau patient répond aux critères de prélèvements"
                    .Body = "Prière de contacter le plus rapidement possible l'agent d'amphithéâtre. Lien vers le fichier: <file:\\S:\Services\Administratif\DSSI\charges de mission informatique\Décès\Saisie des décès.xls> "
                    .Send   'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
                End With
               
        Application.DisplayAlerts = True
    End If

J'ai essayé dans ce code de désactiver les alertes avec le bout de code

Application.DisplayAlerts = False

en début de macro, mais ça ne fonctionne pas.


J'ai essayé de mettre l'instruction

 SendKeys "%{s}", True   'Envoie le mail sans confirmation

après mon "End with", mais ça ne résoud pas mon problème.

Ce qui me gène vraiment, c'est cette fenêtre de confirmation:
http://www.imagehotel.net/?from=vw36yeq5f4.png

Je vous remercie d'avance pour l'aide que vous m'apporterez pour résoudre ce problème.
Cordialement,
JerCaz

 

[JerCaz]

Re : Macro envoi mail via outlook 2003 sans confirmation d'envoi

OK, merci.
Je teste ça demain matin et je viens dire quoi ici-même.
Merci à tous pour votre aide, qui m'a été très précieuse.