Microsoft 365 Envoi de mails SANS Outlook

fanch55

XLDnaute Barbatruc

• 8 Octobre 2021

• #2

Bonjour,

Pourquoi casser ce que vous aviez déjà mis dans la configuration ? :
Set .Configuration = CreateObject("CDO.Configuration")
.Configuration.Load -1

Et vérifiez vos champs nommés par rapport à vos cellules que vous avez du modifier .

VB:

Sub Mail_CDO()

Const Schema = "http://schemas.microsoft.com/cdo/configuration/"
With CreateObject("CDO.Message")
   
    With .Configuration.Fields
        .Item(Schema & "smtpusessl") = True
        .Item(Schema & "smtpauthenticate") = 1
        .Item(Schema & "sendusername") = [Expéditeur]
        .Item(Schema & "sendpassword") = [Password]
        .Item(Schema & "smtpserver") = [Serveur]
        .Item(Schema & "smtpserverport") = [Port]
        .Item(Schema & "sendusing") = 2
        .Item(Schema & "urlproxybypass") = "<local>"
        .Update
    End With
   
    .From = [Expéditeur]
    .to = [Destinataire]

    .Subject = "Sujet"
    .TextBody = "Essai"
    .send
                                     
End With

End Sub

 

Vote positif 0 Vote négatif

JP.B

XLDnaute Nouveau

• 9 Octobre 2021

• #3

Bonjour Franch55

Un grand merci pour cette réponse.
J'aime beaucoup l'écriture synthétique de la proposition

J'ai encore vérifié la validité des cellules nommées ... Ràs

Malheureusement - ta version bloque toujours avec cette nouvelle information
Le message n'a pu être envoyé vers le serveur SMTP. N° d'erreur 0x80040217

Sur ton conseil et sur "ma" version j'ai supprimé le '.Configuration.Load -1
j'ai alors le message d'erreur ci-dessus

Je coince
Bonne journée et bon WE
Cordialement
JPB

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Octobre 2021

• #4

Bonjour
CDO et proxyserveur a toujours été un soucis
quand a gmail aujourd'hui il faut autoriser les application tiers (en l’occurrence ici vba ) a accéder a gmail dans le panneau de config sur google(aller sur ton compte google )
a tu seulement autoriser les application tiers sur ton compte google?????
et ça devient de plus en plus difficile d'utiliser gmail par vba (voir impossible sans que google bloque l'application émettrice(vba excel)

après la structure de ton code est bizarre mais bon

bref dans ton cas (problème proxy + gmail) Cdo n'est pas vraiment la solution
A méditer

 

Vote positif 0 Vote négatif

JP.B

XLDnaute Nouveau

• 9 Octobre 2021

• #5

Bonjour Patrick
Merci pour ces info qui confirme une intuition : je commençais à me dire qu'un paramétrage extérieur devait coincer.
Tu parles de Gmail, mais j'ai aussi un compte "laposte.net" - Qu'n est-il alors ?
As tu une meilleure structure pour la macro ? J'aime bien celle de Franch55 et toi ?

Cordialement
JPB

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Octobre 2021

• #6

re
la structure de code fanch55 est simplifié dans un bloc with c'est propre
mais ca n'est pas la cause de ton soucis
probleme N° 1 : le soucis c'est de passer par un proxi en CDO qui donne toujours du fil a retordre

probleme N°2 le port serveur proxi n'est pas precisé ce parmetre est absent dans vos codes

probleme N°3 et oui gmail c'est google alors il faut aller sur ton compte google /paramètre / et....
et cocher autoriser les applications tiers

manque de pot google te l’enlève a tout bout de champ c'est assez pénible
sans parler des messages de securité qu'il envoi sur le portable à chaque fois que tu tente d'avoir accès a ton compte

si tu a un compte configuré sur outlook sert toi de lui même si c'est pas ton compte gmail
on peut utiliser un compte sur outlook tout en modifiant l’adresse de l’émetteur

perso je pense que gmail et CDO c'est fini et dieu sait que je l'ai utilisé pendant des années

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 9 Octobre 2021

• #7

Bonjour à tous,

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Octobre 2021

• #8

@fanch55
reste les deux soucis majeurs de CDO (proxyi/gmail)
chez toi ca fonctionne parce que tu passe pas par un proxy
passer par le serveur gmail quand on utilise simplement le FAI est inutile
utiliser plutot le serveur SMTP du FAI

 

Vote positif 0 Vote négatif

JP.B

XLDnaute Nouveau

• 9 Octobre 2021

• #9

fanch55 à dit:

Bonjour à tous,


Regarde la pièce jointe 1117805
Regarde la pièce jointe 1117806

Cliquez pour agrandir...

Re bonjour

Whaouh ... ça c'est une réponse
J'avais rectifié le pb de la fusion.
Pour le password, la ligne du VBA est rémée - donc la cellule E14 n'est pas utilisée

Quand je supprime les ligne indiquée ça me dit :
Le message n'a pu être envoyé vers le serveur SMTP. N° d'erreur 0x80040217

Je me bats avec Google selon les instructions de Patrick
@ suivre et re merci
JPB

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Octobre 2021

• #10

je viens d'apprendre que même avec le serveur FAI il faut s'identifier alors que c’était pas le cas avant
je suis chez free et je suppose que tout les FAI ont fait la même chose

conclusion :cdo terminate game over
encore une librairie qui devient inutile

 

Vote positif 0 Vote négatif

JP.B

XLDnaute Nouveau

• 9 Octobre 2021

• #11

patricktoulon à dit:

je viens d'apprendre que même avec le serveur FAI il faut s'identifier alors que c’était pas le cas avant
je suis chez free et je suppose que tout les FAI ont fait la même chose

conclusion :cdo terminate game over
encore une librairie qui devient inutile

Cliquez pour agrandir...

Si je comprends bien tu sembles dire que l'envoi de mails hors Outlook est quasi mission impossible !
Est-ce bien cela ?
Je viens de passer plus d'une heure sous Google - et je ne trouve pas "
google /paramètre / cocher autoriser les applications tiers - ni qq chose de ressemblant

Mille excuses : le mot FAI n'évoque rien pour moi ...

Autre optique : as tu essayé l'envoi de SMS par le VBA - je serai preneur.
Merci
JPB

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 9 Octobre 2021

• #12

Testé avec Free --> ok
Testé avec hotmail --> ok
Testé avec orange --> ok
Testé avec Gmail --> ok après avoir autorisé l'accès moins sécurisé :

Le seul bémol que je donne à Cdo, c'est que le message envoyé n'est enregistré nulle part
aussi j'ai l'habitude de mettre l'expéditeur en copie caché
en l'occurence : .cc = [Expéditeur]

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Octobre 2021

• #13

re

Testé avec Free --> ok
Testé avec hotmail --> ok
Testé avec orange --> ok
Testé avec Gmail --> ok après avoir autorisé l'accès moins sécurisé :

Cliquez pour agrandir...

@fanch55 a oui !! tu a combien de box chez toi ????
le message est explicite

 

Vote positif 0 Vote négatif

JP.B

XLDnaute Nouveau

• 9 Octobre 2021

• #14

Merci Franch55

J'ai trouvé (même si la configuration n'est pas celle montrée !!!) et mon compte gmail est bien associé - mais il l'était déjà.

quand tu dis
Testé avec Free --> ok
Testé avec hotmail --> ok
Testé avec orange --> ok
Testé avec Gmail --> ok après avoir autorisé l'accès moins sécurisé

Parles-tu du fichier que je t'ai envoyé avec les corrections suggérées ?

Autre question : n'y a-t-il pas une case à cocher ou décocher dans VBA / Outils / Références
Voici ce qui est déjà coché - Et c'est du chinois pour moi

 

Pièces jointes

• 1633773744651.png

  20.5 KB · Affichages: 21

Vote positif 0 Vote négatif

JP.B

XLDnaute Nouveau

• 9 Octobre 2021

• #15

patricktoulon à dit:

re

@fanch55 a oui !! tu a combien de box chez toi ????
le message est explicite
Regarde la pièce jointe 1117815

Cliquez pour agrandir...

je n'ai qu'une box ...
et le message est un chouia différent

 

Vote positif 0 Vote négatif