Discussion :

[Ericfa]

Bonjour à vous,

Je n'arrive pas à résoudre l'erreur suivante donnée par le "débogueur"

sur l'instruction : cdo_msg.Send.

Voici le programme :

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
Public Sub EnvoiMail_Click()
    'Pour prospection, Création et Envoie par mail du document PDF créé par l'autre sous-programme
    'Avant d'envoyer des mails, il faut autoriser votre envoie sur gmail: <a href="https://www.google.com/settings/security/lesssecureapps" target="_blank">https://www.google.com/settings/security/lesssecureapps</a> ; Cochez la case "Activer".
    'Ajout référence  Microsoft CDO WINDOWS FOR 2000 avec Outils > Références dans l'éditeur.
    Dim cdo_msg As New CDO.Message
 
    Dim adresse1
    adresse1 = Range("L6").Value
 
    Dim strbody As String
    strbody = "Bonjour à vous," & vbNewLine & vbNewLine & _
    "Voici les résultats du diagnostic que vous avez rempli." & vbNewLine & _
    "Je me tiens à votre disposition pour en discuter si vous le souhaitez." & vbNewLine & _
    "A très vite et que la Confiance soit avec vous..." & vbNewLine & vbNewLine & _
    "Eric" & vbNewLine & _
    "www.blog-de-la-confiance-en-soi.com"
 
    'configuration message
    cdo_msg.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
    cdo_msg.Configuration.Fields(cdoSMTPConnectionTimeout) = 60
    cdo_msg.Configuration.Fields(cdoSendUsingMethod) = cdoSendUsingPort
    cdo_msg.Configuration.Fields(cdoSMTPServerPort) = 465
    cdo_msg.Configuration.Fields(cdoSMTPAuthenticate) = cdoBasic
    cdo_msg.Configuration.Fields(cdoSMTPUseSSL) = True
    cdo_msg.Configuration.Fields(cdoSendUserName) = "xxx@gmail.com"
    cdo_msg.Configuration.Fields(cdoSendPassword) = "yyyyy"
    cdo_msg.Configuration.Fields.Update
 
    'remplissage et envoi message
    cdo_msg.To = adresse1
    cdo_msg.From = "xxx@gmail.com"
    cdo_msg.Subject = "Votre Bilan Confiance envoyé par le Blog de la Confiance en Soi"
    cdo_msg.TextBody = strbody
    cdo_msg.AddAttachment ("C:\Users\SYLVIE\Dropbox\_Sauvegarde Disque dur\Avec Sylvie\_Livres & Jeux de Cartes\_Auto Diagnostic Confiance en Soi\Autodiagnostic Confiance.pdf")
    cdo_msg.Send
 
    MsgBox "Votre message a bien été envoyé !"
 
    'libération objet message
    Set cdo_msg = Nothing
_______________________________________________________________________
End Sub
Public Sub PDF_Click()
        Application.ActivePrinter = "PDF Architect 7 sur Ne00:"
        ActiveWindow.SelectedSheets.PrintOut From:=1, Copies:=1, _
        ActivePrinter:="PDF Architect 7 sur Ne00:", Collate:=True
 
        MsgBox "Votre fichier a bien été enregistré !"
End Sub

Merci d'avance

[EricDgn]

Bonjour,

Il est possible que le problème vienne de l'appel d'un fichier sur Dropbox.
Tester le code en supprimant momentanément la ligne 34.

Cordialement.

[Ericfa]

Bonjour,
Merci de la proposition.
Je viens d'essayer et cela ne marche toujours pas !
A très vite