Discussion :

[Coxtox]

Bonjour à tous,

Je ne sais pas si j'aurai du poster mon message dans VBA Excel ou Outlook ...

Vous allez peut-être pouvoir me renseigner. J'aimerai savoir si c'est possible d'exporter une plage de cellule dans un corps de mail Outlook.

Via un bouton, est ce possible d'exporter un tableau puis le copier dans un corps de mail et remplir automatiquement les destinataires et envoyer ...

Si quelqu'un a une idée, je suis preneur

Merci d'avance

Cordialement

[joe.levrai]

Bonjour,

voir ici : http://www.developpez.net/forums/d15...fichier-excel/

après avoir lu et testé, si tu as des soucis, reviens expliquer où ça coince



Ps : un jour j'aurai le courage de poster un billet de blog à ce sujet

[Coxtox]

Salut joe.levrai,

Parfait, correspond exactement a ce que je souhaite faire !

Seul petit bémol, j'aimerai qu'une fois le tableau copié dans Outlook les listes déroulantes des cellules se remettent à 0 (et le fichier s'enregistre).

J'ai tenté de la manière suivant mais je pense que c'est adapté pour des contrôles formulaires. A noter que mes listes déroulantes sont créées via la validation des données et non l'onglet "Développeur".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
   Dim Ctrl As Control
   Dim ListeDeroulante As Range
 
   Set ListeDeroulante = ThisWorkbook.Worksheets("Feuille1").Range("C9:E16")
 
 
    For Each Ctrl In Me.ListeDeroulante
 
        If TypeName(Ctrl) = "ComboBox" Then
            Ctrl.ListIndex = -1
        End If
 
    Next

Merci par avance

Tout simplement avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuille1").Range("C9:E16").ClearContents

On se complique la vie des fois ...

Merci quand même.

Cordialment

[Coxtox]

Je ré ouvre le sujet ... Je souhaiterais que le mail soit exporter vers Outlook web App au lieu de Outlook

Est ce toujours possible ?

Cordialement

[joe.levrai]

Bonjour,

je n'ai jamais travaillé directement sur Owa

je génère mon mail sur le client outlook
je ne l'affiche pas (pas de .Display)
je l'enregistre simplement dans les brouillons (.Save)

il devient visible sur OWA dans les brouillons

maintenant, comment piloter OWA par VBA ? c'est une appli internet, ça serait peut être possible en manipulant le navigateur internet ... mais aucune idée

[Coxtox]

J'ai testé en enlevant le .display et en rajoutant .save

Le problème c'est que les personnes qui vont utiliser la macro n'ont pas "Outlook" ils n'ont que OWA.

Du coup ça ne marche pas .. Dommage mais merci quand même Joe.levrai ..

Si quelqu'un à une petite idée n’hésitez pas !

Cordialement.

[joe.levrai]

Patrick ou Marc sont des spécialistes, contrairement à moi
OWA est truffé d'interactions et son arborescence d'objets est très très compliquée

il faudrait pouvoir simuler avec VBA :

- un clic sur le bouton "nouveau mail" situé en haut à gauche (sur le plan OWA que j'utilise)
- focus sur les différents champs du mail et remplissage des éléments
- clic sur le bouton envoi


je suis désolé, mais ce n'est pas dans mes compétences le pilotage de IE ... et encore moins sur un site aussi complexe

[Marc-L]

Bonjour,

ne connaissant pas OWA, reste donc Patrick … Marc

Sinon envisager de passer par CDO, là aussi c'est pour Patrick !


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[joe.levrai]

Blague à part,

ici : http://answers.microsoft.com/en-us/o...5-cb58a120ce7f

l'auteur du message propose un code qui fait le début du travail : ouvrir en pop up un nouveau mail sur OWA

je n'ai pas les outils sous la main pour tester, regarde si ça peut t'intéresser

[Coxtox]

Bonjour,

J'ai testé et fait quelques recherches sans trouver ce dont je souhaitais.

Tout d'abord, Outlook Web App est-il identique à Outlook Web Access ?

Car j'ai des erreurs quand je teste le code de ton lien. Ensuite, je regarde pour envoyer un mail avec CDO .. ça semble être une alternative mais je ne connais pas trop.

En tout cas merci, et n'hésitez pas !

J'appelle Patrick à la barre !

[patricktoulon]

bonjour
heu... oui!! qui m'appelle

c'est pas moi Mr le juge qui ai mis le chat dans la machine a laver je vous le jure

y a qu'a demander ca ce passe ICI ET MAINTENANT

[Coxtox]

Salut Patrick ! Et Merci de répondre présent !

J'aimerai quelques petites précisions si possible ! Est ce que avec la méthode CDO c'est possible d'ouvrir OWA et de copier dans un nouveau message de OWA la plage en question sans l'envoyer ?

Car les utilisateurs devront remplir eux même l'objet et le destinataire...

Et pour OWA il faut bien laisser serveur en paramètre ?

Merci d'avance !

[patricktoulon]

Bonjour
j'avoue que je ne comprend pas ta question
tu voulais une plage dans le mail tu l'a

si dans le mail le destinataire doit remplir quelque chose c'a n'est plus une plage mais un formulaire

c'est quoi OWA???????

[Coxtox]

Alors en fait, je voudrais que lorsque l'utilisateur clique sur un bouton (sur un fichier Excel) le traitement ci-dessous s'effectue :

-Ouverture de Outlook Web App (et non Outlook car certain utilisateur ne l'ont pas)
-Ouverture d'un nouveau message
-Copie la plage B8:E19 dans le corps du mail OWA

Mais je ne sais pas si la méthode CDO développé permet de s'adapter à mon souhait.

[patricktoulon]

Bon ca yest j'ai compris

bon alors on était complètement a coté en fait depuis le début tu parlais de "OWA" Outlokk web application

dans ce cas la c'est avec IE qu'il faut travailler pas avec cdo ou Outlook application

comme quoi une question bien formulé au départ hein!!!!

je vais m'y intéresser et faire un exemple vite fait
je reviens toute a l'heure

[joe.levrai]

Hey !

j'avais pourtant bien indiqué qu'il fallait piloter IE ?

c'est pas parce que je suis une quiche avec IE qu'il faut lire mes posts en diagonale

Bonjour,

je n'ai jamais travaillé directement sur Owa

je génère mon mail sur le client outlook
je ne l'affiche pas (pas de .Display)
je l'enregistre simplement dans les brouillons (.Save)

il devient visible sur OWA dans les brouillons

maintenant, comment piloter OWA par VBA ? c'est une appli internet, ça serait peut être possible en manipulant le navigateur internet ... mais aucune idée

Patrick ou Marc sont des spécialistes, contrairement à moi
OWA est truffé d'interactions et son arborescence d'objets est très très compliquée

il faudrait pouvoir simuler avec VBA :

- un clic sur le bouton "nouveau mail" situé en haut à gauche (sur le plan OWA que j'utilise)
- focus sur les différents champs du mail et remplissage des éléments
- clic sur le bouton envoi


je suis désolé, mais ce n'est pas dans mes compétences le pilotage de IE ... et encore moins sur un site aussi complexe

[patricktoulon]

bon je viens d'essayer et c'est choux blanc le div du richtext est protéger
on ne peut que taper le texte pas l'injecter

walou!!!walou!!!

sinon comme base de code c'est ca:
je suis aller directement dans la page nouveau message

si tu n'est pas loguer ca le fait automatiquement pour revenir a la page nouveau message

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
Sub test_outlook_WEB_APP()
    Dim IE, URL, IEDoC, LoG, NeWMesS
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True
    IE.navigate "https://mail.live.com/default.aspx?rru=compose"
    Do: DoEvents: Loop While IE.readystate <> 4 Or IE.busy = True
    Set IEDoC = IE.document
    Debug.Print IEDoC.Location
    ok = IEDoC.getelementbyid("i0116") Is Nothing
    Debug.Print ok
 
    If ok = False Then
        IEDoC.getelementbyid("i0116").Value = "mon@hotmail.fr"
        IEDoC.getelementbyid("i0118").Value = "monmotdepasse"
        IEDoC.getelementbyid("idSIButton9").Click
    End If
    Do: DoEvents: Loop While IE.readystate <> 4 Or IE.busy = True
 
     Set corps = IEDoC.getelementsbyclassname("ComposeRteEditor_surface")
'ComposeRteEditor_surface 'nef onctionne pas
   'corps.SetFocus
    'corps.Value = "toto "
'ici il faudrait prendre le focus et injecter le code
 
Debug.Print IEDoC.Location
End Sub

je pense qu'il va falloir approfondir la question

re

voila une premiere solution

dis moi si ca fonctionne en 64 bit

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
34
35
36
37
38
39
40
41
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub TEST()
    Application.CutCopyMode = True
    injection_plage_in_OWA Range("b10:d13")
End Sub
 
Sub injection_plage_in_OWA(PLAGE)
    PLAGE.Copy
    Dim IE, URL, IEDoC, LoG, NeWMesS
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True
    IE.navigate "<a href="https://mail.live.com/default.aspx?rru=compose" target="_blank">https://mail.live.com/default.aspx?rru=compose</a>"
    Do: DoEvents: Loop While IE.readystate <> 4 Or IE.busy = True
    Set IEDoC = IE.document
    Debug.Print IEDoC.Location
    If InStr(IEDoC.Location, "https://login.live.com/login") > 0 Then
        IEDoC.getelementbyid("i0116").Value = "monmail@hotmail.fr"
        IEDoC.getelementbyid("i0118").Value = "chamaltoulon"
        IEDoC.getelementbyid("idSIButton9").Click
    End If
    Do: DoEvents: Loop While IE.readystate <> 4 Or IE.busy = True
    Application.Wait (Now + TimeValue("0:00:03"))
    keybd_event &H9, 0, 0, 0    'enfoncer la touche tab
    'keybd_event &H9, 0, &H2, 0    'relache la touche tab
    Sleep 100
    keybd_event &H9, 0, 0, 0    'enfoncer la touche
    keybd_event &H9, 0, &H2, 0    'relache la touche tab
 
    Sleep 100
    keybd_event 17, 0, 0, 0
    keybd_event 86, 0, 0, 0
    Sleep 50
    keybd_event 86, 0, &H2, 0
    keybd_event 17, 0, &H2, 0
    Sleep 50
      ' Application.CutCopyMode = False
    'Application.CutCopyMode = True
 
    Debug.Print IEDoC.Location
End Sub

il me reste a libérer la plage je travaille dessus

[kiki29]

Salut, voir également la FAQ

[Coxtox]

Salut tous le monde,

Merci Patrick pour ta réponse !

J'ai une erreur sur cette ligne au niveau du premier https (erreur fin d'instruction)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IE.navigate "<a href="https://mail.live.com/default.aspx?rru=compose" target="_blank">https://mail.live.com/default.aspx?rru=compose</a>"

Mais par contre quand je regarde les lignes suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 If InStr(IEDoC.Location, "https://login.live.com/login") > 0 Then
        IEDoC.getelementbyid("i0116").Value = "monmail@hotmail.fr"
        IEDoC.getelementbyid("i0118").Value = "chamaltoulon"
        IEDoC.getelementbyid("idSIButton9").Click

Le mail dépendra bien de l'utilisateur qui lance la macro ; autrement dit de la session sur laquelle il s'est identifié. Ça ne sera pas gênant au niveau de ces lignes ?

Merci de ton aide !

[patricktoulon]

l'erreur c'est par ce que j'ai oublié de cliquer sur enlever le lien dans le post
IE.navigate "https://mail.live.com/default.aspx?rru=compose"

si tu ne qlique pas l'icone qui est pointé dans cette capture le lien ce transforme en ce que tu a recu
Pièce jointe 180698



et oui a partir du moment que l'utilisateur met son mail et son mot de passe sa cession qui sera en fonction

kiki29

dans ton lien on devrait mettre les exemple de Outlook application a jour car chez moi ils ont jamais marchés

pour le cdo il a déjà un exemple que je lui avais concocté

ensuite dans la faq on pourrait ajouter l'exemple que je lui ai donné pour Outlook web application car c'est celui qu'il veut