Bonjour,
J'avais dans ma base access un bouton d'envoi d'email, qui recupere la valeur de certains champs, en utilisant la commande DoCmd.

Or, ça ne marche plus... j'ai miantenant une erreur :
"erreur d'execution 2287"
" 'Ma base' n'arrive pas à ouvrir une session de messagerie"


mon code est le suivant, et marchait tres bien jusque là!!!!


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 CMD_Email_Revendeur_associe_Click()
Dim textemsg1 As String
Dim textemsg2 As String
textemsg1 = "Bonjour," & vbCrLf & vbCrLf & "blabla1"
textemsg2 = "blabla2"
DoCmd.SendObject , , acFormatHTML, Nz([Revendeur_Email], ""), , , "titre du message", Nz(textemsg1, "") & _
vbCrLf & vbCrLf & Nz([Sommaire_Titre], "") & " " & Nz([Sommaire_Nom], "") & " " & Nz([Sommaire_Prenom], "") & _
vbCrLf & vbCrLf & "Adresse:" & _
vbCrLf & Nz([Sommaire_Adresse], "") & _
vbCrLf & Nz([Sommaire_CP], "") & " " & Nz([Sommaire_Ville], "") & _
vbCrLf & vbCrLf & "Téléphone:" & " " & Nz([Sommaire_tel], "") & _
vbCrLf & "Télécopie:" & " " & Nz([Sommaire_fax], "") & _
vbCrLf & vbCrLf & "Spécialité:" & " " & Nz([Sommaire_Specialite], "") & _
vbCrLf & "N° Adeli:" & " " & Nz([Sommaire_Num_ADELI], "") & _
vbCrLf & vbCrLf & "----------------------------Besoins du client-----------------------------" & _
vbCrLf & Nz([Revendeur_associe_commentaire], "") & _
vbCrLf & "--------------------------------------------------------------------------" & _
vbCrLf & vbCrLf & Nz(textemsg2, "") & vbCrLf, True
 
End Sub
Pire, je reprend mes ANCIENNES bases, et elles ne marchent plus non plus...
Ni sur le poste des utilsiateurs, ni sur mon poste qui m'a servit aux tests...

comment est-ce possible??