Discussion :

[Pascwal]

Erreur d'exécution 287
Erreur définie par l'application ou par l'objet

Ca ne marche pas

Je pense que c'est vraiment parce que je n'ai pas fait de compte outlook. Je n'ai aucun compte outlook et il m'est difficile d'en faire un avec mon email entreprise. Le code passe par outlook mais il n'est pas paramétré. Ce ne serait pas ça le probleme ?

Et on ne peut pas régler a la place d'outlook gmail ? Pour éviter toute appli d'un pc...

[Invité]

Bonsoir,
Si bien sur avec. Cdo. Le lien que je t'ai donné fonction parfaitement.

Utilises la fonction de test que je fournis également, tant que tu n'arrives pas à envoyer de mail ça ne serre à rien de l'intégrer dans ton code. Mais dans le lien il y a tout ce qu'il faut pour la mise au point!

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
Sub test()
 MailEnvoi "smtp.googlemail.com", True, "My.Mail@gmail.com", "Pasw", 465, 10, "My.Mail@gmail.com", "Vous.Mail@gmail.com", "Copy@gmail.com", "Suivi des modifications.", "tel truc a été modifile", ""
End Sub
Public Sub MailEnvoi(Serveur, Identify, User, PassWord, Port, Delay, Expediteur, Dest, DestEnCopy, Objet, Body, Pj)
' sub pour envoyer les mails
Dim msg
Dim Conf
Dim Config
Dim ess
Dim splitPj
Dim IsplitPj
Set msg = CreateObject("CDO.Message") 'pour la configuration du message
Set Conf = CreateObject("CDO.Configuration") '  pour la configuration de l'envoi
Dim strHTML
 
Set Config = Conf.Fields
 
' Configuration des parametres d'envoi
'(SMTP - Identification - SSL - Password - Nom Utilisateur - Adresse messagerie)
With Config
If Identify = True Then
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = User
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = PassWord
End If
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Port
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Serveur
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = Delay
    .Update
 
End With
 
 
'Configuration du message
'If E_mail.Sign.Value = Checked Then Convert ServeurFrm.SignTXT, ServeurFrm.Text1
 
With msg
    Set .Configuration = Conf
    .To = Dest
  .cc = DestEnCopy
    .FROM = Expediteur
    .Subject = Objet
'
 
    .HTMLBody = Body '"<p align=""center""><font face=""Verdana"" size=""1"" color=""#9224FF""><b><br><font face=""Comic Sans MS"" size=""5"" color=""#FF0000""></b><i>" & body & "</i></font> " 'E_mail.ZThtml.Text
            If Pj <> "" Then
        splitPj = Split(Pj & ";", ";")
 
        For IsplitPj = 0 To UBound(splitPj)
            If Trim("" & splitPj(IsplitPj)) <> "" Then
                .AddAttachment Trim("" & splitPj(IsplitPj))
            End If
        Next
 
    End If
    .Send 'envoi du message
 
End With
' reinitialisation des variables
Set msg = Nothing
Set Conf = Nothing
Set Config = Nothing
 
End Sub

[Pascwal]

Merci, j'ai donc créé un fichier excel, créé un bouton pour tester le code. Je rappelle que je suis un débutant dans ce domaine. Je ne fais qu'essayer de trouver une solution. Dans le code que tu me donnes là, j'ai tout pris, du sub test au dernier en sub.

Quels sont les variables à changer et ou ? Juste adresse mail et mot de passe ?

Disons que ça marche par la suite, toutes les personnes utilisant ce fichier devront changer le code et l'adapter a leur mail pour que ça marche ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With Config
If Identify = True Then
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "monadresse@gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mdp"
End If
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Port
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp.gmail.com
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = Delay
    .Update
 
End With

J'ai seulement modifié mon adresse, mon mdp, les 2 entre "". J'ai ajouté smtp.gmail.com et ca ne marche toujours pas. Objet requis, erreur 424 avec la ligne smtp... = smtp.gmail.com en jaune.

Que faire ?

[Invité]

Bonjour,
Dans le code il n'y a. Que les adresses mail et le PassWord à changer.

Chez moi par exemple nous utilisons un compte mail noreplay.

Donc tous le utilisateur utilises ce compte. Un fois configurer plus rien à modifier.

En revanche utilisateur n'a pas de notification de l'envoi.

A part mettre l'utilisateur en copie caché! Mais pour cela faut il interroger le Ldap si le Ldap est configurer pour répertoriés les utilisateurs.

[Pascwal]

Erreur sur erreur. J'ai décidé de revenir au code outlook et d'appeler le support de ma boite afin qu'ils me créent un compte outlook. Ca devrait marcher par la suite. Je ne suis pas assez calé en code pour continuer je pense, en tout cas pas pour le moment.

Je voulais vous remercier rdurupt et jijie pour m'avoir aidé, et essayé de décoincer, merci pour tout, le forum a besoin de personnes comme vous.

Pascal