Discussion :

[fonkwe]

Oliv,

J'ai essayé le module

Code :

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

1
2
3
Sub test_mso()
Application.CommandBars.ExecuteMso ("FilePrintPreview")
End Sub

dans Excel et puis dans Access et les deux tests sont concluants : Ils affichent bien l'aperçu avant impression ...

[fonkwe]

Ne faut-il pas essayer dans Outlook étant donné que c'est Outlook qu'il faut piloter ?
Là, c'est un échec :

[Oliv-]

Oui essaye le code initial

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
Sub call_phone_contact()
    Dim colCB, objCBB
    'A partir d'1 contact
    Dim objInsp As Inspector
    Set objInsp = ActiveInspector
    Set colCB = objInsp.CommandBars
    If Not objInsp Is Nothing And objInsp.CurrentItem.Class = olContact Then
        objInsp.CommandBars.ExecuteMso ("Call")
    End If
 
End Sub
 
 
Sub appel_contact()
Dim mycontact As ContactItem
    Set mycontact = Application.CreateItem(olContactItem)
    mycontact.BusinessTelephoneNumber = "0123456789"
    mycontact.Display
    call_phone_contact
    mycontact.Close olDiscard
End Sub

[fonkwe]

Et ça marche ... aussi. Très curieux

[fonkwe]

Et pourtant, ça reste désespérément bloqué à la ligne Set colCB = objInsp.CommandBars. ... si je lance la même procédure depuis Access