IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Email / Problème version OFFICE 365 FAMILLY


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    comite d'entreprise
    Inscrit en
    Décembre 2019
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Eure et Loir (Centre)

    Informations professionnelles :
    Activité : comite d'entreprise
    Secteur : Transports

    Informations forums :
    Inscription : Décembre 2019
    Messages : 5
    Par défaut Email / Problème version OFFICE 365 FAMILLY
    Bonjour à tous,
    J'ai un soucis pour envoyer mes Emails avec Excel sous le nouveau office 365 familly.

    Ma programmation Excel/VBA fonctionne parfaitement avec Windows7 Excel 2010 je peux envoyer des emails via Excel.

    Récemment j'ai un acheté un nouveau pc avec Windows10 Famille et office 365 familly. Mais dans le pack office Outlook n'existe plus…
    Forcement ma programmation Excel/VBA ne fonctionne plus non plus.
    Avec le Windows10 j'ai l'application COURRIER qui ressemble un peu à Outlook mais impossible de trouver la bonne programmation.
    J'ai pensé à utiliser Mozilla Thunderbird même chose...cela ne fonctionne pas.

    Dans ma programmation VBA Windows7 Excel 2010 j'ai bien OUTILS / REFERENCES / et cocher Microsoft OFFICE Object Library
    En revanche dans le Windows 10 Excel familly je n'ai rien trouver….

    Je ne vois pas de solution pour adapter mon programme avec le Windows10 Famille et l'office 365 Outlook

    MERCI A VOUS SI VOUS AVEZ DES IDEES OU UNE SOLUTION QUE JE N'AI PAS PENSE ETANT PAS UN PROGRAMMATEUR PRO…
    CORDIALEMENT CI-joint ma programmation qui fonctionne sous Windows7


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    Private Sub CommandButton8_Click()
    Sheets("listepersonnel").Select
    Dim xOutApp As Object
        Dim xOutMail As Object
        Dim xMailBody As String
        On Error Resume Next
        Set xOutApp = CreateObject("Outlook.Application")
        Set xOutMail = xOutApp.CreateItem(0)
        xMailBody = ""
                      On Error Resume Next
      Dim I As Variant, ListeMail As String
    I = 2 ' ligne de la première adresse
    While Cells(I, 1) <> "" ' tant que l'addresse en colonne 4 et sur la ligne I n'est pas vide
    If Not Intersect(Cells(I, 3).SpecialCells(xlCellTypeVisible), Cells(I, 3)) Is Nothing Then ' si la cellule précitée est visible
    ListeMail = ListeMail & ";" & Cells(I, 3) ' je l'ajoute à la liste
    End If
    I = I + 1 ' je regarde la ligne suivante
    Wend
    'EnvoyerMail (ListeMail) ' j'envoie la liste à la sub d'envoi
     
        With xOutMail
            .To = ""
            .CC = ""
            .BCC = ListeMail
            .Subject = ""
            .Body = xMailBody
            .Display   'or use .Send
            .Send
        End With
        On Error GoTo 0
        Set xOutMail = Nothing
        Set xOutApp = Nothing
    End Sub

  2. #2
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Première remarque : à priori, cette question ne concerne pas Excel.
    Même si ton code est sous Excel, ton problème ne vient pas (si j'ai bien compris) de l'utilisation des objets Excel mais des objets de messagerie qui sont une application extérieure.
    Il semble donc que cette rubrique ne soit pas la meilleure pour obtenir une réponse à ta question.

    Avec le Windows10 j'ai l'application COURRIER qui ressemble un peu à Outlook mais impossible de trouver la bonne programmation.
    La première chose serait d'activer la bibliothèque d'objets de l'application Courrier... si tu parviens à la trouver dans la liste des références.

    Ensuite, l'idéal serait que tu parviennes à trouver dans la jungle du site d'aide de Microsoft (ou l'éditeur de cette application Courrier s'il ne s'agit pas de Microsoft), la liste des objets et de leurs membres comme celle de Excel ou Word.

    Si tu ne la trouves pas, il ne te reste plus qu'à aller explorer (à la frontale) la liste des objets de cette bibliothèque en utilisant l'explorateur d'objet de VBE (touche F2) et en la sélectionnant.
    Les renseignements obtenus sont très limités (au moins, ça donne les syntaxes et les membres) mais ça permet parfois (avec de nombreux tests) de comprendre comment manipuler ces objets.

  3. #3
    Invité
    Invité(e)
    Par défaut Envoi mail par CDO
    Citation Envoyé par arnaud.meu Voir le message
    Bonjour,

    Regardez si cette discussion peut vous aider : https://www.developpez.net/forums/d1...l/#post7269237.

Discussions similaires

  1. Microsoft dévoile la feuille de route d'Office 365 version entreprise
    Par Stéphane le calme dans le forum Microsoft Office
    Réponses: 0
    Dernier message: 20/06/2014, 20h42
  2. Problème de mise en page selon la version Office
    Par MaelB dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 03/01/2013, 16h42
  3. Office 365 : HP proposera une version en Cloud privé
    Par Gordon Fowler dans le forum Cloud Computing
    Réponses: 0
    Dernier message: 04/01/2012, 12h38
  4. Réponses: 1
    Dernier message: 23/10/2010, 01h46
  5. Réponses: 1
    Dernier message: 23/10/2010, 01h46

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo