Le transport a échoué dans sa connexion au serveur

abderrahim1234 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention - 11 déc. 2019 à 21:13

Bonjour,
Je fais une application en vba qui envoie du courrier depuis une application, ça me donne

Erreur d'exécution - 2147220973 (80040213) Le transport a échoué dans sa connexion au serveur.

Veuillez aider si quelqu'un connaît la solution s'il vous plait.

Sub send_Gmail()

Dim NewMail As CDO.Message
Dim mailConfiguration As CDO.Configuration
Dim fields As Variant
Dim msConfigURL As String

On Error GoTo errHandle

Set NewMail = New CDO.Message
Set mailConfiguration = New CDO.Configuration

mailConfiguration.Load -1

Set fields = mailConfiguration.fields

With NewMail
.Subject = "bonjour"
.From = "********.fr"
.To = "*****@*****.fr"
.CC = ""
.BCC = ""
.TextBody = "This is a test email."
.AddAttachment "C:\Users\MonImageExcel.jpg"
End With

With fields
.Item("http://schemas.microsoft.com/cdo/configuration/urlproxyserver") = "proxy.server:8080"
.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/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "****@**.fr"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "******"

.Update

End With

NewMail.Configuration = mailConfiguration
NewMail.Send

MsgBox "E-Mail has been sent", vbInformation

exit_line:
'// Release object memory
Set NewMail = Nothing
Set mailConfiguration = Nothing

Exit Sub

errHandle:

MsgBox "Error: " & Err.Description, vbInformation

GoTo exit_line

End Sub

A voir également:

80040213
Gmail connexion - Guide
Il est en cours de transport vers votre site de livraison ✓ - Forum Consommation & Internet
Voe.sx n'autorise pas la connexion. ✓ - Forum Réseaux sociaux
Serveur diff message ✓ - Forum Mobile
Changer serveur dns - Guide

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

Bonjour,

A l'avenir, merci d'utiliser les BALISES DE CODE.

Voici un code qui devrait fonctionner

Public Function send_email()
   
  Set cdomsg = CreateObject("CDO.message")
  With cdomsg.Configuration.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mygmail@gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"
    .Update
  End With
  ' build email parts
  With cdomsg
    .To = "somebody@somedomain.com"
    .From = "mygmail@gmail.com"
    .Subject = "the email subject"
    .TextBody = "the full message body goes here. you may want to create a variable to hold the text"
    .Send
  End With
  Set cdomsg = Nothing
 End Function

Momen

Merci Jordane.

Je veux essayer, mais qui ne marche pas Dans mon code.

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752 > Momen

As tu paramétré ton compte google pour autoriser les applications externes ?
As tu utilisé ton mot de passe de ton gmail, ou, comme recommandé un mot de passe d'application ?
Regarde ceci : https://support.google.com/accounts/answer/185833

Discussions similaires

"La connexion au serveur a echoue" comment se connecter ?

le transport a echoué dans sa connexion au serveur

Email CDO par VBA_Excel

Erreur Server 2505 dans observateur d'evenement

il existe un nom en double

Arnaque transcash sur Leboncoin.

Votre réponse

Discussions similaires