[Résolu][Calc] Envoi courriel

[s05b]

Votre titre : Adapter macro supreme code d'envoi courriel a été débarrassé des termes inutiles

Bonjour,

J'essaye de travailler sur le suprême code proposé par Lucky-Luke pour ma première macro sur Libre Office
https://forum.openoffice.org/fr/forum/v ... 44#p267707
mais je bute sur la personnalisation des données pour la faire fonctionner.

J'ai bien compris comment supprimer la zone d'impression, mais je n'arrive pas à comprendre quelles sont les données à modifier ou compléter pour insérer mes infos serveur+user+password...
Chaque tentative se termine par "Une erreur 1 ne permet pas d'envoyer le courrier", puis d'autres si je fais annuler ("erreur 18", "Erreur d'exécution BASIC. Processus interrompu par l'utilisateur.")

Est-ce que quelqu'un pourrait m'éclairer ?

PS : je pense avoir compris que ce code était toujours valable à ce jour et qu'il était exploitable sur Libre Office 6.2.2.2... n'hésitez pas à me signaler si je me suis lamentablement planté sur le sujet ! Merci

[OOo - Ekel]

Bonjour

Se peut-il que cela soit cette section ?

Code : Tout sélectionner

REM =====================
'Configuration des parametres compte courrier
Const smtpPassword$ = "Mon_Mot_De_Passe"
Const UserName$ = "Mon_Nom_D'utilisateur" ' Nom d'utilisateur
Const Useradress$ = "MonAdresse@moi.fr" ' L'adresse de l'expediteur
Const ServerName$ = "smtp.moi.fr" ' Le serveur SMTP
Const ServerPort = 25        'le cas le plus général
Const ServerSecure$ = "SSL"  '"Insecure" 'ou  "STARTTLS"
REM =====================

Cordialement.

[s05b]

J'ai oublié que le suprême se déclinait en deux fichiers : c'est sur la version "Courriel_Export_Selection.ods que je travaille (pour garder toutes les options d'envoi).

Ekel, je t'ai peut-être laissé travailler par erreur sur l'autre fichier ?
En tout cas, je n'ai pas réussi à trouver ta section dans les sections de la macro.

En grand débutant, je ne m'étais concentré que sur la section "standard" propre au fichier mais, en recherchant ta section, je réalise qu'il est possible que la macro incruste une petite partie de code dans le "standard/Module 1" des "Mes macros et boîtes de dialogue" : est-ce bien le cas ?

Du coup, peut-être que l'équivalent de ta section est celle présente en bas de "standard/Module 1" ?

Code : Tout sélectionner

Sub envoi
    Dim Messagerie As Object, Client As Object, Courrier As Object
       Messagerie = CreateUnoService("com.sun.star.system.SystemMailProvider")'Version Windows/Linux Aoo4
       Client = Messagerie.queryMailClient()
       Courrier = Client.createMailMessage()   
          Courrier.Subject = "sujet"'Sujet   
          Courrier.Recipient = "aa@gmail.com"'Adresse
          'Courrier.CcRecipient = Array("")'CopieA
          'Courrier.BccRecipient = Array("")'CopieA
          Courrier.Attachement = Array("chemin du pdf")'PcsJt()
          Courrier.body = "texte "'Texte
          Client.sendMailMessage(Courrier,1)'Flag inopérant
End Sub

D'une manière générale, si j'ai bien compris que les " ' " permettaient de ne pas rendre active la ligne, je n'arrive pas à identifier...
- les variables (à ne surtout pas toucher)
- les renvois vers les valeurs des cellules du fichier (à ne surtout pas toucher)
- les données à remplacer pour paramétrer la macro avec les infos personnelles du compte smtp.

Exemple tout bête : dois-je remplacer "aa@gmail.com" et "chemin du pdf" ?

[s05b]

A croire que j'avais les yeux dans le pâté... car je me suis emmêlé les pinceaux tout seul !

Si d'autres personnes débutent et trébuchent, voici ce qu'il faut faire pour garder le sourire en niveau "grand débutant" :
- avec le fichier "Courriel_export_Selection" en cuprême code
- éditer les macros (outils/macros/éditer les macros)
- dans la section "Standard/SendMail" du fichier
- renseigner les lignes 22 à 27 pour personnaliser ce qui entre guillemets et en rouge
- au besoin, supprimer la ligne 55 pour le "Delete_Impress" évoqué dans la présentation du suprême
- penser à renseigner une adresse de destinataire valide en A1 de la Feuille1

Et ça marche !

Merci à Ekel d'avoir pris la peine de m'aider

[OOo - Ekel]

Bonsoir,

Je n'ai pas le sentiment d'avoir fait grand'chose à la lecture des messages de retour... mais ravi du peu que j'ai apporté.

Cordialement