Envoi de mail outlook

**minot83** · 28/11/2012, 17h30

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** · 29/11/2012, 08h24

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** · 29/11/2012, 15h58

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** · 29/11/2012, 16h47

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** · 29/11/2012, 16h59

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** · 29/11/2012, 17h05

Code :

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

1
2
SQL as string
oSQL as  recordset

**cafeine** · 29/11/2012, 17h08

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" & _

**minot83** · 29/11/2012, 17h53

j'ai complété, et corrigé mais j'obtiens maintenant cette erreur (en pièce jointe)

Serait-ce une référence manquante?
j'ajoute mes références en PJ.

**cafeine** · 29/11/2012, 18h17

en faisant un debug.print de ta chaîne SQL tu verrais qu'il manque des espaces:

après mail
après agents

ta chaîne doit ressembler à ça

Code :

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

SELECT blaFROM matableWHERE x = 2

**zoom61** · 29/11/2012, 18h40

Ajoute :

Code :

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

1
2
Msgbox SQL
Set oSQL = CurrentDb.OpenRecordset(SQL)

Dans la fenêtre qui apparaît, fait un copie (Ctrl+C), ensuite ouvre une requête vide copie le code obtenu en virant ce qui ne va pas, et regarde ta requête.

@+.

**minot83** · 29/11/2012, 19h10

Merci, j'ai corrigé ma requête, qui fonctionne bien en mode SQL.

Et maintenant, je tombe sur ce message d'erreur et en débugant, toujours cette ligne surlignée en jaune.

**zoom61** · 29/11/2012, 19h13

Peux-tu me donner ce que dit le Msgbox SQL

**minot83** · 29/11/2012, 19h21

Oui, bien-sûr

Code :

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

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]));

**cafeine** · 29/11/2012, 19h24

ta clause WHERE est collée une parenthèse fermante ...

**minot83** · 29/11/2012, 19h32

Ok, j'ai corrigé

Code :

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

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]));

Mais j'ai toujours les mêmes messages d'erreur et cette ligne en jaune.

**zoom61** · 29/11/2012, 19h42

Envoyé par zoom61

Peux-tu me donner ce que dit le Msgbox SQL

Peux tu donner le résultat ?

**minot83** · 29/11/2012, 19h44

le résultat de la requête?
c'est bien l'adresse mail qui m'intéresse.

dupont@tam.org

**zoom61** · 29/11/2012, 19h49

oui mais je veux le reste de ce que t'affiche Msgbox SQL

**minot83** · 29/11/2012, 19h54

le reste? je ne vois pas

**zoom61** · 29/11/2012, 20h14

Donne me moi le msgbox :

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
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] & "));"
    Msgbox SQL
    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

Envoi de mail outlook [AC-2003]

VBA Access

Discussions similaires

Partager

Partager