Bonjour à tous

j'ai un problème avec la méthode CDO et je ne comprends pas, je l'utilise au boulot, çà fonctionne, et chez moi çà plante.

l'erreur : Pièce jointe 39413

j'ai bien coché : Microsoft CDO for exange 2000 Library

voici mon 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
Public Sub Send_mail(Obj As String, txt As String, aqui As String, dequi As String)
    Dim CdoMessage As CDO.Message
    Set CdoMessage = New CDO.Message
    With CdoMessage
        .Subject = Obj
        .From = dequi
        .To = aqui
        .CC = ""
        .BCC = ""
        .TextBody = txt
        .Send
    End With
    Set CdoMessage = Nothing
End Sub
Malheureusement , je ne retourne pas au boulot avant 2009

Merci à vous pour vos réponse

Cordialement