Bonsoir à tous,
J'ai un bout de code qui me permet de lancer Internet explorer et d'aller ensuite sur Yahoo! Mail...
Le code me permet aussi d'entrer mon "Login", mon "Password" et de cliquer sur le bouton "Connection"...
Le code n’emmène ensuite sur la page de mes Mails et c'est là ou je bloque !!!
Je voudrais arriver a cliquer sur le bouton "Ecrire" (Nouveau mail) pour afficher sa fenêtre afin de rédiger le corps du mail via VBA...
Le code:
Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Global Const SW_MAXIMIZE = 3
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWNORMAL = 1
Sub Ouvrir_Yahoo_Mail()
Dim IE
Dim IEdoc As Object
Dim DOCelement As Object
Const READYSTATE_COMPLETE = 4
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
apiShowWindow IE.hwnd, SW_MAXIMIZE
IE.Navigate ("https://login.yahoo.com")
' attente de fin de chargement
Do Until IE.readyState = 4
DoEvents
Loop
Set IEdoc = IE.Document
'login
Set DOCelement = IEdoc.GetElementsByName("username").Item
DOCelement.Value = "xxxxxxx.xxxxxxxxx@yahoo.fr" '<-- Ton login ici
'password
Set DOCelement = IEdoc.GetElementsByName("passwd").Item
DOCelement.Value = "xxxxxx" '<-- Ton mot de passe ici
DOCelement.Select
'connexion
Set DOCelement = IEdoc.Forms(0)
DOCelement.Submit
IE.Navigate ("https://mg.mail.yahoo.com/neo/launch?.rand=xxxxxxxxx") '<-- Se connecter, puis rentrer içi l'adresse de la page de ses mails
Set ObjectIE = IE.Document.getElementByClassName("btn btn-compose") 'on selectionne le bouton "Ecrire"
ObjectIE.Click 'on clique sur ce bouton
End Sub
Et là, le code HTML du bouton "Ecrire" sur la page Yahoo!:
<button tabindex="0" title="Écrire" class="btn btn-compose" id="yui_3_16_0_ym19_1_1481501931669_1532" data-action="compose"> <i></i><span class="icon-text">Écrire</span> </button>
Si quelqu'un pouvait me débloquer, se serait vraiment sympas...