MacroVB word envoi mail
Xgt
-
michel -
michel -
bonjour
je recherche une macro ou tout autre moyen automatisé qui me permettrait d'envoyer directement par mail (j'utilise The Bat!) un fichier word à la manière de Fichier/Destinataire de la télécopie, sans être obligé de passer par explorateur "envoyer vers" "send to " qui fonctionne correctement
j'utilise Word 97
je recherche une macro ou tout autre moyen automatisé qui me permettrait d'envoyer directement par mail (j'utilise The Bat!) un fichier word à la manière de Fichier/Destinataire de la télécopie, sans être obligé de passer par explorateur "envoyer vers" "send to " qui fonctionne correctement
j'utilise Word 97
5 réponses
-
bonjour,
voici une macro word que j'utilise avec outlook.
code :
' Déclaration des variables messagerie
Dim ol As Outlook.Application
Dim newMail As Outlook.MailItem
Dim myattachments As Outlook.Attachments
'Création des objets
Set ol = New Outlook.Application
Set newMail = ol.CreateItem(olMailItem)
Set myattachments = newMail.Attachments
'Remplissage des infos du mail
newMail.Subject = TypeFormulaire
newMail.body = "Voici un modèle de formulaire version Word."
newMail.body = newMail.body & Retour & Retour
newMail.body = newMail.body & "Vous trouverez ci-joint un
document Word."
newMail.body = newMail.body & Retour
newMail.body = newMail.body & "Double cliquer dessus pour
l'ouvrir."
newMail.body = newMail.body & Retour & Retour
newMail.body = newMail.body & "Bonne réception,
cordialement...."
newMail.body = newMail.body & Retour & Retour
newMail.body = newMail.body & Retour & Retour
newMail.body = newMail.body & Retour & Retour
myattachments.Add NomFic
Aqui = ActiveDocument.Bookmarks("Dest").Range.Text
newMail.To = Aqui
' 'Envoi du mail
newMail.Send
'Destruction variables
Set newMail = Nothing
Set ol = Nothing
Bon courage. -
-
kikoo les gens !
Dis nablathehut:
http://www.commentcamarche.net/forum/affich.php3?cat=3&ID=322059&page=1
C fou comme y a des gens qui serve a rien... ;-D
Na kaer eo va Breizh,
gand ar mor glaz èn-dro dezi !
-
-
bonjour,
Il faut ajouter le composant Outlook ou sa référence, je ne sais plus trop, avec le menu 'projet' 'référence' -
merci d'avoir répondu malheureusement je ne trouve aucun menu "projet " ou " référence "
désolé d'etre aussi nul !!!!
si tu as un autre commentaire plus precis je te serais tres reconnaissant -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
rectificatif j'ai bien ajouté outlook au menu com ( c'etait dans VBA " et je cherchais dans Word
donc ca passe et maintenant je bloque sur "chemin d'acces non spécifié" sur la ligne
"myattachments.Add NomFic "
