[XL-2003] Envoyer mail depuis Excel

Bon j'ai trouvé toute seule sur ce site si ça peut servir à certains :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function EnvoiMailErreurValidation(nomProc As String, wbkActif As String, numLot As String, numErr As Integer, descriptionErr As String)
 
Dim config As CDO.Configuration
Dim email As CDO.Message
 
Set config = New CDO.Configuration
With config.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CDO.cdoSendUsingPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.serveur.com"
    .Update
End With
 
Set email = New CDO.Message
With email
    Set .Configuration = config
    .From = "adresse mail"
    .To = "adresse mail"
    .Subject = "Erreur Validation"
    .TextBody = "Attention, erreur détectée sur la procédure/fonction " & nomProc & " du fichier " & wbkActif & " pour le numéro de lot " & numLot & ". Le numéro d'erreur est le " & numErr & " Description : " & descriptionErr
    .Send
End With
 
End Function

http://vb.developpez.com/faq/?page=Reseau#email

Merci au monsieur de la procédure