Bonjour à tous,

Voilà plusieurs jours que je bloque sur ce problème sans trouver de solution...

J'ai peaufiné se script qui fonctionne pour "Quitter" Mail.app.

Il y a juste la ligne que j'ai écrite en rouge qui ne fonctionne pas...

En gros, je voudrais passer au script SEULEMENT si le mail est envoyé... sinon ne rien faire...

Une idée peut être ???

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
Dim scriptToRun As String 

If scriptToRun = scriptToRun & "send" = True Then
                        
scriptToRun = scriptToRun & "tell application " & _
               Chr(34) & "Mail" & Chr(34) & Chr(13)
scriptToRun = scriptToRun & "quit" & Chr(13)
scriptToRun = scriptToRun & "end tell"
                                
On Error Resume Next
MacScript (scriptToRun)
On Error GoTo 0

Else
                        
End If