XL 2019 Créer en envoyer un mail sans avoir Outlook installé sur ma machine

E

ESCOUGER2022

XLDnaute Nouveau
Bonjour,
J'ai écrit un VBA qui envoie des mails, mais qui exige que Outlook soit installé .
Cet excel ne fonctionne pas si Outlook n'est pas installé car la référence "Microsoft Outlook 16.0 Object Library" est déclarée manquante, ce qui me semble normal.
Cet excel a été distribué aux membres de mon association, et ne fonctionne donc pas pour tous.

J'aimerais trouver une solution pour envoyer ce mail même si Outlook n'est pas présent sur le PC.
Le mail concerné est simpliste et ne contient que l'expéditeur, le destinataire, l'objet et un texte très court.
Jamais de pièce attachée.
Je ne connais pas les serveurs de messagerie "smtp" des personnes susceptibles d'utiliser cet excel.
J'ai bien trouvé quelques références à "CDO" mais ne sais pas ce que c'est et ne comprends pas bien si cela peut répondre à cette question.
Merci de me dire si cela est possible et comment le cas échéant.
Cordialement
 
Trier par date Trier par votes
Oneida

Oneida

XLDnaute Impliqué
Vote positif 0 Vote négatif
kiki29

kiki29

XLDnaute Barbatruc
Salut, voir CDO sur le site de Ron de Bruin
Pourquoi utiliser le code CDO au lieu de l'automatisation Outlook ou SendMail dans VBA.

1 : Peu importe le programme de messagerie que vous utilisez (il utilise uniquement le serveur SMTP).
2 : Peu importe la version d'Office que vous utilisez (97…2016)
3 : Vous pouvez envoyer une plage/feuille dans le corps du courrier (certains programmes de messagerie ne peuvent pas le faire)
4: Vous pouvez envoyer n'importe quel fichier que vous aimez (fichiers Word, PDF, PowerPoint, TXT,….)
5 : Aucun avertissement de sécurité, vraiment génial si vous envoyez beaucoup de courrier en boucle
 
Vote positif 0 Vote négatif
Oneida

Oneida

XLDnaute Impliqué
Bonjour,

kiki29:​

En effet, mais les liens lui seront utiles

ESCOUGER2022:​

Un code que j'ai modifie en partant du code dont le site et le pseudo du createur sont au debut en commentaires
Chez moi, marche pas pour tous les smtp.
J'avais regarde y a pas mal de temps CDO pour des personnes qui le demandait.
Ici Le corps du message est formate:
1674802095582.png

VB: 
'https://www.developpez.net/forums/d1382495/logiciels/microsoft-office/access/vba-access/envoi-e-mail-sans-outlook/
 'pc75
 Sub CDO_ki_Marche()
    Dim oMail As Object
    Dim oMailConfig As Object
    
    Set oMail = CreateObject("cdo.message")
    Set oMailConfig = CreateObject("cdo.configuration")
        'free-->free: ok
        'gmail-->free:ok
        'outlook-->free: ok si Outlook sur PC
        '
        'gmail-->gmail: spam ou pas marche ou tres tres tres long
        'free-->outlook:pas marche
        
        'Nom du serveur SMTP Gmail: smtp.gmail.com
        'Nom d’utilisateur SMTP Gmail: votre adresse Gmail
        'Mot de passe SMTP Gmail: votre mot de passe (si vous avez choisi une méthode d’authéntification)
        'Port SMTP Gmail: 25 ou 465


    Str_Destinataire = "@mail destinataire"
    '
    Str_From = "@mail de l'expediteur"
    
    NomUser = Environ("username")
    oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0 ' 0 = aucune authentification ; 1 = authentification
    oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "LOGIN" ' Utilisateur exchange si authentification = 1
    oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PWD" ' Mot de passe de l'utilisateur exchange si authentification = 1


    oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.free.fr"      '"smtp.free.fr" ' Nom du serveur
    oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' ou 25      'Port utilisé
    oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' On utilise un service SMTP
    oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' Timeout
    oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0 ' 0 = aucune authentification ; 1 = authentification
    oMailConfig.Fields.Update
    Set oMail.Configuration = oMailConfig
    oMail.Sender = Replace(Str_Destinataire, " ", ".")
    oMail.From = Str_From
    oMail.Fields.Update
    oMail.Subject = "Test messagerie Gmail"
    oMail.To = Str_Destinataire
    
    'texte = "<SPAN STYLE=background-color:white;font-size:12pt;font-family:Times New Roman>Bonjour,</SPAN><BR><BR>"
    'texte = texte & "<B><SPAN STYLE=background-color:white;font-size:18pt;font-family:arial>Essai</SPAN></B><BR><BR>"
          
    Body = ""
    Body = Body & "<html>"
    Body = Body & "<body>"
    Body = Body & "<font face=arial size=2 color=black>"
    Body = Body & "<b>"
    Body = Body & "<SPAN STYLE=background-color:white;font-size:12pt;font-family:Times New Roman>Bonjour," & NomUser & "</SPAN><BR><BR>"
    Body = Body & " Ah Que coucou! "                'texte message
    Body = Body & "</b>"
    Body = Body & "</font>"
    Body = Body & "<br /><br /><br /><br />"
    Body = Body & "<center>"
    Body = Body & "<font face=arial size=2 color=red>"
    Body = Body & "<em>"
    Body = Body & "<HR>"
    Body = Body & "*** Ce message a été envoyé par le système ; Merci de ne pas y répondre. ***"
    Body = Body & "<HR>"
    Body = Body & "</em>"
    Body = Body & "</font>"
    Body = Body & "</center>"
    Body = Body & "</body>"
    Body = Body & "</html>"
    oMail.HTMLBody = Body
    oMail.Send
    Set oMailConfiguration = Nothing
    Set oMailConfig = Nothing
    Set oMail = Nothing
 End Sub

Ce qu'il faut savoir, tres important:
Les seveurs peuvent bloquer les acces
La plupart de temps les messages qui sont delivres, sont places en Pourriels ou spam

Un autre exemple de code avec un corps message "normal": https://forum.excel-pratique.com/astuces/envoi-mail-avec-cdo-sans-outlook-38945
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
Bonjour a tous
avec le serveur du FAI(votre fourniseur d'acces free, orange ,etc..) vous pouvez envoyer un mail avec une addesse émetteur bidon
cela dit
il y a 90% de chance de voir votre mail dans le dossier des indésirables dans la boite mail de votre destinataire
a bon entendeur
 
Vote positif 0 Vote négatif
E

ESCOUGER2022

XLDnaute Nouveau
Merci pour toutes ces pistes.
Comme le fichier que je voulais réaliser doit être mis entre les mains d'une trentaine de personnes dont les équipements et les FAI sont très disparates et susceptibles de changer dans le temps, j'ai conclu qu'aucune des solutions proposées ne convienne sous peine de modifications fréquentes pour l'un ou l'autre des ces 30 personnes.
J'abandonne donc cette piste d'envoi automatique de mail.
Merci pour avoir pris un peu de votre temps pour vous pencher sur cette question.
 
Vote positif 0 Vote négatif
fanch55

fanch55

XLDnaute Barbatruc
Bonjour à tous,

J'arrive un peu tard, mais avec peut-être une solution , à voir .

CDO ne fonctionne pas avec les Smtp qui réclament le protocole TLS
et Microsoft ne le corrigera probablement pas .

Ma proposition est d'utiliser Powershell et son Send-MailMessage et ce bien sûr via VBA .
J'ai testé avec:
smtp Free ==> ok .
smtp Hotmail ==> ok .
smtp Orange ==> ok .
smtp Gmail ==> ok mais nécessite d'avoir un mot de passe applicatif pour le compte Gmail .

Petit bémol, microsoft a émis un encart de jésuite :
1674941517888.png

Mais au jour d'aujourd'hui, le cmdlet est opérationnel .

Testez le classeur ci-joint .
Compléter la table et cliquer sur un des liens Send

Concrètement, pour @ESCOUGER2022 ,
Vous pouvez utiliser une adresse mail commune aux 30 personnes pour envoyer un mail,
ou utiliser un compte individuel , à vous de voir,
Le code est indépendant de tout logiciel de messagerie .
 

Pièces jointes

  • Sendmail.xlsm
    22.8 KB · Affichages: 29
Vote positif 0 Vote négatif
L

Laurent78

XLDnaute Occasionnel
Bonsoir,
Peut-être deux pistes à creuser :
- utiliser une API existante, genre les outils de emailing, peut-être qu'il y a des offres gratuites pour peu d'envois ou au tarif très résonnable.
- mettre en place une petit serveur web (ou utiliser celui du site web existant le cas échéant) avec un phpmailer et appeler le sendmail via un put ou un get, avec un petit peu de sécu si besoin.
Cdlt
 
Vote positif 0 Vote négatif
fanch55

fanch55

XLDnaute Barbatruc
ESCOUGER2022 à dit:
Bonsoir,
Merci pour ce complément intéressant, mais le "bémol de Microsoft" m'ennuie un peu au regard de la pérennité de ce fichier.
Cliquez pour agrandir...
On a utilisé Cdo depuis Vb6 pendant plus de 20 ans avant qu'il ne devienne obsolète ou plutôt dysfonctionnant .
Ce qui marche aujourd'hui peut très bien ne plus le faire dans 20 ans ...
Utiliser un logiciel tiers ne garantit pas que le tiers sera toujours présent ...
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
Bonsoir
CDO fonctionne encore très bien sur serveurSMTP du fai sans authentification
si serveur du genre entreprise ou reseau entreprise utiliser la config proxy
pour le serveur smtp (tout le monde n'a as le même FAI) j'avais fait une fonction a l’époque pour envoyer un ping et récupérer le smtp
 
Vote positif 0 Vote négatif
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
fanch55 à dit:
Bonjour à tous,

J'arrive un peu tard, mais avec peut-être une solution , à voir .

CDO ne fonctionne pas avec les Smtp qui réclament le protocole TLS
et Microsoft ne le corrigera probablement pas .

Ma proposition est d'utiliser Powershell et son Send-MailMessage et ce bien sûr via VBA .
J'ai testé avec:
smtp Free ==> ok .
smtp Hotmail ==> ok .
smtp Orange ==> ok .
smtp Gmail ==> ok mais nécessite d'avoir un mot de passe applicatif pour le compte Gmail .

Petit bémol, microsoft a émis un encart de jésuite :
Regarde la pièce jointe 1161814
Mais au jour d'aujourd'hui, le cmdlet est opérationnel .

Testez le classeur ci-joint .
Compléter la table et cliquer sur un des liens Send

Concrètement, pour @ESCOUGER2022 ,
Vous pouvez utiliser une adresse mail commune aux 30 personnes pour envoyer un mail,
ou utiliser un compte individuel , à vous de voir,
Le code est indépendant de tout logiciel de messagerie .
Cliquez pour agrandir...
Bjr fanch55, le Fil, le Forum :)

J'ai pas réussi à faire fonctionner ton fichier...
Photo ci-dessous
1675248297722.png

J'ai du zapper qqchose ?
:)
 
Vote positif 0 Vote négatif

Discussions similaires

oguruma
  • Question
Microsoft 365 https://outlook.live.com/ - appeler office.com et outlook pour générer un courriel
Réponses
2
Affichages
572
oguruma
oguruma
B
  • Question
Microsoft 365 Envoi pièce jointe html avec Outlook en VBA
Réponses
5
Affichages
1 K
bennp
B
B
  • Question
Microsoft 365 Créer une boucle sur une plage de cellule, couper coller et envoyer par mail
Réponses
1
Affichages
517
Hasco
Hasco
M
  • Question
XL 2013 VBA-Envoyer par email "Plage de cellules collée dans un nouveau classeur en gardant formules de certaines cellules
Réponses
2
Affichages
852
MONTREAL2020
M
J
  • Question
Excel -VBA : Envoie plusieurs partie du même tableau dans un corps mail en fonction de certaines conditions
Réponses
0
Affichages
1 K
JBIK
J
Titof06
  • Question
XL 2013 SANS OUTLOOK, en VBA faire un Mail avec Gmail et le mettre dans le "Brouillon" (draft)
Réponses
10
Affichages
3 K
patricktoulon
patricktoulon
R
  • Question
XL 2016 Envoyer un fichier excel par email via outlook
Réponses
8
Affichages
3 K
rayms
R
E
  • Question
XL 2013 Avec un tableau croisé dynamique envoyer un mail seulement à une sélection
2
Réponses
22
Affichages
4 K
Staple1600
Staple1600
W
  • Question
Microsoft 365 Placer un RV dans l'agenda Outlook sur calendrier secondaire
Réponses
4
Affichages
4 K
chich
C
F
  • Question
XL 2016 avis de rdv dans mail outlook
Réponses
0
Affichages
780
fredl
F

Membres actuellement en ligne

8 membres et 98 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 080
Messages
2 116 024
Membres
112 637
dernier inscrit
pseudoinconnu