Bouton non-imprimable et problème transfert Outlook

**choouux** · 18/09/2007, 09h46

Bonjour,

Je cherche à savoir comment ne pas imprimer un bouton qui se trouve sur un document Word 2003.

Merci de votre aide

Pour info mon bouton sert à envoyer le document par E-Mail mais je n'arrive pas a remplir mon champs de destinataires

Si quelqu(un peut maider egalement dessus ca me ferait beaucoup plaisir

mon code est

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
SetMailAttachOption
End Sub
 
Sub SetMailAttachOption()
   Application.Options.SendMailAttach = True   'Or False
   ActiveDocument.SendMail
End Sub

Ps : j'ai deja regarder les autrers sujets mais je n'ai pas réussi a faire ce que je voulais

Merci d'avance

**Heureux-oli** · 18/09/2007, 11h05

Pourquoi ne passe-tu pas une userform, j'ai pas trouvé comment ne pas imprimer le bouton.

Par contre, pour le textbox, j'ai bien un transfert d'informations.

Code :

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

1
2
3
4
5
 
Private Sub CommandButton1_Click()
MsgBox Me.TextBox1.Value
 
End Sub

Fait à la va vite, il réagit bien !

**choouux** · 18/09/2007, 11h56

en fai tje ne voit pas comment une userform pourrait m'aider,

Mon bouton me sert à faire valider un document en le transmettant un un responsable de service via outlook.
J'ai donc besoin de laisser le bouton apparent afin que les utilisateurs le voit

A moins que la userform s'affiche à la fermeture du fichier et dans ce cas ca serait super mais je ne sais pas du tout comment faire ca

**Heureux-oli** · 18/09/2007, 12h17

Sur l'évènement on close du document, tu peux faire apparaître ton UserForm.
Dans la FAQ word, il y a la liste des macros qui s'exécutent seules.

Pour l'envoi Outlook, je viens seulement de voir.

Il faut déclarer l'application Outlook pour pouvoir envoyer ton document.

En premier lieu, ajouter les références Outlook à ton projet.
Ensuite déclarer l'application Outlook dans ton code.
Utiliser un objet message et lui ajouter ton fichier en pièce jointe.

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
 
Private Sub CommandButton1_Click()
MsgBox Me.TextBox1.Value
Dim oApp As New Outlook.Application
Dim oMail As MailItem
Dim oDoc As Document
Set oDoc = ActiveDocument
oDoc.SaveAs "c:\temp\oli.docx"
 
 
 
Set oMail = oApp.CreateItem(olMailItem)
oMail.Attachments.Add ("c:\temp\oli.docx")
oMail.To = "Mon.detsinataire@dvp.com"
 
oMail.Send
 
 
 
End Sub

Voilà un exemple qui devrait t'aider un peu je pense

**choouux** · 18/09/2007, 14h05

Je dois etre très nul car en j'ai bien vu que les Fonction Autoclose et Autoexit pourraient m'aider mais je ne saias pas ou les mettre

ton idée de lancer la userform1 a la fermeture du document est meilleure , d'ailleur cette userform1 est prete mais je n'arrive vraiment pas à la faire afficher quand je quitte word

il doit y avoir la synthaxe

UserForm1.show mais à quel endroit ?

**Heureux-oli** · 18/09/2007, 14h33

Regarde sur le document joint, ouvre le et ferme le.

**choouux** · 19/09/2007, 09h36

Génial ca fonctionne impeccable

j'arrive a charger mon userform en quittant le document word aprsè en fonction de mon bouton que je selectionne outlook s'ouvre et prépare un E-mail avec la pièce jointe inclue

Grand merci à toi

Me manque plus qu'a reussir a remplir les champs d'adresse prédéfini dans outlook

Mais deja un enorme pas , grace toi

**Heureux-oli** · 19/09/2007, 09h39

Dans mon code, je viens de vérifier, mais le

Code :

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

oMail.to

Permet de rentre le nom des destinataires.

**choouux** · 19/09/2007, 11h10

Je ne comprend pas dans le code que tu me propose au dessus j'ai une erreur sur toutes les variables

le message de dit " type défini par l'utilisateur non défini "

comment résoudre ce problème ?

le seul code qui fonctionne est celui la

Code :

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

1
2
   Application.Options.SendMailAttach = True   'Or False
   ActiveDocument.SendMail

En tout cas merci à toi , j'apprend beaucoup de choses

**Heureux-oli** · 19/09/2007, 11h18

En premier lieu, ajouter les références Outlook à ton projet.
Ensuite déclarer l'application Outlook dans ton code.
Utiliser un objet message et lui ajouter ton fichier en pièce jointe.

C'est parce que tu n'as pas ajouté les ref comme inscrit