Discussion :

[minot83]

Bonjour,

m'étant appuyé sur http://access.developpez.com/faq/?page=Outlook#outlook

puis, derrière mon bouton, j'ai placé ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande71_Click()
    Dim Recipient As String, Subject As String, Body As String
        Recipient = "SELECT [log] & "@tam.org" AS mail" & _
                    "FROM T_Agents" & _
                    "INNER JOIN TR_Maintenance_Agents ON (T_Agents.N° = TR_Maintenance_Agents.NUM_Agent) AND (T_Agents.N° = TR_Maintenance_Agents.NUM_Agent)" & _
                    "WHERE (((TR_Maintenance_Agents.NUM_demande_maintenance)=[Formulaires]![F_Gestion_Maintenance_Batiments]![Id_demande_maintenance]));"
        Subject = Me.ZLD_Bâtiments
        Body = Me.Lb_demande_maintenance
        CreateEmail Recipient, Subject, Body
End Sub

mais j'ai un erreur qui me souligne le caractère "@"
pourtant ça passe bien en SQL, mais là, je bloque...

Dans la ligne 3

Code :

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

SELECT [log] & "@tam.org" AS mail

je concatène le login de l'utilisateur et @tam.org, inutile de stocker l'adresse mail complète...

Merci d'avance

[zoom61]

Salut,

Cela doit être :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande71_Click()
    Dim Recipient As String, Subject As String, Body As String
        Recipient = "SELECT [log]" & "'@tam.org' AS mail" & _
                    "FROM T_Agents" & _
                    "INNER JOIN TR_Maintenance_Agents ON (T_Agents.N° = TR_Maintenance_Agents.NUM_Agent) AND (T_Agents.N° = TR_Maintenance_Agents.NUM_Agent)" & _
                    "WHERE (((TR_Maintenance_Agents.NUM_demande_maintenance)=[Formulaires]![F_Gestion_Maintenance_Batiments]![Id_demande_maintenance]));"
        Subject = Me.ZLD_Bâtiments
        Body = Me.Lb_demande_maintenance
        CreateEmail Recipient, Subject, Body
End Sub

Dans une requête en VBA ,il ne faut pas utiliser ", mais plutôt '.

@+.

[minot83]

Je te remercie beaucoup, décidément, j'aurai toujours du mal avec ces différences de syntaxe...

ça marche un peu mieux mais ça ne fonctionne pas car ça m'envoie un mail mais avec 'SELECT [log' comme résultat de la requête, donc comme adresse mail.

Merci de me corriger

[zoom61]

Avec quelque chose comme cela tu devrais y arriver :

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
Private Sub Commande71_Click()
    Dim Recipient As String, Subject As String, Body As String
 
    SQL = "SELECT [log]" & "'@tam.org' AS mail" & _
        "FROM T_Agents" & _
        "INNER JOIN TR_Maintenance_Agents ON (T_Agents.N° = TR_Maintenance_Agents.NUM_Agent) AND (T_Agents.N° = TR_Maintenance_Agents.NUM_Agent)" & _
        "WHERE (((TR_Maintenance_Agents.NUM_demande_maintenance)=[Formulaires]![F_Gestion_Maintenance_Batiments]![Id_demande_maintenance]));"
    Set oSQL = CurrentDb.OpenRecordset(SQL)
    While Not oSQL.EOF
        Recipient = oSQL.Fields(0)
        oSQL.MoveNext
    Wend
    oSQL.Close
    Set oSQL = Nothing
 
    Subject = Me.ZLD_Bâtiments
    Body = Me.Lb_demande_maintenance
    CreateEmail Recipient, Subject, Body
End Sub

[minot83]

Merci,

je suppose que je dois déclarer SQL as String?

et pour oSQL?
erreur de compilation, variable non définie

Tu peux m'expliquer brièvement ce que tu m'as rajouté?

[zoom61]

Code :

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

1
2
SQL as string
oSQL as  recordset

[cafeine]

Salut,

ici c'est un mélange de concaténation SQL et VBA.
Dans ton cas il faut faire une concaténation SQL donc laisser & dans la chaîne :

Code :

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

        SQL = "SELECT [log] & '@tam.org' AS mail" & _