OVH Cloud OVH Cloud

impression formulaires outlook2002

1 réponse
Avatar
Salut,
Outlook ne gère pas les impressions de formulaire de façon ergonomique donc
j'essaye de passer par Word pour imprimer.
J'ai créé un bouton dans le formulaire qui exécute le vbscript suivant

Sub cmdImpr_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word"
Else
MsgBox "ça marche"
Dim oWordApp
Dim oDoc

Set oDoc = oWordApp.Documents.Add("H:\modele1.dot")

strMyField = Item.UserProperties.Find("fm1Nom")
oDoc.FormFields("Text1").Result = strMyField
strMyField=Item.UserProperties.Find("fm1Prenom")
oDoc.FormFields("Text2").Result = strMyField

oDoc.PrintPreview

'Const wdDoNotSaveChanges = 0
'oDoc.Close wdDoNotSaveChanges

'oWordApp.Quit

'Set oDoc = Nothing
'Set oWordApp = Nothing
End If
End Sub

Mais au niveau de la ligne
oDoc.FormFields("Text1").Result = strMyField
mon debugger me marque l'erreur "Microsoft Word: le membre de la collection
requis n'existe pas"

Une idée ?

1 réponse

Avatar
Juste pour précision c'est Word et Outlook version 2002