Dans outlook, je cherche à créer un bouton qui recupère l'adresse email
active et va comparer dans Access si cette adresse existe déjà. Si j'arrive
bien a récupérer l'adresse via ce code :
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector.CurrentItem
myAdress = myItem.SenderEmailAddress
MsgBox (myAdress)
Je n'arrive pas a ouvrir access et faire mon recorset avec :
'connexion a la db
Dim cnx As ADODB.Connection
Set cnx = Server.CreateObject("ADODB.Connection")
cnx.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\My
Documents\MonProfil\crm.mdb"
'Ouverture de la base de données
cnx.Open
rst.MoveFirst
'recherche dans la DB
'Dim rst As New ADODB.Recordset
Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE
(((TBL_CRM.Email_user) = " & myAdress & "))", cnx
While Not (rst.EOF)
MsgBox rst("Email_user")
rst.MoveNext
Wend
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Isabelle Prawitz
Bonjour ! Sous toute réserve (mon ADO est un peu roué, je ne peux donc pas le vérifier !), mais je vois déjà un oubli, les guillemets simples encadrant myAdress : rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE (((TBL_CRM.Email_user) = '" & myAdress & "'))", cnx
A+ Isa
"JPM" a écrit dans le message de news:
Bonjour à tous,
Dans outlook, je cherche à créer un bouton qui recupère l'adresse email active et va comparer dans Access si cette adresse existe déjà. Si j'arrive bien a récupérer l'adresse via ce code :
Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.ActiveInspector.CurrentItem myAdress = myItem.SenderEmailAddress MsgBox (myAdress)
Je n'arrive pas a ouvrir access et faire mon recorset avec :
'connexion a la db Dim cnx As ADODB.Connection Set cnx = Server.CreateObject("ADODB.Connection") cnx.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:My DocumentsMonProfilcrm.mdb"
'Ouverture de la base de données cnx.Open
rst.MoveFirst
'recherche dans la DB
'Dim rst As New ADODB.Recordset Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE (((TBL_CRM.Email_user) = " & myAdress & "))", cnx
While Not (rst.EOF) MsgBox rst("Email_user") rst.MoveNext Wend
rst.Close cnx.Close
Bref, je galère :-( qq'un peu m'aider ?
Merci d'avance
JP
PS : j'y connais pratiquement rien à VB !
Bonjour !
Sous toute réserve (mon ADO est un peu roué, je ne peux donc pas le vérifier !), mais je vois déjà un oubli, les guillemets
simples encadrant myAdress :
rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE
(((TBL_CRM.Email_user) = '" & myAdress & "'))", cnx
A+
Isa
"JPM" <JPM@discussions.microsoft.com> a écrit dans le message de news:6E956B59-FD37-4676-B97D-6817369825D9@microsoft.com...
Bonjour à tous,
Dans outlook, je cherche à créer un bouton qui recupère l'adresse email
active et va comparer dans Access si cette adresse existe déjà. Si j'arrive
bien a récupérer l'adresse via ce code :
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector.CurrentItem
myAdress = myItem.SenderEmailAddress
MsgBox (myAdress)
Je n'arrive pas a ouvrir access et faire mon recorset avec :
'connexion a la db
Dim cnx As ADODB.Connection
Set cnx = Server.CreateObject("ADODB.Connection")
cnx.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:My
DocumentsMonProfilcrm.mdb"
'Ouverture de la base de données
cnx.Open
rst.MoveFirst
'recherche dans la DB
'Dim rst As New ADODB.Recordset
Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE
(((TBL_CRM.Email_user) = " & myAdress & "))", cnx
While Not (rst.EOF)
MsgBox rst("Email_user")
rst.MoveNext
Wend
Bonjour ! Sous toute réserve (mon ADO est un peu roué, je ne peux donc pas le vérifier !), mais je vois déjà un oubli, les guillemets simples encadrant myAdress : rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE (((TBL_CRM.Email_user) = '" & myAdress & "'))", cnx
A+ Isa
"JPM" a écrit dans le message de news:
Bonjour à tous,
Dans outlook, je cherche à créer un bouton qui recupère l'adresse email active et va comparer dans Access si cette adresse existe déjà. Si j'arrive bien a récupérer l'adresse via ce code :
Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.ActiveInspector.CurrentItem myAdress = myItem.SenderEmailAddress MsgBox (myAdress)
Je n'arrive pas a ouvrir access et faire mon recorset avec :
'connexion a la db Dim cnx As ADODB.Connection Set cnx = Server.CreateObject("ADODB.Connection") cnx.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:My DocumentsMonProfilcrm.mdb"
'Ouverture de la base de données cnx.Open
rst.MoveFirst
'recherche dans la DB
'Dim rst As New ADODB.Recordset Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE (((TBL_CRM.Email_user) = " & myAdress & "))", cnx
While Not (rst.EOF) MsgBox rst("Email_user") rst.MoveNext Wend
rst.Close cnx.Close
Bref, je galère :-( qq'un peu m'aider ?
Merci d'avance
JP
PS : j'y connais pratiquement rien à VB !
JPM
En fait, il bloque déjà sur la connexion à la BD.
Bonjour ! Sous toute réserve (mon ADO est un peu roué, je ne peux donc pas le vérifier !), mais je vois déjà un oubli, les guillemets simples encadrant myAdress : rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE (((TBL_CRM.Email_user) = '" & myAdress & "'))", cnx
A+ Isa
"JPM" a écrit dans le message de news:
Bonjour à tous,
Dans outlook, je cherche à créer un bouton qui recupère l'adresse email active et va comparer dans Access si cette adresse existe déjà. Si j'arrive bien a récupérer l'adresse via ce code :
Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.ActiveInspector.CurrentItem myAdress = myItem.SenderEmailAddress MsgBox (myAdress)
Je n'arrive pas a ouvrir access et faire mon recorset avec :
'connexion a la db Dim cnx As ADODB.Connection Set cnx = Server.CreateObject("ADODB.Connection") cnx.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:My DocumentsMonProfilcrm.mdb"
'Ouverture de la base de données cnx.Open
rst.MoveFirst
'recherche dans la DB
'Dim rst As New ADODB.Recordset Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE (((TBL_CRM.Email_user) = " & myAdress & "))", cnx
While Not (rst.EOF) MsgBox rst("Email_user") rst.MoveNext Wend
rst.Close cnx.Close
Bref, je galère :-( qq'un peu m'aider ?
Merci d'avance
JP
PS : j'y connais pratiquement rien à VB !
En fait, il bloque déjà sur la connexion à la BD.
Bonjour !
Sous toute réserve (mon ADO est un peu roué, je ne peux donc pas le vérifier !), mais je vois déjà un oubli, les guillemets
simples encadrant myAdress :
rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE
(((TBL_CRM.Email_user) = '" & myAdress & "'))", cnx
A+
Isa
"JPM" <JPM@discussions.microsoft.com> a écrit dans le message de news:6E956B59-FD37-4676-B97D-6817369825D9@microsoft.com...
Bonjour à tous,
Dans outlook, je cherche à créer un bouton qui recupère l'adresse email
active et va comparer dans Access si cette adresse existe déjà. Si j'arrive
bien a récupérer l'adresse via ce code :
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector.CurrentItem
myAdress = myItem.SenderEmailAddress
MsgBox (myAdress)
Je n'arrive pas a ouvrir access et faire mon recorset avec :
'connexion a la db
Dim cnx As ADODB.Connection
Set cnx = Server.CreateObject("ADODB.Connection")
cnx.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:My
DocumentsMonProfilcrm.mdb"
'Ouverture de la base de données
cnx.Open
rst.MoveFirst
'recherche dans la DB
'Dim rst As New ADODB.Recordset
Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE
(((TBL_CRM.Email_user) = " & myAdress & "))", cnx
While Not (rst.EOF)
MsgBox rst("Email_user")
rst.MoveNext
Wend
Bonjour ! Sous toute réserve (mon ADO est un peu roué, je ne peux donc pas le vérifier !), mais je vois déjà un oubli, les guillemets simples encadrant myAdress : rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE (((TBL_CRM.Email_user) = '" & myAdress & "'))", cnx
A+ Isa
"JPM" a écrit dans le message de news:
Bonjour à tous,
Dans outlook, je cherche à créer un bouton qui recupère l'adresse email active et va comparer dans Access si cette adresse existe déjà. Si j'arrive bien a récupérer l'adresse via ce code :
Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.ActiveInspector.CurrentItem myAdress = myItem.SenderEmailAddress MsgBox (myAdress)
Je n'arrive pas a ouvrir access et faire mon recorset avec :
'connexion a la db Dim cnx As ADODB.Connection Set cnx = Server.CreateObject("ADODB.Connection") cnx.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:My DocumentsMonProfilcrm.mdb"
'Ouverture de la base de données cnx.Open
rst.MoveFirst
'recherche dans la DB
'Dim rst As New ADODB.Recordset Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE (((TBL_CRM.Email_user) = " & myAdress & "))", cnx
While Not (rst.EOF) MsgBox rst("Email_user") rst.MoveNext Wend
rst.Close cnx.Close
Bref, je galère :-( qq'un peu m'aider ?
Merci d'avance
JP
PS : j'y connais pratiquement rien à VB !
Isabelle Prawitz
Au passage, tu as deux fois cnx.open ! Isa
"JPM" a écrit dans le message de news:
En fait, il bloque déjà sur la connexion à la BD.
Bonjour ! Sous toute réserve (mon ADO est un peu roué, je ne peux donc pas le vérifier !), mais je vois déjà un oubli, les guillemets
simples encadrant myAdress : rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE (((TBL_CRM.Email_user) = '" & myAdress & "'))", cnx
A+ Isa
"JPM" a écrit dans le message de news:
Bonjour à tous,
Dans outlook, je cherche à créer un bouton qui recupère l'adresse email active et va comparer dans Access si cette adresse existe déjà. Si j'arrive bien a récupérer l'adresse via ce code :
Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.ActiveInspector.CurrentItem myAdress = myItem.SenderEmailAddress MsgBox (myAdress)
Je n'arrive pas a ouvrir access et faire mon recorset avec :
'connexion a la db Dim cnx As ADODB.Connection Set cnx = Server.CreateObject("ADODB.Connection") cnx.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:My DocumentsMonProfilcrm.mdb"
'Ouverture de la base de données cnx.Open
rst.MoveFirst
'recherche dans la DB
'Dim rst As New ADODB.Recordset Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE (((TBL_CRM.Email_user) = " & myAdress & "))", cnx
While Not (rst.EOF) MsgBox rst("Email_user") rst.MoveNext Wend
rst.Close cnx.Close
Bref, je galère :-( qq'un peu m'aider ?
Merci d'avance
JP
PS : j'y connais pratiquement rien à VB !
Au passage, tu as deux fois cnx.open !
Isa
"JPM" <JPM@discussions.microsoft.com> a écrit dans le message de news:53D2BD68-19B0-4789-8D9D-863D03D7C9F3@microsoft.com...
En fait, il bloque déjà sur la connexion à la BD.
Bonjour !
Sous toute réserve (mon ADO est un peu roué, je ne peux donc pas le vérifier !), mais je vois déjà un oubli, les
guillemets
simples encadrant myAdress :
rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE
(((TBL_CRM.Email_user) = '" & myAdress & "'))", cnx
A+
Isa
"JPM" <JPM@discussions.microsoft.com> a écrit dans le message de
news:6E956B59-FD37-4676-B97D-6817369825D9@microsoft.com...
Bonjour à tous,
Dans outlook, je cherche à créer un bouton qui recupère l'adresse email
active et va comparer dans Access si cette adresse existe déjà. Si j'arrive
bien a récupérer l'adresse via ce code :
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector.CurrentItem
myAdress = myItem.SenderEmailAddress
MsgBox (myAdress)
Je n'arrive pas a ouvrir access et faire mon recorset avec :
'connexion a la db
Dim cnx As ADODB.Connection
Set cnx = Server.CreateObject("ADODB.Connection")
cnx.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:My
DocumentsMonProfilcrm.mdb"
'Ouverture de la base de données
cnx.Open
rst.MoveFirst
'recherche dans la DB
'Dim rst As New ADODB.Recordset
Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE
(((TBL_CRM.Email_user) = " & myAdress & "))", cnx
While Not (rst.EOF)
MsgBox rst("Email_user")
rst.MoveNext
Wend
Bonjour ! Sous toute réserve (mon ADO est un peu roué, je ne peux donc pas le vérifier !), mais je vois déjà un oubli, les guillemets
simples encadrant myAdress : rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE (((TBL_CRM.Email_user) = '" & myAdress & "'))", cnx
A+ Isa
"JPM" a écrit dans le message de news:
Bonjour à tous,
Dans outlook, je cherche à créer un bouton qui recupère l'adresse email active et va comparer dans Access si cette adresse existe déjà. Si j'arrive bien a récupérer l'adresse via ce code :
Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.ActiveInspector.CurrentItem myAdress = myItem.SenderEmailAddress MsgBox (myAdress)
Je n'arrive pas a ouvrir access et faire mon recorset avec :
'connexion a la db Dim cnx As ADODB.Connection Set cnx = Server.CreateObject("ADODB.Connection") cnx.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:My DocumentsMonProfilcrm.mdb"
'Ouverture de la base de données cnx.Open
rst.MoveFirst
'recherche dans la DB
'Dim rst As New ADODB.Recordset Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE (((TBL_CRM.Email_user) = " & myAdress & "))", cnx
While Not (rst.EOF) MsgBox rst("Email_user") rst.MoveNext Wend
rst.Close cnx.Close
Bref, je galère :-( qq'un peu m'aider ?
Merci d'avance
JP
PS : j'y connais pratiquement rien à VB !
JPM
Merci pour ta remarque sur le " ' " mais il n'a pas l'air d'aimer
En fait, il bloque déjà sur la connexion à la BD.
Bonjour ! Sous toute réserve (mon ADO est un peu roué, je ne peux donc pas le vérifier !), mais je vois déjà un oubli, les guillemets simples encadrant myAdress : rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE (((TBL_CRM.Email_user) = '" & myAdress & "'))", cnx
A+ Isa
Merci pour ta remarque sur le " ' " mais il n'a pas l'air d'aimer
En fait, il bloque déjà sur la connexion à la BD.
Bonjour !
Sous toute réserve (mon ADO est un peu roué, je ne peux donc pas le vérifier !), mais je vois déjà un oubli, les guillemets
simples encadrant myAdress :
rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE
(((TBL_CRM.Email_user) = '" & myAdress & "'))", cnx
Merci pour ta remarque sur le " ' " mais il n'a pas l'air d'aimer
En fait, il bloque déjà sur la connexion à la BD.
Bonjour ! Sous toute réserve (mon ADO est un peu roué, je ne peux donc pas le vérifier !), mais je vois déjà un oubli, les guillemets simples encadrant myAdress : rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE (((TBL_CRM.Email_user) = '" & myAdress & "'))", cnx
A+ Isa
Isabelle Prawitz
Le champ Email_user est bien une chaîne de caractères (ainsi que myAdress ?) ? Parce que si c'est le cas, les cotes sont indispensables dans une requête. Et pour les 2 cnx.Open ? Isa
"JPM" a écrit dans le message de news:
Merci pour ta remarque sur le " ' " mais il n'a pas l'air d'aimer
En fait, il bloque déjà sur la connexion à la BD.
Bonjour ! Sous toute réserve (mon ADO est un peu roué, je ne peux donc pas le vérifier !), mais je vois déjà un oubli, les guillemets
simples encadrant myAdress : rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE (((TBL_CRM.Email_user) = '" & myAdress & "'))", cnx
A+ Isa
Le champ Email_user est bien une chaîne de caractères (ainsi que myAdress ?) ?
Parce que si c'est le cas, les cotes sont indispensables dans une requête.
Et pour les 2 cnx.Open ?
Isa
"JPM" <JPM@discussions.microsoft.com> a écrit dans le message de news:FE76EDCB-208A-4A11-BC4F-939E4177516B@microsoft.com...
Merci pour ta remarque sur le " ' " mais il n'a pas l'air d'aimer
En fait, il bloque déjà sur la connexion à la BD.
Bonjour !
Sous toute réserve (mon ADO est un peu roué, je ne peux donc pas le vérifier !), mais je vois déjà un oubli, les
guillemets
simples encadrant myAdress :
rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE
(((TBL_CRM.Email_user) = '" & myAdress & "'))", cnx
Le champ Email_user est bien une chaîne de caractères (ainsi que myAdress ?) ? Parce que si c'est le cas, les cotes sont indispensables dans une requête. Et pour les 2 cnx.Open ? Isa
"JPM" a écrit dans le message de news:
Merci pour ta remarque sur le " ' " mais il n'a pas l'air d'aimer
En fait, il bloque déjà sur la connexion à la BD.
Bonjour ! Sous toute réserve (mon ADO est un peu roué, je ne peux donc pas le vérifier !), mais je vois déjà un oubli, les guillemets
simples encadrant myAdress : rst.Open "SELECT TBL_CRM.Email_user FROM TBL_CRM WHERE (((TBL_CRM.Email_user) = '" & myAdress & "'))", cnx