Discussion :

[Guranga]

Bonjour à tous,

j'ai découvert ce forum il y a quelques semaines, depuis que je bosse sur une base de données (pour un stage ^^). Jusque là, il m'a aidé à résoudre pas mal de problèmes, sauf celui dont je vais vous parler !

J'ai un formulaire (de déclaration d'accidents de travail) triant donc ces déclaration par un N° (entré par l'utilisateur).
Je souhaiterais que dans le code que j'ai mis pour envoyer un mail, je puisse rajouter dans le texte le numéro de la déclaration actuellement affichée. Voici le code utilisé :

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
Public Sub UseOutlook()
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)
  MonMessage.To = "Z Stagiaire RH"
  MonMessage.Subject = "Nouvelle Déclaration d'accident de travail"
  MonMessage.Body = "Une nouvelle déclaration d'accident du travail a été enregistrée dans la base de données. Veuillez vous référer à ce numéro"
 
 
 
 
  MonMessage.Send
  'MsgBox mail
  Set MonOutlook = Nothing
End Sub

Le code serait donc à inscrire juste après "veuillez vous référer à ce numéro" .. mais sous quelle forme ^^, là est ma question !

Je vous remercie par avance

[argyronet]

Bonjour,

Humm, c'est pas bien clair tout ça
Où pioche tu le N°, dans un champ ?
Si oui eh bien met un paramètre dans ta procédure :

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
Public Sub UseOutlook(ByVal LeNumero As Variant)
Dim oOutlook As Object
Dim olkMessage As Object

  Set oOutlook = CreateObject("Outlook.Application")
  Set olkMessage = oOutlook.CreateItem(0)

  olkMessage.To = "Z Stagiaire RH"
  olkMessage.Subject = "Nouvelle Déclaration d'accident de travail"
  olkMessage.Body = "Une nouvelle déclaration d'accident du travail a été " & _
  "enregistrée dans la base de données." & vbCrLf & vbCrLf & _
  "Veuillez vous référer à ce numéro " & LeNumero
  
  olkMessage.Send
  Set olkMessage = Nothing
  Set oOutlook = Nothing
End Sub

Et appelle la comme suit :

Code :

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

1
2
3
Private Sub cmdEnvoyerParMail()
    UseOutlook Me!NoReference
End Sub

Argy

[Guranga]

Merci bien, c'est exactement ce que je voulais

Bonne journée !