Discussion :

[Serendipity]

Bonjour!

Je ne comprends pas pourquoi dans ce bout de code, la variable mySubjectType de la ligne 13 et 32 n'est pas accessible au moment où je l'appelle?

Code vb.net :

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
Public Sub createForward(ByVal myTraitement As String)
        Dim aujourdhui As String = Format(DateTime.Now, "ddMMyy - ")
        Dim refDefaut As String
        Dim myinspector As Outlook.Inspector
        Dim myItem As Outlook.MailItem
        Dim myattachments As Outlook.Attachments
        Dim mySubject As String
        Dim mySubjectType As String
        Dim oldItem As Outlook.MailItem
 
        Select Case myTraitement
            Case "okTraite"
                mySubjectType = "OK TRAITE"            Case "dejaTraite"
                mySubjectType = "DEJA TRAITE"
        End Select
 
        myinspector = Application.ActiveInspector
        If Not TypeName(myinspector) = "Nothing" Then
            oldItem = myinspector.CurrentItem
            myItem = myinspector.CurrentItem.Forward
 
            If Clipboard.ContainsText Then
                refDefaut = Clipboard.GetText()
 
            Else
                refDefaut = "maRéférence"
            End If
            Dim numero = InputBox("Veuillez entrez la référence", "Référence", refDefaut)
            If numero <> "" Then
 
                myattachments = myItem.Attachments
                mySubject = aujourdhui & mySubjectType & " - " & myItem.Subject
                myItem.Subject = mySubject
                myItem.BCC = "CDS"
                myItem.Display()
 
                If (optionClose = True) Then oldItem.Close(False)
            End If
 
        End If
        myItem = Nothing
    End Sub

En tout cas c'est ce que dit intelisense.

[infosam76]

Je n'ai pas la librairie Outlook donc je ne sais pas lancer en debug, mais mon intelisense ne râle pas.

Maintenant j'ai corrigé ceci je suppose que c'etait une erreur de copier coller :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
mySubjectType = "OK TRAITE"            Case "dejaTraite"

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
mySubjectType = "OK TRAITE"            
Case "dejaTraite"
mySubjectType = "DEJA TRAITE"

[Serendipity]

Oui c'est effectivement une erreur de copier-collé, chez moi le code était correct, par contre intelisense lui me souligne bien les valeurs...

[phoenellion]

Bonjour,

Serait-il possible d'avoir le code en entier, s'il n'est pas trop long ?

Concernant le problème mentionné, rien ne semble clocher mais il faudrait vérifier aussi la manière dont Outlook est instancié. Je vois quelques liaisons tardives et ce "Application.ActiveInspector" me semble susceptible de lever une erreur également. De même que "optionClose" qui est appelé avant d'être déclaré, probablement parce qu'il s'agit ici d'un extrait de code.

Il faut penser à activer les option Explicit et Strict quand on fait de l'automation, voire même toute le temps d'ailleurs, sinon on laisse passer trop de code scabreux.

Quel est le but exact de cette procédure ?

[Serendipity]

Pour être honnête il s'agit d'un projet que j'ai un peu laissé de côté entre temps, j'ai bien pris note de vos conseils et si je peux m'y remettre bientôt je rajouterai des informations ici.