Discussion :

[halaster08]

Bonjour,

J'ai récemment changé de boite et maintenant je n'ai plus Outlook d'installer "en dur" et je dois utiliser Outlook web app.
Bien sur toute mes macros d'envoi de mail ne fonctionne plus.
J'aimerais savoir la ligne suivante a un équivalent pour Outlook web app: CreateObject("outlook.application") pour l'instant mes recherches ne donnent rien

Merci d'avance.

[patricktoulon]

Bonjour
elle se gère avec IE mais les input son bardé de protections anti robots

bon courage

quelque chose me dit que tu va être quasiment dans l'obligation de créer et gérer une interface avec CDO

perso j'ai abandonné depuis longtemps l'espoir de le gérer en VBA ce Outlook web

[halaster08]

Merci patricktoulon pour la réponse.
Effectivement les réponses que j'ai pu trouver sur des sites anglophones disent la même chose que toi, faut absolument passer par CDO.

[patricktoulon]

peut être aura tu plus de chance que moi

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
Sub test()
   dim IE,login,mdp,elem
    login = "machin@hotmail.fr"
    mdp = "bidule"
    Set ie = CreateObject("internetexplorer.application")
    With ie
        .Visible = True
        '.navigate "https://1.exchange.1and1.eu/owa/auth/logon.aspx?replaceCurrent=1&url=https%3a%2f%2f1.exchange.1and1.eu%2fowa"
       .navigate "http://exchange.1and1.eu/"
 
        Do: DoEvents: Loop While .readystate <> 4 Or .busy
        With .document.getelementbyid("username"): .Click: .Value = login: End With
        Do: DoEvents: Loop While .readystate <> 4 Or .busy
        With .document.getelementbyid("password"): .Click: .Value = mdp: End With
        For Each elem In .document.all
            If elem.classname = "signinbutton" Then elem.Click: Exit For
        Next
    End With
End Sub

a voir

[halaster08]

Merci encore Patrick pour ton aide.
Mais après discussion avec mon n+1 je devrais avoir la vraie version d'Outlook d'installer sur ma machine bientôt.

[patricktoulon]

rein ne t'empêche d'avoir une version portable de oulook et seulement d'enregistrer les 3 dll dans le registre avec reg

tu la trouve dans beaucoup d'endroit basée sur la version 2010
j'ai testé ca marche