Discussion :

[clickandgo]

Bonjour à tous,

1/ Je teste en ce moment ce code permettant d'envoyer ver outlook depuis Access, or, lorsque je fais un call sur la fonction il me dit "Argument non facultatif" , pourquoi ?

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
Public Sub EnvoyerMailOutlook(Recipient As String, Subject As String, Body As String, Optional Attach As Variant)
 
 Dim I As Integer
    Dim oEmail As Outlook.MailItem
    Dim appOutLook As Outlook.Application
 
    ' Créer un nouvel item mail
 
    Set appOutLook = New Outlook.Application
    Set oEmail = appOutLook.CreateItem(olMailItem)
 
    ' Les paramètres
 
    oEmail.To = Me.Destinataire
    oEmail.Subject = Me.Objet
    oEmail.Body = Me.Body
 
    If Not IsMissing(Attach) Then
 
       If TypeName(Attach) = "String" Then
 
             ' S'il y a des pièces jointes
            oEmail.Attachments.Add Attach
 
        Else
 
            For I = 0 To UBound(Attach) - 1
            oEmail.Attachments.Add Attach(I)
 
            Next
 
        End If
 
    End If
 
    ' Envoie le message
    oEmail.Send
 
    ' Détruit les références aux objets
    Set oEmail = Nothing
 
    Set appOutLook = Nothing
 
End Sub

2/ j'ai fait une simple table mais je voudrais qu'elle puisse contenir la référence aux pièces jointes à envoyer en mail, y a t'il un tuto pour cela ?

Merci d'avance

[Dolphy35]

Bonsoir,

Si le Call est à l'origine du problème, tu peux nous montrer cette ligne !

Recipient, Subject et Body ne sont pas facultatif il faut donc passer une valeur à ces paramètres

Dolphy

[clickandgo]

Merci pour ta réponse,

Et bien ces paramètres sont renseignés puisque cela reprend les champs du formulaire ...

Quant à mon Call, si je déclare les champs dans les parenthèses il bloque en disant : "utilisation incorrecte de Me".

Quoi faire ?

Merci

[Dolphy35]

re,

Désolé mais on a pas encore créer un API "Boule de cristal", donc montre nous la ligne qui te pose problème et on pourra peut être t'aider.

[tee_grandbois]

Bonsoir,
Je suppose que l'appel de ton sub à partir de ton formulaire ressemble à cela:

Code :

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

Call EnvoyerMailOutlook(Me.Recipient , Me.Subject, Me.Body, Me.Attach)

La syntaxe est correcte car Me fait référence à ton formulaire courant.
Par contre dans ton Public Sub tu dois enlever les Me. devant tes variables car ton Sub ne les connait pas, il utilise celles que tu lui as donné en paramètre c'est à dire :
Recipient, Subject , Body, Attach et c'est ceux-là que tu dois utiliser :

Code :

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

1
2
3
    oEmail.To = Recipient
    oEmail.Subject = Subject
    oEmail.Body = Body

[clickandgo]

Je vous remercie tous les deux, ça marche.