A voir également:
- MacroVB word envoi mail
- Word 2013 - Télécharger - Traitement de texte
- Tableau word - Guide
- Espace insécable word - Guide
- Supprimer une page word - Guide
- Word et excel gratuit - 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.
Desoler mais je ne puis t aider...
Nablathehut
Nablathehut
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