Discussion :

[th3sorrow]

Bonjour,

plutôt débutant sur vba, je tente de créer une macro permettant de récupérer les données d'un mail Outlook, puis de le transférer dans un document Word afin de l'imprimer. Evidemment si je poste c'est que cela ne marche pas, le problème venant de la création du document.

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
 
 
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
    Dim olApp As New Outlook.Application
    Dim wdApp As Word.Application
    Dim fax As Word.Document
    Dim mail As Object
    Dim ActivePrinter As Object
 
 
'If (myItem.SentOnBehalfOfName = "fax@amg.lan") Then
    If MsgBox("Vous allez envoyer un fax. Continuer ?", vbQuestion + vbOKCancel) = vbCancel Then
        Cancel = True
    Else
        Cancel = True
        Set mail = olApp.ActiveInspector.CurrentItem
 
        Set wdApp = CreateObject("Word.Application")
        wdApp.Visible = False
        Set fax = wdApp.Documents.Add
 
        With fax.Selection
            .TypeText Text = mail.Subject
            .TypeText Text = mail.Body
        End With
 
        fax.PrintOut (ActivePrinter = "\\TAZ-WINSERV2K3\c360fax sur Ne01:")
 
    End If
'End If
 
End Sub

Et voici la liste des références cochées :
- Visual basic for Apps
- MS Outlook 12.0 object library
- MS Word ""
- MS Office ""
- MS Scripting Runtime
- OLE Automation
- MS Exchange 1.0 type library
- Mail message ""
- PrintUI objects ""
- Print Management Console 1.0 type library

Ayant bien activé la librairie Word, et ayant pris le code depuis la FAQ vba Word je ne vois pas du tout pourquoi j'ai ce problème.
Evidemment étant débutant, j'ai sûrement dû rater quelque chose d'évident.
Bref si vous avez des suggestions/corrections je suis preneur !
Merci par avance

[Heureux-oli]

Salut,

Tu fais des mélanges.

Si tu utilises du Early Binding, c'est ce que tu fais quand tu ajoutes des références à ton projet. On déclare directiement les bons objets.

Code :

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

1
2
Dim wApp as Word.Application
Dim Fax As Word.Document

Ensuite, on affecte directement les objets.

Code :

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

1
2
Set wApp = New Word.Application
Set Fax = wApp.Documents.Add

Pour mettre du texte dans le document,

Code :

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

1
2
3
4
        With fax.Selection
            .TypeText Text = mail.Subject
            .TypeText Text = mail.Body
        End With

ce code ne fonctionne pas, l'objet Selection appartient à l'objet application.

Code :

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

1
2
3
4
With wApp.Selection
    .Typetext mail.Subject
    .TypeText mail.Body
End With

Et ce code ne me dit rien dansla FAq Word.

[th3sorrow]

Merci pour votre réponse, effectivement il y'avait 'quelques erreurs'. Malheureusement malgré vos corrections, j'ai une erreur ActiveX disant qu'il ne peut créer le composant. La librairie Word est pourtant toujours activée.

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
 
[...]
    Dim olApp As New Outlook.Application
    Dim wdApp As Word.Application
    Dim wdfax As Word.Document
    Dim mail As Object
    Dim ActivePrinter As Object
 
[...]
        Set mail = olApp.ActiveInspector.CurrentItem
 
        Set wdApp = New Word.Application
        Set wdfax = wdApp.Documents.Add
 
        With wdApp.Selection
            .TypeText mail.Subject
            .TypeText mail.Body
        End With

Ah et le code concernant la création du doc Word venait d'ici.

Merci du temps consacré à ce sujet =)

[th3sorrow]

Mea culpa, le DD de ma machine virtuelle était saturée ce qui évidemment empêchait de créer un nouveau doc.

Merci pour votre aide ! =)

[Heureux-oli]

Salut,

Effectivement, je n'avais jamais revu ce code.

La méthode CreateObject est principalement utilisée en Late Binding (c'est à dire lorsque l'on ne déclare pas la bibliothèque au projet.


Ton problème d'ActiveX ne provient pas du bout de code que tu nous donnes.