Discussion :

[riesseg]

Allo,

petite question:

j'envois un mail a l'aide 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
 
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
  .Update
End With
Set email = New CDO.Message
With email
  Set .Configuration = config
  .From = Expediteur & "@tde.ca"
  .To = colInds(Ind_MemName).Courriel
  .Subject = "Courriel d'alerte - " & Expediteur & " -"
  .TextBody = "Ceci est un mail automatique, merci de ne pas répondre" & Chr(13) & _
                  Ch [blablabla]
  .Send
 
End With

etant donné que chaque personne a son propre service smtp ( en tout cas les entreprises et compagnies qui utilisent mon appli), je met une adresse bidon par defaut ( smtp.defaut.com )
donc si je fais une verif sur SMTP, je peux facilement shinter le code si c'est la valeur par defaut.

Mais imaginons que le gars se trompe: smtp.jexistepas.com

le prog va alors aller planter lors de .Send car il trouve pas le serveur smtp.
Existe t'il un moyen de verifier si un serveur smtp existe ??

[jmfmarques]

Une gestion d'erreur parait suffisante, non ?

[riesseg]

c'est en effet une solution.
soit, une gestion d'erreur par on error goto...

Question a 3francs 6 sous:

Code :

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

1
2
3
4
5
6
7
 
 
.Send
On error goto ici
ici:
'action mettant une erreur d,envoie de mail
On error goto 0

correc comme syntaxe ?
me souviens pus ce que je voulais demandé exactement...

Edit:
si je met le On error goto apres .Send, ca marche pas...

[Catbull]

La syntaxe est correcte par contre le déclenchement de l'erreur aura toujours lieu.

On Error permet d'intercepter les éventuelles erreurs. Cette instruction est à placer en amont de ton code. En toute logique il faut donc écrire :

Code :

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

1
2
3
4
5
6
7
On Error Goto GestionDesErreurs
 
[Instructions]
Exit Function/Sub
 
GestionDesErreurs
[Instructions]

[riesseg]

ok Catbull...

je vais voir si c'est pasque mon ici: est mal placé

[Catbull]

ton ici:l est parfait, c'est ton On Error Goto que tu dois remonter.

Exemple :

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
Public Sub Main()
    Dim a As Long
    Dim b As Long
    Dim c As Long
 
    On Error Goto Erreur
 
    a = InputBox("Nombre a?", "Division")
    b = InputBox("Nombre a?", "Division")
 
    'Division entière
    c = a/b
 
    Exit Sub
 
Erreur:
    MsgBox Err.Description
End Sub

Avec ce code il est facile de déclencher des erreurs de deux types. Tu peux donc tester l'utilisation de On Error.

[riesseg]

c'est ok ^^

j'ai effectivement remonté mon on error goto.

Par contre, faut mettre le gestionDesErreurs: dans le Sub
(pitet j,avais mal compris, mais la premiere fois je l,avais mis hors...)


Problème réglé.

Merci bin

[SfJ5Rpw8]

etant donné que chaque personne a son propre service smtp ( en tout cas les entreprises et compagnies qui utilisent mon appli), je met une adresse bidon par defaut ( smtp.defaut.com )

? et ils utilisent tous Outlook par SMTP pour le mail ? ... tu n'as pas des clients équipés de LotusNote...

[riesseg]

mouais bbil...
mais si i la pas Outlook...

bon, j'ai un ptit pb avec mon error goto...

ma sub a une trouche comme celle ci:

[debut sub]
[super if]
[if]
[else if]
[else if]
[else if]courriel [then]
on error goto erreurmail
(tout le code de mon premier post)
[fin if]
(2)
[super else]
[else if]
[else if]
[else if]
[fin if]
[fin super if]
[fin sub]
(1)

Le pb, c'est que je ne sais pas ou mettre le erreurmail: pour pas que le code y passe quand y'a pas d'erreur...
si je le mets en (1), il la trouve pas
en (2) il y passe a chaque fois...

[jmfmarques]

Voilà la raison de ma préférence pour une autre philosophie qui consiste en :
1) focer une erreur, alors qu'elle n'est pas encore là :

Err = 1

(par exemple, mais on pourrait donner n'importe quelle autre valeur)
2) ensuite, une boucle "tant qu'il y a erreur" (et c'est vrai dés le départ, puisque l'on a donné une valeur à Err !)
donc :

Do while Err
'ici mes instructions précédées de on error resume next

loop

Ce qui me permet, en plus, de pouvoir intercepter le message d'erreur dans la boucle (son N°, par exemple ErrNumber) et de décider, au besoin, d'un Exit do.
Ce qui me permet également d'envoyer à l'utilisateur un message (que je décide moi-même en fonction de ErrNumber)
Celà me permet, au besoin également, de lancer une inputbox permettant à l'utilisateur d'ignorer l'erreur avec, pour conclusion, par exemple : si réponse = "celle-là" alors err. = 0 ou err.clear ! et bien sur : exit do !
Un petit clin d'oeil, au passage, à Bbil .....
Mais c'est une autre philosophie, pour sur !

[SfJ5Rpw8]

tu le met en fin de procédure par exemple en la précédant d'un exit sub

...
[super else]
[else if]
[else if]
[else if]
[fin if]
[fin super if]
Exit sub
:erreurmaiml
... ma gestion erreur..
[fin sub]

[jmfmarques]

Je souhaite que Riesseg "se penche" et "médite" également sur la philosophie esposée par mon message précédent

[riesseg]

j'ai achement preferé la methode de bbil :p
va savoir pourquoi ^^

pour la meditation sur ta philosphie esposée jfm:

si j,ai bien compris, on a un code qui ressemble a

Code :

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

1
2
3
4
5
6
7
8
9
Err = 1

Do while Err
on error resume next
If ... Then
blablabla
EndIf
loop

donc si on fait une erreur dans If, on fait un resume next...
ca fait quoi ?

Sinon, ce que j'en comprend aussi, c'est que si y'a une erreur, err va changer de valeur...
donc on verra au premier plantage pourquoi ca plante ( numero d'erreur et tout, c'est ca ??)
Ce qui permet une excellente gestion des erreurs...

C'est un truc comme ca ta philosophie jfm ?

[jmfmarques]

Ouais m"sieu ! Comme tu dis ! Un truc comme çà ! (et c'est en général fameux !)
ceci étant dit : ton on error resume next doit être placé immédiatement avant l'instruction pouvant générer l'erreur
Ce n'est là qu'une gestion de ta pensée, qui doit rester en parfaite communion avec tes mécanismes ! (ce n'est pas compliqué ! prends une feuille de papier et simules les mécanismes... ti verras !)

[riesseg]

cest a dire que pendant que je fais mon debug, faut placer le on error resume next a tatons ( si on sait pas exactement dou vient lerreur)...

cest vraiment pas con comme technique...
jva me graver ca dans un coin de ma ptite tete.

saloperie de quote qui marche pas....
fais chié !!

desole pour cette horreur a lire...