SQL-Server pour un formulaire Outlook 2007

Bonjour,

J'ai un projet à réaliser sur outlook 2007.
Le but étant de créer un formulaire ( déjà fait ) puis de le lier à une base de donnée SQL-server afin d'enregistrer les réponses, faire des stats etc.

J'ai trouvé pas mal de doc sur le net mais pas suffisamment pour me faire démarrer. Il s'agirait d'utiliser ADO pour la connexion, donc dans ce style là :

Code:

---

1 2 3 4 5 6 7 8 9 10

'Déclaration de la variable de connexion Dim cnx As ADODB.Connection Set cnx = New ADODB.Connection   'Définition de la chaîne de connexion cnx.ConnectionString = "UID=" & NomUtilisateur & ";PWD=" & MotDePasse & ";" & "DRIVER={SQL Server};Server=" & NomServeur & ";Database=" & NomBaseDeDonnées & ";"   'Ouverture de la base de données cnx.Open

---

Mais où écrire le code dans outlook, et surtout pouvez vous m'éclairer sur la façon de remplir ma BDD avec les champs du formulaire.

Merci beaucoup

ps : je n'ai pas su déterminer si mon problème était lié à outlook 2007 ou à SQL-Server.

Bonsoir,

En principe si je m'en souviens bien vous avez un onglet "developpeur" qui vous permet de créer un formulaire.

Vous avez un bouton Visual basic qui vous ouvre Microsoft Visual Basic for Applications. C'est dans cette partie qu'il faut insérer votre code.

Il faut ensuite utiliser ADO pour dialoguer avec votre base de données et utiliser les objets OUTLOOK. (Documentation msdn)

++

Merci beaucoup pour l'info je vais me renseigner.

Autre question, faut-il ajouter un bouton d'enregistrement dans le formulaire, qui déclenchera l'insertion avec la BDD, ou le simple fait de le remplir et d'envoyer déclenche aussi un évènement ?
Si oui lequel ?

ex : bouton envoyer -> Id = btnSend
Sub btnSend_onclick() handles btnSend.click ??

Merci

j'ai fais plusieurs tests mais sans succès...

Dans mon formulaire j'ai un bouton qui s'appelle btnTest.
Dans thisOutlookSession , j'ai rajouté :

Code:

---

1 2 3 4 5 6 7 8

AddHandler btnTest.Click, AddressOf test   Private Sub test()   MsgBox "test de message", vbExclamation   End Sub

---

ou bien

Code:

---

1 2 3 4 5 6 7

Private Sub btnTest_click ()   MsgBox "test de message", vbExclamation   End Sub

---

Et ca ne fonctionne pas. Ni à la création du formulaire, ni à la réception du formulaire.L'évènement n'est pas déclenché

ps : j'ai aussi essayé Private Sub btnTest_Onclick ()

Merci pour votre aide