Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Macro qui lance e-mail ORANGE

AIXELS

XLDnaute Occasionnel
Supporter XLD
Bonjour à tous les amis du Forum.
J'ai cherché dans les discussions, mais je n'ai rien trouvé
pour le lancement du mail ORANGE.
Une fois l'application lancée, joindre un fichier en pièce jointe au format PDF.
J'ai essayé d'enregistrer une macro en automatique, mais rien ne s'enregistre.
Merci pour votre aide.
Bien cordialement.
 
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Aixels,
Peut être une piste :

ENVOI MAIL (orange) PAR MACRO Excel

Je souhaiterais envoyer un mail à partir d'une macro excel , comment faire ? Infos : mon excel 2007 messagerie par orange détail du mail : destinataire objet...
forum.excel-pratique.com

Envoyer Via Excel Messagerie Orange

Bonjour le Forum, Je souhaite pouvoir envoyer des messages depuis Excel ( carnet d'adresse ) mais aller sur Outlook 1 je sais faire et 2 celà ne m'interesse pas. Je souhaiterais pouvoir en cliquant sur l'adresse mail me diriger dirctement sur la messagerie d'ORANGE y a t il un moyen et...
www.excel-downloads.com
 
Vote positif 0 Vote négatif
J

juvaxe

XLDnaute Occasionnel
Bonjour

Voici un exemple extrait d'un classeur dans lequel j'ai enlevé toute trace de personnalisation

Je te laisse le soin de l'adapter à ta situation.

Dans le passé, j'ai moi-même adapté à mon contexte un exemple trouvé sur le Net

Bonne réception
 
Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel
Supporter XLD
Bonjour Juvaxe, sylvanu et tous les Amis du Forum.
Merci pour vos réponses respectives.
Juvaxe, peux-tu me donner plus de précisions sur les paramètres
à rentrer et où faut-il les rentrer dans le code ou sur la "Feuille Paramètres
à savoir l'Objet, l'expéditeur, le destinataire etc...

VB: 
Public Sub Env_courriels()
    Dim omg As Object
    Dim fic As String   ' contient le nom de la picèce à joindre au mail
   [SIZE=1] [/SIZE]
    On Error GoTo fin
          
    fic = "D:\SAUVEGARDES PDF DOCUMENTS" & "\" & "TEST" & ".pdf"
         
    If IsEmpty(Sheets("paramètres").Range("SMTP")) Then Exit Sub
    
    ' Le mmail ne pourra partir que si un nom de serveur SMTP est fourni
    
        Set omg = CreateObject("CDO.Message")
      
    With omg
        .Subject = Sheets("paramètres").Range("Objet")     '    B6        'sujet
        .From = Sheets("paramètres").Range("Expediteur")      ' adresse mail de l'expéditeur n'est pas obligatoire
        .To = NM_Mail        ' [H5].Value              ' Email du destinataire doit-être correct ici"
        .Textbody = Sheets("Paramètres").Range("Txtmail")    '   B7  /  "Mon message ou renvoi vers une cellule comme pour 'To' précédent"
        With .Configuration.Fields
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Sheets("paramètres").Range("SMTP")
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            '----- Dans le cas ou le serveur de mail (comme le mien) demande une authentification
            '           .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
            '           .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = adresse mail
            '           .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mot de passe
            '           .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") =  "true"
            '----------------
            .Update
        End With
        .AddAttachment (fic)
        .send
    End With

        '    End If
    
    ' Kill fic    'au démarrage on garde le PDF sur l'ordinateur 
    
fin:       ' si erreur on sort de la procédure : description de l'erreur survenue
    If Err.Number <> 0 Then MsgBox "Anomalie détectée" & vbLf & vbLf & Err.Description
End Sub

Merci pour votre aide.
Bien cordialement.
 
Vote positif 0 Vote négatif
J

juvaxe

XLDnaute Occasionnel
Bonjour AIXELS

J'ai extrait une partie d'un classeur que j'utilise pour la diffusion d'une lettre type à un certain nombre de destinataires. Avant envoi, la lettre type est personnalisée en fonction du destinataire. Dans mon exemple, il manque donc deux feuilles : celle des destinataires et celle de la lettre type.

Tu peux (en fait tu dois) adapter mon exemple au classeur sur lequel tu travailles.

L'utilisation d'une feuille "Paramètres" ne s'impose pas. J'ai choisi de créer une feuille paramètres pour éviter d'aller "bidouiller" dans le code pour donner les informations dont la macro a besoin pour fonctionner. Par ailleurs la feuille Paramètres comporte des informations supplémentaires, variables en fonction des envois, qui n'apparaissent pas dans mon extrait.

Dans la feuille paramètres il y a 4 champs :
1- Le nom du serveur SMTP : tu souhaites passer par Orange, le nom qui est dans la feuille Paramètres ne doit pas être changé
2 - Les 3 champs qui suivent doivent être personnalisés en fonction de ton contexte.
- En expéditeur j'ai mis une adresse Mail de mon invention : à toi de mettre ton adresse Mail réelle. Je crois, mais je n'ai jamais essayé, qu'elle n'est pas obligatoire; cette solution ne me parait pas recommandable.
-Ensuite tu as l'objet et le corps du message, ce que j'ai mis relève de mon imagination ...

Ce que j'ai mis en paramètres peut être fourni d'une toute autre manière à la macro. y compris y être codé en dur; elle ne comporte que quelques lignes, il est facile de situer à quels endroits ces informations doivent "entrer" dans la macro; je n'insiste pas davantage.

Il y a le destinataire pour lequel je n'ai rien fait ; dans la macro on voit apparaître ".To = NM_MAIL". Dans mon cas NM_MAIL représente un champ nommé dans lequel je mets l'adresse Mail du destinataire, associée au nom de la pièce jointe qui doit auparavant avoir été mise dans "fic". Pour faire un essai tu peux directement mettre dans la macro un mail type "nom@founisseur.fr" ou créer au sein de la macro une définition de type string avec NM_MAIL pour nom dans lequel tu mets une adresse mail valide qui te servira à faire ton essai.

De la même manière je n'ai pas mis de bouton pour lancer la macro.

Si tu souhaites que je fasse davantage, il faudrait que tu fournisses un exemple de classeur qui servira de cadre aux ajouts pour envoi de mails par Orange.

Cdt
 
Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel
Supporter XLD
Re Bonjour Juvaxe
Merci pour ta réponse. Je t'avoue que je suis un peu perdu !
Je te joint ta macro dans laquelle j'ai ajouté le chemin et le nom du fichier à envoyer. (fic=)
Dans le code, il y'a des références à des cellules qui sont en commentaires.
Peux-tu s'il te plait avec ta macro et le nom du fichier joints, faire les modifications à effectuer
et sur le code et dans la feuille paramètres. J'ai mis une adresse mail à titre d'exemple.
Merci pour ton aide.
Bien cordialement.
 

Pièces jointes

  • EXEMPLE MAIL ORANGE_2.xlsm
    22 KB · Affichages: 7
  • TEST ENVOI.pdf
    46.5 KB · Affichages: 6
Dernière édition:
Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc
Bonjour tout le monde,

Si ça t'intéresse, ce petit classeur que j'ai réalisé, tout prêt à l'emploie pour orange !

EDIT: j'ai remis le classeur avec qq précisions en plus, ce Mardi 7:20
 

Pièces jointes

  • FICH_EnvoiMail_CdoPerso.xlsm
    78.9 KB · Affichages: 15
Dernière édition:
Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel
Supporter XLD
Bonjour [B]Roland_M[/B]
Merci pour ta réponse.
Une fois les paramètres saisis, ça fonctionne à la perfection.
Avec un historique des envois ce qui ne gâche rien et une base
d'adresses mails aux envois récurrents, et la formule qui va bien, c'est bien pensé.
Gère les adresses mails des destinataires cachés.
Mille mercis, le travail a été mâché pas eu grand chose à faire.
Bien cordialement.
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

N
  • Question
Microsoft 365 Envoi via Excel avec OutlookNew
Réponses
4
Affichages
394
Titou37P
  • Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
660
halecs93
N
  • Question
Microsoft 365 PB enregistrement fichier partagé
Réponses
0
Affichages
356
Nounours4173
N
A
  • Résolu(e)
XL 2021 Macro de création mail de relance avec référence cellules
Réponses
4
Affichages
574
arnoldbrice19
A
  • Question
XL 2021 Aide pour recherche intuitive
2
Réponses
16
Affichages
713
jeff1494
G
  • Question
Microsoft 365 Macro VBA - Excel
Réponses
12
Affichages
548
Dranreb
A
  • Résolu(e)
Microsoft 365 Envoi mail avec plusieurs PJ vba
Réponses
5
Affichages
530
Arnaud H
A
  • Question
Microsoft 365 Curiosité : enregistrement impossible à cause de la liste des erreurs (#NUL!, #DIV/0!, #REF!, etc.)
Réponses
1
Affichages
355
Simply
O
  • Question
XL 2016 Erreur d'exécution 32809 Erreur définie par l'application ou par l'objet
Réponses
0
Affichages
353
Oddoneju
O
J
  • Résolu(e)
XL 2013 Macro et script vba : macro s'arrête dès la première condition trouvée
Réponses
11
Affichages
825
Janu44
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…