Discussion :

[juju1988]

Bonjour,

J'ai une procédure derrière un bouton, si détection d'erreur, j'ai mis en place une gestion d'erreur qui appelle une procédure.
Cette procédure récupère :
- le nom de la procédure où il y a erreur
- le nom du fichier
- le nom d'un numéro de lot
- le code erreur Excel
- le descriptif du code Erreur

Cette procédure avec tous ces paramètres permet de m'envoyer un mail pour me prévenir de l'erreur.
J'aimerai savoir comment procéder pour écrire cette procédure d'envoi de mails...

J'ai cherché sur Internet cependant il y a à chaque fois une précision logistique : Outlook, Lotus...

Est ce possible sans passer par le logiciel à proprement parler ... ? De quelle manière?

Merci d'avance

[juju1988]

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

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
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