Envoi de fichier via Gmail

Bonsoir,

je souhaiterais envoyer un fichier préalablement sauvegardé via Gmail et il faut dire que j'ai trouvé peu d'info's sur le NET au contraire d'Outlook.

La sauvegarde en PDF se déroule bien, le problème se situe au niveau de la dernière ligne d'instruction qui génère une erreur "la valeur SendUsing est non valide"

voici le code utilisé:

Merci d'avance

bonsoir,

merci pour la copie d'écran, très jolie !

supprime tes [URL] et [/URL] dans tous les .item

Bonjour Gouyasse, h2so4

Le code doit être mis sous forme de texte et non d'image sur le forum, en le mettant entre balise grâce au bouton </>

Merci d'y prêter attention SVP

Merci à vous 2 pour les remarques, j'avais bien tenté la mise en page avec le bouton </> mais le forum m'interdit la publication de liens tant que je n'ai pas publié au moins 30 messages.

D'où la copie d'écran et donc cette fois, j'ai mis le fichier adapté en pièce jointe, j'espère que cela pourra convenir.

Re,

Le bouton </> n'est pas pour les liens, mais pour insérer le code

Ne me dites pas que vous n'avez pas cette fenêtre quand vous cliquez dessus

A+

Ben je suis peut-être pas fortiche mais lire çà je sais faire :-) :-)

voici ce que cela donne:

D'où les diverses solutions choisies pour communiquer mon code

En effet, il semble bien y a voir un problème s'il y a l'adresse d'un site web dans le code... Donc mes excuses pour la remarque déplacée à propos de la jolie photo.

Re,

Ah ben voilà... nous avons une explication au moins

Je l'ai signalé à Sébastien admin du forum pour voir.

Essayé en modifiant cette ligne

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465  '25

A+

Bonjour,

Comme indiqué dans le message d'erreur c'est dû à des URLs dans le post (ça inclut aussi les URLs dans les balises de code).

Il faut donc soit les retirer (ou les modifier en ajoutant par exemple un espace au milieu) soit poster directement dans une pièce jointe en attendant d'avoir atteint les 30 messages et de ne plus être embêté par cette sécurité anti-spam (sécurité qui marche plutôt bien d'ailleurs, pour ceux qui se souviennent du volume de spam des années précédentes).

Cordialement,

Merci à vous pour votre aide, ce petit soucis a au moins servi à comprendre et avancer

Comme indiqué par Sébastien, je pense que le fichier mis en pièce jointe dans un post précédent devrait permettre l'analyse sans avoir à nouveau à "manipuler" le code.

Re-merci d'avance à celui ou ceux qui pourront me faire avancer dans la solution de ce problème qui, sauf erreur, devrait intéresser pas mal de monde.

Bonsoir Gouyasse

Bon après vérification, cela vient bien de la sécurité renforcée chez Google.

Pour que ce code fonctionne, il faut créer un mot de passe pour application en sélectionnant "Autre" sur ses paramètres de sécurité Google

Ensuite il faut l'intégrer à ce code

Sub Mail()
    Dim iMsg As Object, iConf As Object
    Dim strbody As String
    Dim Flds As Variant
    Dim PDFfileName As String
    Dim myAdd As String

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' SendUsing port
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .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/smtpaccountname") = "nomcompte@gmail.com"
        .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/sendusername") = "nomcompte@gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "MotDePassePourApplicationGoogle"
        .Update
    End With
    PDFfileName = "C:\Temp\chemin du fichier.pdf"
    ' Envoyer message via Gmail avec CDO
    With iMsg
        Set .Configuration = iConf
        .To = "AdresseMailDuDestinataire@fai.fr"
        .CC = ""
        .BCC = ""
        .From = "mon adresse mail@gmail.com"
        .Subject = "ceci est un mail test"
        .TextBody = "blabla....."
        .AddAttachment PDFfileName
        .Send
    End With
End Sub

J'ai testé chez moi sur réseau privé et cela fonctionne

A+

Bonsoir H2So4

merci pour les efforts en vue de m'aider mais pas de chance, cela ne fonctionne pas chez moi bien que j'utilise un MdP d'application et ai la validation en 2 étapes activées.

Voici le message reçu:

Question:

je lis 2 lignes de code identique dans le code CDO à des endroits différents, je suppose que c'est une simple redondance ?

Bonsoir Gouyasse

Moi c'est BrunoM45 😜

Oui effectivement, c'était une redondance 🤔 c'est supprimé

Question subsidiaire : utilisez vous un routeur avec un pare-feu ?

+A

Re,.

Désolé pour vous, mais c'est pour moi un problème de sécurité 🤔

D'ailleurs vous devez recevoir des mails qui vous l'indique.

Bonne continuation