OVH Cloud OVH Cloud

Fichier/Envoyer vers... Envoyer le doc en mail en VBA

7 réponses
Avatar
pieridas
Pros de Word 2000, salut !

Je voudrais envoyer en mail un document par Fichier / envoyer vers /
Destinataire...

Suis sous XP Home SP2 avec Outlook 2000 comme client de messagerie.

Mon utilisateur lance une macro qui ajoute certaines pièces jointes selon le
contenu de certains champs de formulaire, jusque là tout va bien

Idéalement, Il faudrait que cette macro valide aussi le bouton Options (des
messages) pour cocher "Demander une confirmation de lecture"
et qu'elle déclenche l'envoi en cliquant le bouton "Envoyer une copie".

Mais ces 2 dernières tâches sont impossibles à enregistrer dans la macro.

Débutant sous vba, je ne connais pas les instructions à employer et
l'enregistrement ne donne rien.

Je dois passer à coté d'un truc gros comme une maison, mais vba quand on
commence c'est vraiment une "maison"!

Merci d'avance pour les tuyaux

pieridas

7 réponses

Avatar
Anacoluthe
Bonjour !

'pieridas' nous a écrit ...
Idéalement, Il faudrait que cette macro valide aussi le bouton Options (des
messages) pour cocher "Demander une confirmation de lecture"
et qu'elle déclenche l'envoi en cliquant le bouton "Envoyer une copie".
Débutant sous vba, je ne connais pas les instructions à employer et
l'enregistrement ne donne rien.


Juste un petit conseil : les quelques fonctions vba de messagerie
dans Word sont très limitées, le mieux dans ce domaine est de faire
vos macros dans votre OL2000. C'est beaucoup plus pratique.

Anacoluthe
« On rejette toujours la faute sur le messager. »
- Donald WESTLAKE

Avatar
pieridas

Juste un petit conseil : les quelques fonctions vba de messagerie
dans Word sont très limitées, le mieux dans ce domaine est de faire
vos macros dans votre OL2000. C'est beaucoup plus pratique.

Anacoluthe



Merci M. Anacoluthe

Mais sous Outlook 2000 quand je déroule Outils/Macros je ne dispose pas de
"Nouvelle macro..."

(Contrairement à Word ou Excel)

C'est grave docteur? Sous Outlook il faut saisir le code directement pour
enregistrer une macro?

Sniff! Ca ne m'arrange pas du tout
J'ai pourtant vérifié avoir installé toutes les options Outlook

pieridas

Avatar
Clément Marcotte
Bonjour,

Mais sous Outlook 2000 quand je déroule Outils/Macros je ne dispose pas
de "Nouvelle macro..."

(Contrairement à Word ou Excel)

C'est grave docteur?


C'est grave mais c'est malheureusement normal.

Sous Outlook il faut saisir le code directement pour enregistrer une
macro?


Oui. Seuls Excel, Word et PowerPoint ont un enregistreur de macros. Tous les
autres, c'est l'huile de bras et l'huile de tête.

Avatar
Anacoluthe
Bonjour !

'pieridas' nous a écrit ...
C'est grave docteur? Sous Outlook il faut saisir le code directement pour
enregistrer une macro?


Évidemment. Mais ça ne change rien pour vous : la macro dont vous
parliez (des pièces jointes selon des champs de formulaire) n'a
certainement pas été écrite avec l'enregistreur de macros...

Anacoluthe
« On rejette toujours la faute sur le messager. »
- Donald WESTLAKE

Avatar
Clément Marcotte
Bonjour,

Oui mais tu ne lui a pas dit si c'est grave. ;-)


"Anacoluthe" a écrit dans le message de news:
%239rKKN%
Bonjour !

'pieridas' nous a écrit ...
C'est grave docteur? Sous Outlook il faut saisir le code directement pour
enregistrer une macro?


Évidemment. Mais ça ne change rien pour vous : la macro dont vous
parliez (des pièces jointes selon des champs de formulaire) n'a
certainement pas été écrite avec l'enregistreur de macros...

Anacoluthe
« On rejette toujours la faute sur le messager. »
- Donald WESTLAKE



Avatar
pieridas

Évidemment. Mais ça ne change rien pour vous : la macro dont vous
parliez (des pièces jointes selon des champs de formulaire) n'a
certainement pas été écrite avec l'enregistreur de macros...

Anacoluthe


Merci à Anacoluthe et Clément pour vos informations

J'ai pu obtenir le code ci-dessous avec l'enregistreur de macro pour
attacher la pièce jointe à partir d'un test sur un champ de formulaire
(c'est un champ texte, car avec des Cases à cocher impossible de valider
l'envoi du document HTML, je précise que le document associé à la macro est
envoyé dans le corps du message)

If ActiveDocument.FormFields("amiante").Result = "x" Then 'AMIANTE
Selection.InsertFile _
FileName:="""C:Documents and SettingsxxxxxxxxMes
documentsyyyyyyyyyyyyamianteamiante.pdf""", _ 'Chemin d'accès ajouté
manuellement
Range:="", ConfirmConversions:úlse, Link:úlse, Attachment:=True
End If

Cordialement

pieridas

Avatar
Anacoluthe
Bonjour !

'Clément Marcotte' nous a écrit ...
Oui mais tu ne lui a pas dit si c'est grave. ;-)


:-D

Anacoluthe
« Tant qu’on a la santé, c'est pas grave d'être malade. »
- Francis BLANCHE