Erreur en utilisant l'objet CDO pour envoi mail

[adinnn]

Bonjour à tous,

j'ai une petite application qui me cause problème. Lorsque j'appui sur le bouton "send mail" l'erreur "La valeur de configuration "send using" est non valide" survient.

Est-ce que celà pourrait être causé par une librairie non disponible sur mon PC?

Si oui, comment me le procurer et l'installer?

fichier joint pour plus d'info

Merci de me venir en aide.

***Note : Outlook n'est pas installé sur l'ordinateur car j'ai seulement "office Home student 2013".

 

[Herdet]

Re : Erreur en utilisant l'objet CDO pour envoi mail

Bonjour,
Il y a des espaces en trop dans le code
... configuration/sen dusing") = 2
...configuration/smt pserver") = " smtp.live.com"
...configuration/aut henticate") = 1

Ce lien pourrait t'aider pour l'envoi d'Email en CDO
VB6 - VBA Envoi mail avec l'objet CDO
Cordialement

 

[adinnn]

Re : Erreur en utilisant l'objet CDO pour envoi mail

Bonjour,

merci pour le lien. J'ai essayé avec l'autre code et j'ai l'erreur suivante.

"Le transport a échoué dans sa connexion au serveur"

Des idées?

Merci.

fichier joint

 

[adinnn]

Re : Erreur en utilisant l'objet CDO pour envoi mail

J'ai changé le port pour 465 et c'est OK! Merci

 

[Herdet]

Re : Erreur en utilisant l'objet CDO pour envoi mail

J'ai changé le port pour 465 et c'est OK! Merci

C'est super.
J'ai fais quelques adaptations pour faire un test entre mes adresses Email, ça marche bien sans changer le port mais avec les bons paramètres de serveur.
Petite remarque sur le code :
généralement on appelle une UserForm dans le Open puis on l'initialise à son ouverture dans UserForm_Initialize

Private Sub Workbook_Open()
   UserForm2.Show
End Sub

Private Sub UserForm_Initialize()
   Dim i As Long, DL As Long
   Label11 = Date
   Worksheets("users").Activate
   DL = Cells(65536, 1).End(xlUp).Row
   For i = 2 To DL
      ComboBox1.AddItem (Cells(i, 1).Value)
   Next i
End Sub

A+

 

[Staple1600]

Re : Erreur en utilisant l'objet CDO pour envoi mail

Bonjour à tous

Une autre écriture (sans la boucle)

Private Sub UserForm_Initialize()
Dim DL As Long
Label11 = Date
Worksheets("users").Activate
DL = Cells(65536, 1).End(xlUp).Row
ComboBox1.List = Cells(2, 1).Resize(DL - 1).Value
End Sub

PS: En espérant qu'il n'y ait pas de cellules vides dans la colonne A 😉

 

[adinnn]

Re : Erreur en utilisant l'objet CDO pour envoi mail

Merci à vous, j'en prend bonne note

Et si je veux confirmer que le mail a bien été envoyé avec message box.

Ou dois-je le faire?

Merci,

 

[Herdet]

Re : Erreur en utilisant l'objet CDO pour envoi mail

Merci à vous, j'en prend bonne note
Et si je veux confirmer que le mail est ok avec message box.
Ou dois-je le faire?

Merci,

Juste avant le Send

        On Error GoTo Erreur_envoi
        .Send
        On Error GoTo 0
    End With
    
    'Libère les ressources
    Set mMessage = Nothing
    Set mConfig = Nothing
    Set mChps = Nothing
    MsgBox "Le message à été envoyé."
    Exit Sub
    
Erreur_envoi:
   On Error GoTo 0
    'Libère les ressources
    Set mMessage = Nothing
    Set mConfig = Nothing
    Set mChps = Nothing
    MsgBox "Le message n'a pas pu être envoyé." & vbLf & "Veuillez vérifier les paramètres"
End If

 

[Herdet]

Re : Erreur en utilisant l'objet CDO pour envoi mail

Le n° d'erreur Err.Number n'est pas détecté donc solution à creuser.

Un lien du site de Ron de Bruin très documenté Sending mail from Excel with CDO et ci-joint son exemple de codes

 

[adinnn]

Re : Erreur en utilisant l'objet CDO pour envoi mail

oui effectivement. Le messagebox apparait lorsque tout est ok mais si je désactive la connection internet par exemple, l'erreur d'exécution "le transport a échoué dans sa connection " apparait.

hummmm?

 

[Herdet]

Re : Erreur en utilisant l'objet CDO pour envoi mail

oui effectivement. Le messagebox apparait lorsque tout est ok mais si je désactive la connection internet par exemple, l'erreur d'exécution "le transport a échoué dans sa connection " apparait.

hummmm?

Exécute le code pas à pas et place un error goto xxxx juste avant et un error goto 0 après comme je l'ai fais.