Discussion :

[kanak09]

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 :

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

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.

[mikedavem]

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)

++

[kanak09]

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

[kanak09]

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 :

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

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 :

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

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