JerCaz
XLDnaute Occasionnel
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:
J'ai essayé dans ce code de désactiver les alertes avec le bout de code
en début de macro, mais ça ne fonctionne pas.
J'ai essayé de mettre l'instruction
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
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:
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
Code:
Application.DisplayAlerts = False
J'ai essayé de mettre l'instruction
Code:
SendKeys "%{s}", True 'Envoie le mail sans confirmation
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
Dernière édition: