A voir également:
- MacroVB word envoi mail
- Supprimer une page word - Guide
- Yahoo mail - Guide
- Espace insécable word - Guide
- Organigramme word - Guide
- Word 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.
nablathehut
Messages postés
81
Date d'inscription
vendredi 2 mai 2003
Statut
Membre
Dernière intervention
4 septembre 2007
6
10 juin 2003 à 15:10
10 juin 2003 à 15:10
Desoler mais je ne puis t aider...
Nablathehut
Nablathehut
asevere
Messages postés
13084
Date d'inscription
lundi 28 janvier 2002
Statut
Webmaster
Dernière intervention
3 février 2022
426
17 juin 2003 à 23:50
17 juin 2003 à 23:50
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
24 sept. 2003 à 17:19
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