Envoi de mail via outlook web app

Version imprimable

14/11/2017, 13h29
halaster08

Envoi de mail via outlook web app

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.
14/11/2017, 13h52
patricktoulon

re

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
14/11/2017, 14h38
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.

peut être aura tu plus de chance que moi

Code:

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

15/11/2017, 09h26
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.
15/11/2017, 19h42
patricktoulon

re

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