Bonjour,
Voici mon code VB6

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
Set ObjSendMail = CreateObject("CDO.Message")
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "send.one.com"
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True  'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "rudy@rudyv.be"
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mon mot de passe"
ObjSendMail.Configuration.Fields.Update
ObjSendMail.From = "rudy@rudyv.be"
ObjSendMail.To = "rudy@rudyv.net"
ObjSendMail.Subject = Prgm(Index).Caption & " : " & Userid.Text
ObjSendMail.TextBody = ObjSendMail.Subject
 
On Error Resume Next 'Je voudrais qu'une erreur n'empêche pas le programme de continuer, mais j'ai quand même un message d'erreur 80040213
ObjSendMail.Send
Set ObjSendMail = Nothing
On Error GoTo 0
Ce qui est curieux est que plus de 200 utilisateurs ont ce programme qui fonctionne sans problème, sauf pour l'un d'entre eux; je suppose que "quelque chose" dans la configuration de cet utilisateur en particulier n'est pas correct mais ne sais où chercher.
Merci d'avance pour votre aide.