Discussion :

[Adrien972]

Bonjour à tous,

Je souhaiterais qu'Access envoie par mail un fichier (Zip en l'occurence), via la messagerie par défaut et ce quelque qu'elle soit.
La fonction SendObject ne permet pas l'envoi de fichier.
J'ai vu en recherche sur le forum du code très complexe pour par exemple Lotus Notes.
Existe t'il une solution simple pour tout logiciel de messagerie.

[helas]

pour Outlook j'utilise ceci, largement inspiré de http://www.developpez.net/forums/f55...ffice/outlook/

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
 
Sub EnvoiMail(mto As String, mcc As String, sujet As String, fichierjoint As String, message As String)
    On Error GoTo erreur
    Dim s() As String, i As Long
    Dim MonAppli As Outlook.application
    Dim MonMail As Outlook.MailItem
    Dim MonFichierJoint As Outlook.Attachments
 
    Set MonAppli = Outlook.application
    Set MonMail = MonAppli.CreateItem(olMailItem) 
    Set MonFichierJoint = MonMail.Attachments
 
    s = Split(fichierjoint, ";")
    For i = 0 To UBound(s)
        MonFichierJoint.Add s(i), olByValue, 1, ""
    Next i
    MonMail.BodyFormat = olFormatHTML
    MonMail.Subject = sujet
    MonMail.Body = message
    MonMail.To = mto
    MonMail.cc = mcc
 
    MonMail.Display
    MonMail.Send
 
    Set MonAppli = Nothing
    Set MonMail = Nothing
    Set MonFichierJoint = Nothing
    Exit Sub
erreur:
End Sub

mto = adresses
mcc = adresses cachées
fichierjoint = "c:\dossier1\fichier1.xls;c:\dossier2\fichier2.xls" pour l'exemple

Ne pas oublier les références Microsoft Outlook ...

[Adrien972]

Bonjour

Tout d'abord merci beaucoup pour ta réponse. J'ai testé c'est nickel.

Mon souci est que l'application Access est utilisée par de nombreuses personnes ayant des messageries variables selon le choix de l'utilisateur (choix qui m'est inconnu lorsque j'installe l'application).

La question est donc : Où trouver dans Windows la messagerie définie par défaut par l'utilisateur et ensuite utiliser cette information pour envoyer le mail.