Discussion :

[nicopof]

Bon j'ai actuellement une macro qui fonctionne
en gros, quand je tape le chiffre 31 ou 34 ou 36 ou 18 ou 99 dans la colonne 21 ou 24 ou 27 ou 30 un mail est envoyé.

Alors j'aimerai améliorer l'envoie de l'email, en ce qui concerne le corps du message.
Actuellement je tape le code dans la colonne cible je table et hop le mail part direct

Apres avoir marquer le code, des explication sont donner dans la colonne après. Mais le mail est deja parti et les explications ne sont pas dans le mail du coup
J'ai pensé a mettre une tempo dans 45 seconde (largement suffisant) le temps que la personne marque les explication et que l'email body soit alimenté

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Dim tablCode
    tablCode = Array(31, 34, 36, 18, 99)
 
    If Target.Column = 21 Or Target.Column = 24 Or Target.Column = 27 Or Target.Column = 30 Then
        For i = 0 To 4
            If Target.Value = tablCode(i) Then 
           '--------------------------------------------------------
                Dim Email_Subject, Email_Send_From, Email_Send_To, _
                    Email_Cc, Email_Bcc, Email_Body As String
                Dim Mail_Object, Mail_Single As Variant
                Email_Subject = " DL " & tablCode(i)
                Email_Send_From = "xxxx@gmail.com"
                Email_Send_To = "xxxx@gmail.com"
                Email_Cc = "xxxx@gmail.com"
                Email_Bcc = "xxxx@gmail.com"
                Email_Body = "Auto-mail" & vbCr & _
                             "" & vbCr & _
                             "Un code " & tablCode(i) & " a été attribué aujourd'hui" & vbCr & _
                             "Date : " & Cells(Target.Row, 1) & vbCr & _
                             "Nom agent: " & Cells(Target.Row, 2) & vbCr & _
                             "Vol Départ: " & Cells(Target.Row, 13) & vbCr & _
                             "STD: " & Format(Cells(Target.Row, 18), "hh:mm") & vbCr & _
                             "ATD: " & Format(Cells(Target.Row, 19), "hh:mm") & vbCr & _
                             "Durée: " & Format(Cells(Target.Row, 20), "hh:mm") & vbCr & vbCr & _
                             "DR1: " & Cells(Target.Row, 21) & vbCr & _
                             "time: " & Format(Cells(Target.Row, 22), "hh:mm") & vbCr & _
                             "Explication: " & Cells(Target.Row, 23) & vbCr & vbCr & _
                             "dr2: " & Cells(Target.Row, 24) & vbCr & _
                             "time: " & Format(Cells(Target.Row, 25), "hh:mm") & vbCr & _
                             "Explication: " & Cells(Target.Row, 26) & vbCr & vbCr & _
                             "dr3: " & Cells(Target.Row, 27) & vbCr & _
                             "time: " & Format(Cells(Target.Row, 28), "hh:mm") & vbCr & _
                             "Explication: " & Cells(Target.Row, 29) & vbCr & vbCr & _
                             "dr4: " & Cells(Target.Row, 30) & vbCr & _
                             "time: " & Format(Cells(Target.Row, 31), "hh:mm") & vbCr & _
                             "Explication: " & Cells(Target.Row, 32) & vbCr & vbCr & _
                             "@tt"
 
 
                On Error GoTo debugs
                Set Mail_Object = CreateObject("Outlook.Application")
                Set Mail_Single = Mail_Object.CreateItem(0)
                With Mail_Single
                    .Subject = Email_Subject
                    .To = Email_Send_To
                    .cc = Email_Cc
                    .BCC = Email_Bcc
                    .Body = Email_Body
                    .Send
                End With
debugs:
                If Err.Description <> "" Then MsgBox Err.Description
                '----------------------------------------------------------------
            End If
 
        Next
    End If
End Sub

j'ai essayer d'ajouter application wait.. mais sa fonction pas comme je le voudrai
J'ai essayer avec application.ontime ... mais j'arrive pas a l'integgrer,


quelqu'un aurait-il une idée comment rajouté une tempo?
Merci

[Quentin77170]

De mémoire, au lieu de mettre .Send tu peux mettre .Show, ainsi ton mail sera tout prêt, plus qu'à le remplir et à cliquer toi-même sur Envoyer

Qu'en penses-tu ? Sinon insère un DoEvents juste avant ton Application.Wait, mais je ne suis pas certain du truc...

[nicopof]

En faite l'agent n'est pas censée écrire le mail, c'est juste un message d'info au chef de service, il est censé faire un rapport dans la foulé mais 70% du temps il ne le font pas.
Donc il me faut un mail auto
Alors soit une une tempo
Application.OnTime Now() + TimeValue("00:00:45"), "Module1.RetrieveValues" mais je ne sais pas comment l’insérer, ou soit j'ai pensée, après sauvegarde, le mail part!!!

[bboy-eazy]

Bonjour,

et l'agent rempli un case vide? Si oui pourquoi pas faire un test sur la cellule ou doit être inserer les commentaires et envoyer le mail que si la cellule commentaire est différentes de vide non?

[nicopof]

le probleme c'est que il remplisse que le code 99 pas les autres

[mayekeul]

Bonjour,

Le plus simple, serait simplement d'assigner l'envoi du mail, non pas au changement de valeur d'une cellule de la feuille mais à un bouton.
Quitte à tester des cellules si l'envoi doit bel et bien être fait.

Ca risque d'être compliqué à plus d'un titre de mettre un compte à rebours sur l'envoi du message en espérant que l'encodage soit fini.