[AC-2007] Envoi de mail conditionnel. [Résolu]

[fragglerick]

Bonsoir à tous.

Je ne suis pas certain d'employer la méthode la plus simple, mais voilà ce que je tente de réaliser => Associer un code conditionnel basé sur le contrôle de récidives d'interventions techniques, à un envoie automatique par mail.
Individuellement mes 2 codes fonctionnent, en revanche je n'arrive pas à faire la liaison en les 2

Code :

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
Private Sub Commande139_Click()
 
 'dim nbInterventions as integer
nbInterventions = DCount("[Machine]", "T_Appels", "[Date_Appel]>=Date()-15 AND [Machine]='" & Me.cmbMAchine.Value & "'")
If nbInterventions >= 3 Then ????????????
 
 
 
    Dim Ol As New Outlook.Application
    Dim Olmail As MailItem
    Dim Destinataire, Objet, Message As String
    Set Ol = New Outlook.Application
    Set Olmail = Ol.CreateItem(olMailItem)
'
    Signature = "Cordialement" & vbCrLf & vbCrLf & _
                "Stéphane" & vbCrLf & _
                "Service Technique" & vbCrLf & _
                "Tel : 00.00.00.00.00 - Fax : 00.00.00.00.00"
'
    Destinataire = "eux@wanadoo.fr"
 
'
    Objet = "Récidive incident " & Str(Date_Appel) & " " & Type_Machine & " "
    Message = "Bonjour," & vbCrLf & vbCrLf & _
              "Merci de prévoir un contrôle:" & vbCrLf & vbCrLf & _
              "Client : " & Client & vbCrLf & _
              "Ville  : " & Ville & vbCrLf & _
              "Type   : " & Machnie & vbCrLf & _
              "Symptôme  : " & Symptôme & vbCrLf & vbCrLf & _
              vbCrLf & Signature
 
 
'   Olmail = CreateObject("CDO.Message")
    With Olmail
        .To = Destinataire                         
        .CC = ""                                   
        .BCC = ""                                  
'       .From = ""                                  
        .Subject = Objet                        
        .Body = Message                           
'        .Send                                    
        .Display
 
    End With
'
'    Application.DisplayAlerts = False
 
 
End Sub

Bonne soirée

[pgz]

Bonsoir.

Si les routines fonctionnent, alors tu peux essayer

Code :

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
51
Private Sub Commande139_Click()
 
 'dim nbInterventions as integer
nbInterventions = DCount("[Machine]", "T_Appels", "[Date_Appel]>=Date()-15 AND [Machine]='" & Me.cmbMAchine.Value & "'")
If nbInterventions >= 3 Then 
 
    Dim Ol As New Outlook.Application
    Dim Olmail As MailItem
    Dim Destinataire, Objet, Message As String
    Set Ol = New Outlook.Application
    Set Olmail = Ol.CreateItem(olMailItem)
'
    Signature = "Cordialement" & vbCrLf & vbCrLf & _
                "Stéphane" & vbCrLf & _
                "Service Technique" & vbCrLf & _
                "Tel : 00.00.00.00.00 - Fax : 00.00.00.00.00"
'
    Destinataire = "eux@wanadoo.fr"
 
'
    Objet = "Récidive incident " & Str(Date_Appel) & " " & Type_Machine & " "
    Message = "Bonjour," & vbCrLf & vbCrLf & _
              "Merci de prévoir un contrôle:" & vbCrLf & vbCrLf & _
              "Client : " & Client & vbCrLf & _
              "Ville  : " & Ville & vbCrLf & _
              "Type   : " & Machnie & vbCrLf & _
              "Symptôme  : " & Symptôme & vbCrLf & vbCrLf & _
              vbCrLf & Signature
 
 
'   Olmail = CreateObject("CDO.Message")
    With Olmail
        .To = Destinataire                         
        .CC = ""                                   
        .BCC = ""                                  
'       .From = ""                                  
        .Subject = Objet                        
        .Body = Message                           
'        .Send                                    
        .Display
 
    End With
    'libération des variables
    Set Ol = nothing
    Set OlMail = nothing
End if
 
'    Application.DisplayAlerts = False
 
 
End Sub

Par contre le swing entre Outlook.MailItem et CDO.Message est surprenant!

PGZ

[fragglerick]

Bonjour Pierre,

ça fonctionne

En revanche, je souhaiterais que le mail parte automatiquement sans avoir à cliquer sur "Envoyer" lorsque le mail est édité by Outlook...

Concernant le "Mix" CDO Outlook, le code n'est pas de moi ...Mais ça, tu t'en doutes

Merci infiniment !

[pgz]

Bonjour.

Envoyé par fragglerick

En revanche, je souhaiterais que le mail parte automatiquement sans avoir à cliquer sur "Envoyer" lorsque le mail est édité by Outlook...

Dans ce cas tu ne fais pas

Code :

.Display

, mais

Code :

.Send

PGZ

[fragglerick]

Un minimum de réflexion m'aurait permis de solutionner tout seul...

Merci infiniment Pierre !