Discussion :

[franckb74]

Bonjour,

J'aimerai pouvoir attaché à un email déclenché depuis ACCESS plusieurs fichiers liés à un enregistrement. est-ce possible ?

Aperçu champs et liaisons table : voir fichier joint "LisaisonTable"

Voici le code qui me permet d'ajouter, supprimer, ouvrir ou renommer le fichier joint :
Ces fichiers joints peuvent avoir toutes les extensions possibles : jpg, pdf, docx, etc...

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
'**********************************************************************************
'**********************   fichier joint pour Compte-rendu   ***********************
'**********************************************************************************
 
Function AjouterRemplacerCR()
    Dim CheminEtFichierBase
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Choix du fichier"
        .ButtonName = "OK"
        .InitialFileName = "F:\*.*"
        .Filters.Clear
        .Filters.Add "Tout", "*.*"
        .AllowMultiSelect = False
 
        If .Show = True Then
           CheminEtFichierBase = .SelectedItems(1)
        Else
           Exit Function
        End If
    End With
 
    FileCopy CheminEtFichierBase, DLookup("CheminLien", "R_CheminLien") & "\FICHIER_LIE_CR\" & GestionFichier.GetFileName(CheminEtFichierBase)
    'Forms![ReferenceModif]![F_FichierLieArticle]![FichierJoint] = GestionFichier.GetFileName(CheminEtFichierBase)
    Forms![CR]![Fichier lié historique]![FichierJoint] = GestionFichier.GetFileName(CheminEtFichierBase)
End Function
 
Function SupprimerCR()
    On Error Resume Next
    If IsNull(Forms![CR]![Fichier lié historique]![FichierJoint]) Then Exit Function
    If MsgBox("Etes-vous certain de vouloir supprimer le fichier joint ?", vbCritical + vbYesNoCancel) <> vbYes Then Exit Function
    Kill DLookup("CheminLien", "R_CheminLien") & "\FICHIER_LIE_CR\" & Forms![CR]![Fichier lié historique]![FichierJoint]
    Forms![CR]![Fichier lié historique].Form.Recordset.Delete
End Function
 
Function OuvrirCR()
    On Error Resume Next
    If IsNull(Forms![CR]![Fichier lié historique]![FichierJoint]) Or (Forms![CR]![Fichier lié historique]![FichierJoint] = "") Then Exit Function
    ExtensionFichier = Right(Forms![CR]![Fichier lié historique]![FichierJoint], 3) ' Attention il ne prend en concidération que les 3 derniers caractère de l'extention du fichier (ex : JPEG, il prend que PEG)
    If ExtensionFichier = "jpg" Or _
       ExtensionFichier = "png" Or _
       ExtensionFichier = "peg" Or _
       ExtensionFichier = "gif" Then ' le trait Underscore permet d'écrire une longue instruction sur plusieurs lignes
       Shell ("rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & DLookup("CheminLien", "R_CheminLien") & "\FICHIER_LIE_CR\" & Forms![CR]![Fichier lié historique]![FichierJoint])
    Else
       Application.FollowHyperlink DLookup("CheminLien", "R_CheminLien") & "\FICHIER_LIE_CR\" & Forms![CR]![Fichier lié historique]![FichierJoint]
    End If
End Function
 
Function RenommerCR()
    NouveauNom = InputBox("Nouveau nom :", "Renommer", Forms![CR]![Fichier lié historique]![FichierJoint])
    If NouveauNom = "" Then Exit Function
    If NouveauNom = Forms![CR]![Fichier lié historique]![FichierJoint] Then Exit Function
    GestionFichier.MoveFile DLookup("CheminLien", "R_CheminLien") & "\FICHIER_LIE_CR\" & Forms![CR]![Fichier lié historique]![FichierJoint], DLookup("CheminLien", "R_CheminLien") & "\FICHIERS_LIE_CR\" & NouveauNom
    Forms![CR]![Fichier lié historique]![FichierJoint] = NouveauNom
End Function

En vous remerciant pour votre aide,
Franck