Discussion :

[hadrimo]

Bonjour,
Je remplis une table avec les valeurs des variables d'un formulaire Outlook personnalisé à partir des courriels reçus dans une boîte courriel avec une fonction écrite en VBA.

Code :

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

1
2
  Nom=item.UserProperties.Find("stNom")
    DD=item.UserProperties.Find("sDDN")

Il arrive qu'un courriel se trouve dans la boîte et qui ne contient pas les variables stNom et stDDN. Mon code m'affiche le message d'erreur: "Variable objet ou variable de bloc WITH non défenie"

J'aimerai faire un test, si les variables (stNom et/ou stDDN) existent j'extrais leurs valeurs sinon je passe à l'item suivant.

Merci!

[User]

Bonsoir,

Il faudrait le code complet.

Notamment, à quelle collection ou quel objet est rattaché item ?

Cdlt,

[hadrimo]

Voici le code:

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
 Dim MonApp As Outlook.Application
 Dim MonDossier As Outlook.Folder, MonDossierTRT As Outlook.Folder
 Dim ns As Outlook.NameSpace
 Dim item As Outlook.MailItem
 
 
 Dim st_NM_BOITE As String, st_S_DOS_1 As String
 Dim stAgent As String, stDDN as string
 
 Set MonApp = Outlook.Application
 Set ns = MonApp.GetNamespace("MAPI")
 
 
   st_NM_BOITE ="NM_BOITE"  ' Nom de la boîte 
   st_S_DOS_1 = "S_DOS_1"     '  Le sous-dossier ou les courriel sont classés
 
 
   Set MonDossier = ns.Folders(st_NM_BOITE).Folders(st_S_DOS_1)
 
    ' Debut traitement des courriels
 
   For Each item In MonDossier.Items  
         stAgent = item.UserProperties.Find("Nom")
         stDDN = item.UserProperties.Find(DDN")
    Next item

[User]

Merci,

Je pense à quelque chose comme ceci :

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
 Dim MonApp As Outlook.Application
 Dim MonDossier As Outlook.Folder, MonDossierTRT As Outlook.Folder
 Dim ns As Outlook.NameSpace
 Dim item As Outlook.MailItem
 
 
 Dim st_NM_BOITE As String, st_S_DOS_1 As String
 Dim stAgent As String, stDDN as string
Dim objProperty As Outlook.UserProperty
 
 Set MonApp = Outlook.Application
 Set ns = MonApp.GetNamespace("MAPI")
 
 
   st_NM_BOITE ="NM_BOITE"  ' Nom de la boîte 
   st_S_DOS_1 = "S_DOS_1"     '  Le sous-dossier ou les courriel sont classés
 
 
   Set MonDossier = ns.Folders(st_NM_BOITE).Folders(st_S_DOS_1)
 
    ' Debut traitement des courriels
 
   For Each item In MonDossier.Items  
 
        Set objProperty = item.UserProperties.Find("Nom")
 
        If TypeName(objProperty) <> "Nothing" Then
            stAgent =objProperty.value
            debug.print stAgent
        end if
 
        Set objProperty = item.UserProperties.Find("DDN") 
 
        If TypeName(objProperty) <> "Nothing" Then
            stDDN =  objProperty.value
            debug.print stDDN
        end if 
 
    Next item

Il faut créer l'objet UserProperty, puis tester s'il est à nothing, et si ce n'est pas le cas récupérer la valeur de la propriété avec value.

Cdlt,

[hadrimo]

Merci USER

J'ai changé: objContact. par item. , est ça fonctionne bien!

Encore un gros merci.

[User]

Merci USER

J'ai changé: objContact. par item. , est ça fonctionne bien!

Encore un gros merci.

Oui c'était une coquille

Cdlt,