Bonjour,
Dans une BDD qui sert à signaler des incidents IT, les utilisateurs doivent remplir un formulaire expliquant leurs problèmes. Ces renseignements sont ensuite envoyés automatiquement via email au département IT à la fermeture du formulaire. Le soucis que j'ai avec mon code VBA (ci-dessous) est que si un utilisateur (A) ouvre un incident et que entretemps un autre utilisateur (B) ouvre aussi un incident mais que ce dernier (B) referme en premier son incident (le formulaire donc...) lorsque (A) fermera lui aussi son incident l'email envoyé par (A) contiendra les informations encodées par (B). Je comprends que mon MyRS.moveLast n'est pas approprié...Si vous avez une idée...
Merci d'avance
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 Function sndrpt() Dim objOutlook As Outlook.Application Dim objEmail As Outlook.MailItem Dim strbody As String Dim strsubject As String Dim MyDB As Database Dim MyRS As Recordset Set MyDB = CurrentDb Set MyRS = MyDB.OpenRecordset("Issues") MyRS.MoveLast Set objOutlook = CreateObject("Outlook.application") Set objEmail = objOutlook.CreateItem(olMailItem) strsubject = MyRS![Subject] strbody = MyRS![Description] 'Generate email With objEmail .To = "it.department@abc.com" .CC = "" .Subject = "New issue -" & " " & strsubject .Body = strbody .Send End With End Function
Partager