Envoyer un formulaire Word en pièce jointe

[gd-cbt]

Bonjour,
Après avoir cherché un moment je ne trouve pas de réponse à ma question...
Via un bouton dans mon formulaire Word (2003 et 2010) j'aimerais envoyer celui-ci en pièce jointe (via Outlook) sans avoir à le sauvegarder préalablement.
Et, question subsidiaire... est-il possible de désactiver le message demandant l'autorisation d'envoi ? Précision qui a son importance..., il n'est pas possible dans notre configuration de changer le niveau de sécurité d'Office.
Merci pour vos réponses et toutes vos informations tellement utiles.

[Heureux-oli]

Salut,

J'ai peut-être un peu de lecture : http://heureuxoli.developpez.com/office/sondage/

Pour la sauvegarde, il faudra sauvegarder, c'est le seul moyen pour ajouter une pièce jointe à un message.

Pour éviter le message intempestif, on peut utiliser une instance ouverte d'Outlook au lieu d'en créer une nouvelle.

[gd-cbt]

Salut,
Merci pour les infos.
Comment je fais pour utiliser une instance ouverte d'Outlook ? Voici ce que ce que j'ai actuellement : Set objOApp = CreateObject("outlook.application")
(je n'aimerais pas à avoir à saisir le nom du destinataire)

Merci.

[gd-cbt]

Info supplémentaire.
Voici ce que j'utilise mais je dois toujours de valider l'envoi..

Code :

Set oOutlookApp = GetObject(, "Outlook.Application")

en cas d'erreur je créé un object "Outlook Application"
ensuite ceci

Code :

Set oItem = oOutlookApp.CreateItem(olMailItem)

puis les paramètres de oItem et

Code :

.Send

Quel est mon erreur ?

[Heureux-oli]

Salut,

Ta ligne

Code :

Set objOApp = CreateObject("outlook.application")

devient

Code :

Set objOApp = outlook.application

.
Si Outlook n'est pas ouvert, tu reçois un message d'erreur.

[gd-cbt]

Merci pour la réponse.
Malheureusement toujours pareil avec ceci

Code :

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
Sub EnvoiAvecFichierJoint()
Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
On Error Resume Next
If Len(ActiveDocument.Path) = 0 Then
    MsgBox "Le document doit être sauvegarder avant d'être envoyé"
    Exit Sub
End If
'Set oOutlookApp = GetObject(, "Outlook.Application")
Set oOutlookApp = Outlook.Application
If Err <> 0 Then
    Set oOutlookApp = CreateObject("Outlook.Application")
    bStarted = True
End If
Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
    .To = "dupont@durant.ch"
    .Subject = "Demande"
    .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _
      DisplayName:="Document attaché"
    .Send
End With
If bStarted Then
    oOutlookApp.Quit
End If
Set oItem = Nothing
Set oOutlookApp = Nothing
End Sub

Suis-je si b.... ?
Le niveau de sécurité dans Office est sur "Moyen" !!!

[Heureux-oli]

Salut,

Si c'est la ligne createobject qu iest prise en compte, tu auras toujours le message.

[gd-cbt]

Salut,
Mais je ne passe sur la ligne en question que si outlook n'est pas ouvert. Ayant Outlook ouvert je ne passe pas sur cette ligne et j'ai quand même le message me demandant de valider l'envoi...
Je pense que le plus simple pour moi est d'arriver à convaincre mon utilisateur de publier ce document tel qu'il est...
J'ai passé assez de temps là-dessus

Merci pour tes efforts et tes solutions. Bonne fin de semaine. GD