Discussion :

[jclm230759]

bonjour à tous,

Je suis entrain de parcourir les forums mais je ne trouve pas de discution qui parle de mon problème.

J'ai un formulaire qui me permets d'effectuer des commandes.
lorsque j'ai rempli la commande je "click "sur mon bouton "valider", ce qui enregistre la commande.
Je souhaiterais en même temps pourvoir envoyer un mail au responsable pour lui faire savoir q'une commande vient d'être encodée. Ceci via Lotus.
Pourriez vous m'aider

Merci d'avance

Jclm

[jclm230759]

Bonjour

J'ai pratiquement résolu le problème.

Il me reste une petite erreur que je n'arrive pas à trouver
J'ai toujours une erreur 424 "objet requis" et je n'arrive pass à voir le problème

Voici mon code

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 Btn_envoyer_Click()
Dim Objet1 As Variant
    Dim Message1 As Variant
    Dim VarE1 As Variant
    Dim user As Variant
    Dim stDocName1 As Variant
    Dim VarE2 As Variant
    
 user = Me.CmdEmpl_login
    
           
    VarE1 = DLookup("[Emp_Messagerie1]", "T_Employe", "[Emp_ID]=" & VarE2.Value)    
VarE2 = DLookup("[Emp_ID]", "T_Employe", "[Emp_Chef]=" & Me.CmdEmpl_login.Value)
    
    Recipient = "VarE1"
    ccRecipient = ""
    bccRecipient = ""
    Subject = "Une commande vous a été envoyé par " + user + " ."
    
    BodyText = "Veuillez consulter Bov_achat pour donner votre accord"

Pourriez vous m'aider

Merci

Jclm

[Robert1957]

Bonjour jclm230759,

Dans ton code la ligne 12 demande la valeur de la ligne 13. Inverse ces lignes et ça devrait fonctionner.

Bonne journée