Discussion :

[ToxiZz]

Bonjour,

pour faciliter ma génération de recipients pour les mails/taches/meeting que je crée via mon application, j'ai essayer de créer la fonction suivante :

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
Public Function GetRecipients(ByVal taskId As Long) As recipients
    Dim recipients As recipients
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset( _
        "SELECT Tbl_WD11_Contacts.contactEmailBus " & _
        "FROM Tbl_WD11_Contacts INNER JOIN (Tbl_WD22_Tasks INNER JOIN Tbl_WD25_TaskInvolvement ON Tbl_WD22_Tasks.taskId = Tbl_WD25_TaskInvolvement.InvolvTaskId) ON Tbl_WD11_Contacts.ContactId = Tbl_WD25_TaskInvolvement.involvContactId " & _
        "WHERE (((Tbl_WD22_Tasks.taskId)=" & taskId & "))" _
    )
 
    Do While Not rs.EOF
        recipients.Add (rs.Fields("contactEmailBus"))
    Loop
 
    GetRecipients = recipients
 
    rs.Close
End Function

J'obtiens l'erreur suivante :

Run-time error '91':
Object variable or With block variable not set.

Apparement, il faut que j'initialise ma variable recipients avant de l'utiliser. Comment fait-on ca ?

[6ril25]

Salut,

A tout hasard: change le nom de ta variable (c'est comme

Code :

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

dim String as String

) et essaye de mettre

Code :

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

Set v_recipients.Add

sinon, où est l'erreur exactement?

6ril25

[ToxiZz]

j'ai modifier le nom de ma variable recipients en v_recipients mais j'ai toujours la même erreur

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
Public Function GetRecipients(ByVal taskId As Long) As recipients
    Dim v_recipients As recipients
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset( _
        "SELECT Tbl_WD11_Contacts.contactEmailBus " & _
        "FROM Tbl_WD11_Contacts INNER JOIN (Tbl_WD22_Tasks INNER JOIN Tbl_WD25_TaskInvolvement ON Tbl_WD22_Tasks.taskId = Tbl_WD25_TaskInvolvement.InvolvTaskId) ON Tbl_WD11_Contacts.ContactId = Tbl_WD25_TaskInvolvement.involvContactId " & _
        "WHERE (((Tbl_WD22_Tasks.taskId)=" & taskId & "))" _
    )
 
    Do While Not rs.EOF
        v_recipients.Add (rs.Fields("contactEmailBus"))
    Loop
 
    GetRecipients = v_recipients
 
    rs.Close
End Function

L'erreur se produit au moment du :

Code :

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

v_recipients.Add (rs.Fields("contactEmailBus"))

[6ril25]

et le Set??

[ToxiZz]

Erreur de syntaxe.

Compile error:

Expected: =

[6ril25]

peux-tu me donner le contenu de ton format "recipients"

[ToxiZz]

le contenu de ton format "recipients"

Mon format recipients ? Qu'est ce que c'est ?

[6ril25]

et bien tu code:

Code :

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

1
2
Public Function GetRecipients(ByVal taskId As Long) As recipients
    Dim v_recipients As recipients

tu le sors d'où, ce "recipients"??

[ToxiZz]

de Outlook.Recipients

[6ril25]

Alors je crois pouvoir te dire que ce format n'est pas reconnu, sinon, y'aurais un "R" (recipients)

Je pense qu'il te manque une librairie ou Outlook.Recipients
Vérifie ta référence

[ToxiZz]

Je pense qu'il te manque une librairie
Vérifie ta référence

Pourtant j'ai bien la référence "Microsoft Access 10.0 Object Library" activée.

[6ril25]

et tu as essayé d'écrire Outlook.recipients??

Parce que si le "r" de recipients ne se met pas en majuscule, ou si Access ne te propose pas "recipients" après le "." de outlook, y'a un soucis dans tes références.

[ToxiZz]

Je viens de faire un petit test. Ce n'est pas un problème de références.

Code :

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

1
2
3
4
5
Public Function GetRecipients(ByVal taskId As Long) As Outlook.Recipients
    Dim v_recipients As Outlook.Recipients
    v_recipients.Add "user@company.com"
    GetRecipients = v_recipients
End Function

Il se passe une erreur au moment de l'instruction suivante :

Code :

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

v_recipients.Add "user@company.com"

[6ril25]

Salut,

c'est pas plutôt Recipient et .address ??

à tout hasard...

6ril25