Discussion :

[ioco34]

Bonjour, j'ai des conditions pour envoyer une pièce jointe différente dans un mail suivant une valeur qui marche très bien.

Code :

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

1
2
3
4
5
If Me.TRUC = "MACHIN" Then
  Varpj = "C:\fichier.pdf"
 
With OutMail
 .Attachments.Add Varpj

Mais j'aimerais, lorsque qu'il n'y a pas de pièce jointe,, désactiver le .Attachments.Add Varpj
Merci d'avance.

[marot_r]

Bonjour.

Sauf si j'ai mal compris ta question, il suffit de faire quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
dim Varpj as string: Varpj=""
 
If Me.TRUC = "MACHIN" Then
  Varpj = "C:\fichier.pdf"
end if
 
if Varpj<>"" then
 
  With OutMail
       .Attachments.Add Varpj
  end with
 
end if

Il ne fera l'ajout que si tu as renseigné With Varpj.

A+

[ioco34]

Merci beaucoup, ça fonctionne.
Cordialement.