[VBA-W] publier sur exchange

[e040098k]

Bonjour,

Je cherche à dévelloper une macro me permettant d'automatiser la publication d'un doc word sur un dossier exchange ( manuellement Fichier -->Envoyer vers--> Dossier Exchange...).

Avec l'enregistreur, je n'obtient que :" ActiveDocument.Post ", seulement je souhaite automatiser le choix de l'emplacement. Je n'ai rien trouver sur la FAQ, alors toute aide est la bienvenue !!

Merci Beaucoup

Pierro

[dadavyvy]

As-tu essayé avec les dialogboxes prédéfinies par Word, genre Dialogs(wdDialogFileRoutingSlip) ?

[e040098k]

As-tu essayé avec les dialogboxes prédéfinies par Word, genre Dialogs(wdDialogFileRoutingSlip) ?

Je connais les FileDialog mais ca je connais pas, et dans l'aide et sur google je trouve rien!
Tu l'utilise comment?

[dadavyvy]

Euh... [F1] sur Dialogs :

Code :

Dialogs(wdDialogFileRoutingSlip).Show

La différence entre .Show, .Display et .Execute, je crois que :
.Display affiche juste la boite de dialogue, sans rien executer derriere meme si l'utilisateur change des options
.Show affiche la boite de dialogue pour execution
.Execute execute la boite de dialogue sans afficher la boite (-> je n'en suis pas sûr)

Rem. dans VBA Excel, il n'y a que la méthode Show

[e040098k]

Ok, et après tu peut mettre un "ChangeFileOpenDirectory" ?
et préciser le lieu d'enregistrement ?

Je peux pas le tester g pa outlook chez moi je le testerrais demain au boulot.

En tous cas merci pour ton aide

[e040098k]

Code :

Dialogs(wdDialogFileRoutingSlip).Show

Ca fonctionne mais cela m'ouvre la boite de dialogue envoyers vers "Destinataire du routage"

Moi je veux l'envoyer vers un dossier public !

[dadavyvy]

A part ça, je ne sais pas, car je n'est pas de Server Exchange...

Neanmoins, voici un exemple sur le site microsoft pour publier un fichier Visio dans un dossier Exchange. J'espère que tu pourras adapter, et finalement nous poster ta solution...

Je mets l'exemple ici, au cas où Bill déciderait de changer les liens :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub PostDrawing()
 
    Dim olApp As Object
    Dim olNS As Object
    Dim oFolder As Object
    Dim oItem As Object
 
    Set olApp = CreateObject("Outlook.Application")
    Set olNS = olApp.GetNameSpace("MAPI")
    Set oFolder = olNS.PickFolder
    Set oItem = oFolder.Items.Add("IPM.Document.*.VSD")
 
    oItem.MessageClass = "IPM.Document.*.VSD"
 
    ' Change the file name to your file name and path.
    oItem.Attachments.Add "C:\Drawing1.vsd" 
 
    ' Change the Subject line to your text.
    oItem.Subject = "Drawing1.vsd"
    oItem.Save
 
End Sub

[e040098k]

Merci beaucoup je vois ca et vous tiens au courant

[e040098k]

Ca fonctionne aussi avec les .doc
Seulement je n'arrive pas à définir moi même la variable "oFolder"
Je voudrais qu'elle prenne la valeur d'une chaine

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub PostDrawing()
    Dim olApp As Object
    Dim olNS As Object
    Dim oFolder As Object
    Dim oItem As Object
 
    Set olApp = CreateObject("Outlook.Application")
    Set olNS = olApp.GetNamespace("MAPI")
    Set oFolder = olNS.PickFolder
    Set oItem = oFolder.Items.Add("IPM.Document.*.DOC")
 
    oItem.MessageClass = "IPM.Document.*.DOC"
 
    ' Changez le chemin complet du fichier
    oItem.Attachments.Add "C:\Documents and Settings\stagiaire1\Bureau\NomDoc.doc"
 
    ' Changez le sujet de votre document
    oItem.Subject = "Sujet1.doc"
    oItem.Save
 
End Sub