Discussion :

[novice06]

bonjour,
l'envoi de mail avec pièces jointes fonctionnent tant que l'on ecrit en brut le chemin des pièces jointes mais problème en bouclant sur les enregistrament d'une table !

ça bloque sur

Code :

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

r!Pieces

de

Code :

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

Tbl_PiecesJointes

où se trouve le chemin complet de chque pièces jointes

Code :

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

1
2
Erreur Exécution n° 438
Propriété ou Méthodes non gérées pour cet objet

alors que si je remplace

Code :

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

MonMessage.Attachments.Add r!Pieces

par

Code :

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

1
2
3
MonMessage.Attachments.Add "C:\test.text"
MonMessage.Attachments.Add "C:\tes2.txt"
MonMessage.Attachments.Add "D:\test.doc"

ça marche

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
21
22
23
Dim MonOutlook As Object
  Dim MonMessage As Object
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)

  
MonMessage.To = "personne1@societe.fr"
MonMessage.CC = "personne2@societe.fr;personne3@societe.fr"
MonMessage.BCC = "personne4@societe.fr;personne5@societe.fr"
  

Set r = Db.OpenRecordset("Tbl_PiecesJointes")
Do While Not r.EOF()
  MonMessage.Attachments.Add r!Pieces
  r.MoveNext
Loop

MonMessage.Subject = "Feuille de matériel"
    MonMessage.Body = "Bonjour, " & Chr(10) & "Veuillez trouvre ci-joint " & Me.Texte16 & Chr(10) & "Cordialement"   

MonMessage.Send

Set MonOutlook = Nothing

quelle serait la solution ?

merci
bonne journée

[novice06]

ok problème résolu

en affectant

Code :

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

r!Piece

à une variable string

Code :

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

1
2
3
4
5
6
7
8
9
dim PieceJointe As String
 
Set r = Db.OpenRecordset("Tbl_PiecesJointes")
r.MoveFirst
Do While Not r.EOF()
  PieceJointe= r!Pieces
  MonMessage.Attachments.Add PiecesJointes
  r.MoveNext
Loop

bonne journée