Envoyer un email

**issam16** · 27/07/2006, 11h16

salut tout le monde,
j'essaye d'envoyer un email, j'ai utiliser le code sur le faq, à l'exécution je reçois une erreur qui dis "projet ou bibliotheque introuvable" et je sais pas de quoi il s'agit??
merci d'avance.

**milia** · 27/07/2006, 11h18

Bonjour,
C'est surement la référence à ajouter, dans Outils/reférences et la tu rajoutes celle de Outlook peut-être. Mais normalement les tutoriels l'explique.
Bonne chance

**issam16** · 27/07/2006, 11h21

Envoyé par milia

Bonjour,
C'est surement la référence à ajouter, dans Outils/reférences et la tu rajoutes celle de Outlook peut-être. Mais normalement les tutoriels l'explique.
Bonne chance

oui j'ai deja ajouter la reference

**milia** · 27/07/2006, 11h23

Dans ce cas là, est-ce que lorsque tu fais débogage, il te surligne une ligne? si oui laquelle

**issam16** · 27/07/2006, 11h28

Envoyé par milia

Dans ce cas là, est-ce que lorsque tu fais débogage, il te surligne une ligne? si oui laquelle

j'ai pris la fonction dans le faq tel qu'elle est.
il surligne la premiere ligne de la procedure c-à-d:

Code :

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

1
2
Public Sub EnvoyerEmail(Recipient As String, Subject As String, Body As String, Optional Attach As Variant)

**issam16** · 27/07/2006, 11h44

je sais pas ce que j'ai fais exactement mais j'ai reconfigurer mon compte outlook et maintenant ça marche

**milia** · 27/07/2006, 11h49

Etant donné que je ne connais pas tout le code, et je ne connais pas non plus le type de tes variables.
Je te propose une autre solution, si c'est pour envoyer un mail à un seule personne, dont tu as l'adresse dans un formulaire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub cmdMailTo_Click()
On Error GoTo ERREUR
    If [email] = "" Or IsNull([email]) Then Exit Sub
    DoCmd.SendObject acSendNoObject, , , [email]
HANDLER:
    Exit Sub
ERREUR:
    MsgBox Error$
    Resume HANDLER
End Sub