Envoi de mail pat excel

Résolu

yhelard Messages postés 27 Date d'inscription Statut Membre Dernière intervention -
yhelard Messages postés 27 Date d'inscription Statut Membre Dernière intervention - 14 déc. 2016 à 11:21

Bonjour,

J'ai essayé cette macro:

Sub EnvoiMail()
  Workbooks("Essai.xlsx").SendMail Recipients:="adresse.valide@yahoo.com", _
                          Subject:="Test envoi classeur", _
                          ReturnReceipt:=True
End Sub

EDIT : Ajout des balises de code

mais cela ne marche pas.
Erreur:1004
La méthode send mail a échoué.

Merci de votre aide

A voir également:

Le transport a échoué dans sa connexion au serveur
Liste déroulante excel - Guide
Word et excel gratuit - Guide
Programmer envoi mail gmail - Guide
Déplacer colonne excel - Guide
Envoi mail cci - Guide

11 réponses

Réponse 1 / 11

thev Messages postés 1982 Date d'inscription Statut Membre Dernière intervention 711

Bonjour,

A priori lié à un problème de sécurité Outlook.
Quand je teste cette macro, un message d'alerte de sécurité apparaît avec comme option par défaut : refuser. L'erreur 1004 apparaît avec cette option.

yhelard Messages postés 27 Date d'inscription Statut Membre Dernière intervention

Bonjour
Je ne comprends pas votre réponse/

thev Messages postés 1982 Date d'inscription Statut Membre Dernière intervention 711 > yhelard Messages postés 27 Date d'inscription Statut Membre Dernière intervention

Ci-dessous le message d'alerte de sécurité que je reçois quand j''exécute votre macro

https://www.cjoint.com/c/FLks63SiPBF

En fait, il est probable que votre sécurité Outlook d'accès programme soit activée au maximum. voir :
https://support.microsoft.com/en-us/office/i-get-warnings-about-a-program-accessing-email-address-information-or-sending-email-on-my-behalf-86cc5ece-379e-45e3-b8eb-3fefba09946b?redirectsourcepath=%252ffr-fr%252farticle%252fj-obtiens-des-avertissements-concernant-un-programme-qui-acc%2525c3%2525a8de-%2525c3%2525a0-des-informations-d-adresse-de-messagerie-ou-qui-envoie-du-courrier-%2525c3%2525a9lectronique-de-ma-part-df007135-c632-4ae4-8577-dd4ba26750a2&ui=en-us&rs=en-us&ad=us

Réponse 2 / 11

yhelard Messages postés 27 Date d'inscription Statut Membre Dernière intervention

Bonjour
Merci de la peine que vous vous donnez pour me répondre.
Que puis-je faire pour supprimer ce blocage.
Je n'ai pas installé outlook et je ne comprends pas pourquoi ce serait outlook qui bloque. Je me sers de gmail et yahoo.
Bonne journée

Réponse 3 / 11

thev Messages postés 1982 Date d'inscription Statut Membre Dernière intervention 711

Bonjour,

Le souci est, je pense, que cette macro ne fait appel qu'à Outlook pour aller chercher le serveur de messagerie.

Vous avez 2 solutions.
1) La plus simple est d'installer Outlook et d'y définir vos comptes Gmail et Yahoo
2) utiliser la bibliothèque Microsoft CDO WINDOWS (à ajouter via l'éditeur VBA --> outils --> références) en y définissant le serveur de messagerie Gmail comme exemple ci-dessous


Sub envoi_email()

    Dim lobj_cdomsg As CDO.Message
    Set lobj_cdomsg = New CDO.Message
    'Add the Project Reference Microsoft CDO WINDOWS FOR 2000
    lobj_cdomsg.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
    lobj_cdomsg.Configuration.Fields(cdoSMTPConnectionTimeout) = 30
    lobj_cdomsg.Configuration.Fields(cdoSendUsingMethod) = cdoSendUsingPort
    lobj_cdomsg.Configuration.Fields.Update
    lobj_cdomsg.To = "Wallace.Evans@gwinnettcounty.com,raman.thiagarajan@gwinnettcounty.com"
    lobj_cdomsg.From = "raman.thiagarajan@gwinnettcounty.com"
    lobj_cdomsg.Subject = "filename Sent to www.???.com "
    lobj_cdomsg.TextBody = "File FTP LOG ATTACHED."
    lobj_cdomsg.AddAttachment ("\\server\filefolder\FTPlog.TXT")
    lobj_cdomsg.Send
    Set lobj_cdomsg = Nothing

End Sub

Réponse 4 / 11

yhelard Messages postés 27 Date d'inscription Statut Membre Dernière intervention

Bonsoir
Autre problème; ou puis-je trouver la library CDO WINDOWS FOR 2000 et sous quelle forme se présente-t-elle?
Merci

thev Messages postés 1982 Date d'inscription Statut Membre Dernière intervention 711

Comme dit précédemment, elle se trouve dans l'éditeur VBA, dans le menu outils, puis le sous-menu références. Une fois trouvée, il suffit de la cocher pour qu'elle soit prise en compte dans toute macro VBA.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 11

yhelard Messages postés 27 Date d'inscription Statut Membre Dernière intervention

Justement, elle ne se trouve pas dans le sous menu références.
je pense que je peux la télécharger sur internet, mais je ne la trouve pas. il y a plein de fichiers mais je ne sais pas lequel télécharger.

Réponse 6 / 11

thev Messages postés 1982 Date d'inscription Statut Membre Dernière intervention 711

Il s'agit de la bibliothèque: cdosys.dll se trouvant dans c:\windows\system32

Elle est a priori contenue dans l'installation d'Outlook.

Réponse 7 / 11

yhelard Messages postés 27 Date d'inscription Statut Membre Dernière intervention

Bonjour
J'ai réussi à charger la librairie. Ca marche beaucoup mieux, mais maintenant, il se bloque sur le "send".
Les adresses mail que j'ai mis sont bonnes. Pour le serveur de messagerie "smtp.gmail.com", je ne sais pas.
L'erreur retournée est:-2147220973 (80040213)
"Le transport a échoué dans sa connexion au serveur"
Bonne journée et Merci

thev Messages postés 1982 Date d'inscription Statut Membre Dernière intervention 711

Passer par le serveur de messagerie Google est compliqué. Cela marchera sans problème si tu utilises le serveur de messagerie SMTP de ton FAI.
Pour Free par exemple, smtp.free.fr ou SFR, smtp.sfr.fr ou Orange, smtp.orange.fr

yhelard Messages postés 27 Date d'inscription Statut Membre Dernière intervention

Et bouygues, auriez-vous une idée du nom du serveur de messagerie.
J'ai cherché sur mon PC mais je n'ai rien trouvé.
Bonne soirée

Réponse 8 / 11

thev Messages postés 1982 Date d'inscription Statut Membre Dernière intervention 711

via une recherche rapide sur Google,
smtp.bouygtel.fr

Réponse 9 / 11

yhelard Messages postés 27 Date d'inscription Statut Membre Dernière intervention

Bonjour
Je suis désolé mais le problème est toujours là avec smtp.bouygtel.fr
Bonne joournée

Réponse 10 / 11

thev Messages postés 1982 Date d'inscription Statut Membre Dernière intervention 711

Bonjour,

réessayer alors avec le serveur smtp.gmail.com via ce code, qui fonctionne chez moi


Sub EnvoiMail()
    'Add the Project Reference Microsoft CDO WINDOWS FOR 2000
    Dim cdo_msg As New CDO.Message

    '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) = "xxxxxxxxxx@gmail.com"
    cdo_msg.Configuration.Fields(cdoSendPassword) = "ppppppppp"
    cdo_msg.Configuration.Fields.Update

    'remplissage et envoi message
    cdo_msg.To = "adresse1"
    cdo_msg.From = "adresse2"
    cdo_msg.Subject = "filename Sent to www.???.com "
    cdo_msg.TextBody = "File FTP LOG ATTACHED."
    cdo_msg.AddAttachment ("C:\Users\nnnnnn\Documents\classeur1.xls")
    cdo_msg.Send

    'libération objet message
    Set cdo_msg = Nothing
End Sub

Réponse 11 / 11

yhelard Messages postés 27 Date d'inscription Statut Membre Dernière intervention

C'est ok, ca marche.
Merci

Discussions similaires

Rétrodiffusion "Mail Delivery System"

Echec d'envoi message sur Messenger

EDIT : Ajout des balises de code

Votre réponse

Discussions similaires