Créer un lien entre excel et messagerie gmail
Fermé
Cassandra
-
29 janv. 2016 à 10:23
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 1 févr. 2016 à 11:14
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 1 févr. 2016 à 11:14
A voir également:
- Lien hypertexte gmail
- Gmail - Guide
- Créer un compte gmail - Guide
- Lien url - Guide
- Gmail connexion - Guide
- Accusé de reception gmail - Guide
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
29 janv. 2016 à 10:45
29 janv. 2016 à 10:45
Bonjour,
En vba voici 2 méthodes pour ouvrir une messagerie:
En vba voici 2 méthodes pour ouvrir une messagerie:
'Livemail
Sub lancer()
Dim appl
appl = Shell("C:\Program Files (x86)\Windows Live\Mail\wlmail.exe", vbNormalFocus) 'adapter le chemin de l'application
End Sub
'outlook
Sub ouvrir()
Dim myOlApp, myItem, olMailItem
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
myItem.Display
End Sub
29 janv. 2016 à 11:06
Cependant, je suis novice dans l'utilisation des macros ... Est-ce qu'il faut juste que je copie et colle votre réponse ? car le logiciel m'indique que les fonctionnalités suivantes ne peuvent être enregistrées dans des classeur sans macro ......
29 janv. 2016 à 11:40
Ensuite tu ouvres ton classeur et c'est opérationnel.
https://support.microsoft.com/en-us/office/enable-or-disable-macros-in-office-files-12b036fd-d140-4e74-b45e-16fed1a7e5c6?redirectsourcepath=%252ffr-fr%252farticle%252factiver-ou-d%2525c3%2525a9sactiver-les-macros-dans-les-documents-office-7b4fdd2e-174f-47e2-9611-9efe4f860b12&ui=en-us&rs=en-us&ad=us
Pour accéder à l'éditeur appuyer sur Alt F11, ensuite dans le ruban:
Insertion, UserForm
Affichage, Boite à outils, mettre un CommandButton
Double cliquez sur ce CommandButton et mettre dans le module qui apparaît:
Option Explicit Private Sub CommandButton1_Click() lancer 'ou ouvrir au choix End Sub 'Livemail Sub lancer() Dim appl appl = Shell("C:\Program Files (x86)\Windows Live\Mail\wlmail.exe", vbNormalFocus) 'adapter le chemin de l'application End Sub 'outlook Sub ouvrir() Dim myOlApp, myItem, olMailItem Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.CreateItem(olMailItem) myItem.Display End Subensuite appuyer F5
Voilà
30 janv. 2016 à 18:47
et enregistrer en .xlsm
eric
1 févr. 2016 à 08:59
Que dois-je faire ?
1 févr. 2016 à 09:41