Discussion :

[clickandgo]

Bonjour à tous,

Access me dit "utilisation incorrecte de null" à l'éxécution de ce code :

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
Public Sub EnvoyerMailOutlook(Destinataires As String, Objet As String, TxtMessage As String, CC As String, Bcc As String, Optional Attach As Variant)
 
 
 Dim i As Integer
 
        Dim appOutLook As New Outlook.Application
        Dim oEmail As Outlook.MailItem
 
 
    ' Créer un nouvel item mail
 
    Set appOutLook = New Outlook.Application
    Set oEmail = appOutLook.CreateItem(olMailItem)
 
    ' Les paramètres
 
    oEmail.To = Destinataires
    oEmail.Subject = Objet
    oEmail.HTMLBody = TxtMessage
    oEmail.CC = CC & ""
    oEmail.Bcc = Bcc & ""
 
 
    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
 
    ' Montre le message
    oEmail.Display
 
    ' Détruit les références aux objets
    Set oEmail = Nothing
 
    Set appOutLook = Nothing
 
End Sub

Je veux justement qu'il m'accepte les valeurs nulles des champs "Cc" et "Bcc" comment faire ?

Merci

[zoom61]

Salut,

Pourquoi ne pas mettre tout simplement :

Code :

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

1
2
    if Not IsNull(oEmail.CC) then oEmail.CC  = CC
    if Not IsNull(oEmail.Bcc) then oEmail.Bcc = Bcc

@+.

[argyronet]

Bonjour,

Les champs CC et BCC peuvent très bien rester vides !
En plus, tu passes des String à ta procédure, donc ton erreur est en amont.

Ca devrait passer avec cette méthode :

Code :

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

1
2
3
4
5
6
7
    strDestinataires = Me!txtDestinataires
    strObjet = Me!txtObjet
    strTxtMessage = Me!TxtMessage
    strCC = Nz(Me!txtCC, "")
    strBcc = Nz(Me!txtBCC, "")
    vntAttach = m_vntaFichiersJoints
    Call EnvoyerMailOutlook(strDestinataires, strObjet, strTxtMessage, strCC, strBcc, vntAttach)

Et puis une petite gestion d'erreurs serait la bienvenue dans ta procédure (qui devrait être une fonction en fait)...

Argy

[clickandgo]

Merci pour ta réponse mais l'erreur apparaît toujours en utilisant NZ()

[zoom61]

Je pense que tu devrais peut-être revoir l'appel de la fonction :

Code :

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

Call EnvoyerMailOutlook(Destinataires, Objet, TxtMessage, CC, Bcc)

@+.

[argyronet]

Modifie en parallèle ton code comme suit et fais-nous un retour :

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
 
Private Sub cmdEnvoyer_Click()
'[....]
Dim strMsgErreur                                       As String
 
 
    If EnvoyerMailOutlook(strMsgErreur, Destinataires, Objet, TxtMessage, CC, Bcc) = False Then
        MsgBox "Ooops la boulette : " & vbCrLf & strMsgErreur, vbExclamation
    Else
        MsgBox "C'est parti !", vbInformation
    End If
End Sub
 
Public Function EnvoyerMailOutlook(MsgErreur As String, Destinataires As String, Objet As String, TxtMessage As String, CC As String, Bcc As String, Optional Attach As Variant) As Boolean
'Dim...
'[....]
 
    On Error GoTo ErreurEnvoyerMailOutlook
    'Code
    '[....]
    EnvoyerMailOutlook = True
    On Error GoTo 0
SortirEnvoyerMailOutlook:
    Exit Function
 
ErreurEnvoyerMailOutlook:
    EnvoyerMailOutlook = False
    MsgErreur = "(" & err.Number & ") " & err.Description
    Resume SortirEnvoyerMailOutlook
End Function

Argy