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
A voir également:
- MacroVB word envoi mail
- Word 2013 - Télécharger - Traitement de texte
- Tableau word - Guide
- Word et excel gratuit - Guide
- Espace insécable word - Guide
- Supprimer page word - Guide
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.
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 !
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'
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
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
j'essaie d'utiliser ta lacro mais elle bloque sur
"Dim ol As Outlook.Application" type non défini
est ce parce que j'ai word 2000 et ta macro marche que sur word 2002 oi il y a une autre raison?
Merci