Microsoft 365 Envoi de mails SANS Outlook

JP.B

XLDnaute Nouveau
Bonjour aux experts.

J'ai déjà lu les discussions sur ce sujet mais sans trouver la solution.

J'utilise des "noms" dans le VBA (voir avec Ctrl + f3) - mais si j'inscrit directement les info dans le VBA, le blocage est le même.
Le blocage est sur .Send -
J'ai écrit dans le module d'autres info.

Merci d'avance pour les réponses
JPB
 

Pièces jointes

  • Pb mail.xlsm
    37.3 KB · Affichages: 22

fanch55

XLDnaute Barbatruc
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
 

JP.B

XLDnaute Nouveau
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 :mad:
Bonne journée et bon WE
Cordialement
JPB
 

patricktoulon

XLDnaute Barbatruc
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;)
 

JP.B

XLDnaute Nouveau
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
 

patricktoulon

XLDnaute Barbatruc
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
 

fanch55

XLDnaute Barbatruc
Bonjour à tous,


1633767643451.png

1633767848227.png
 

JP.B

XLDnaute Nouveau
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
 

patricktoulon

XLDnaute Barbatruc
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 :rolleyes:
 

JP.B

XLDnaute Nouveau
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 :rolleyes:
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 o_Oo_O

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
 

fanch55

XLDnaute Barbatruc
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]
1633772419596.png

1633772454218.png
 

JP.B

XLDnaute Nouveau
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 :rolleyes:

1633773936604.png
 

Pièces jointes

  • 1633773744651.png
    1633773744651.png
    20.5 KB · Affichages: 20

Discussions similaires

Réponses
2
Affichages
113