Foire aux questions Microsoft Word - Club d'entraide des développeurs francophones

Sommaire > VBA > Interraction avec d'autres logiciels
Comment envoyer un document par mail ?
Comment utiliser Word avec les autres logiciels de la suite Office ?

Comment envoyer un document par mail ?

[haut]

auteur : Lebeau Olivier

Pour envoyer un document par mail, la méthode la plus simple est :

Methode SendMail


Sub EnvoiDoc()
ActiveDocument.SendMail
End Sub

Cette méthode va ouvrir Outlook et vous devrez entrez les destinataires dans les cases prévues. Le document se trouve en pièce jointe du message.

Vous avez aussi la possibilité d'utiliser une procédure qui fera appel à Outlook directement dans votre code. N'oubliez pas d'ajouter la bibliothèque Microsoft Outlook à votre projet.

Via Outlook


Sub EnvoiMail() 
Dim oApp As Outlook.Application 
Dim MyIt As MailItem 
Dim myAtt As Attachment 
Set oApp = CreateObject('outlook.application') 
Set MyIt = oApp.CreateItem(olMailItem) 
Set myAtt = MyIt.Attachments.Add(ActiveDocument.FullName) 
MyIt.To = 'LeNom@FAI.fr' 
MyIt.Subject = 'Sujet de l'envoi' 
MyIt.BodyFormat = olFormatHTML 
MyIt.Body = 'mon corps de message' 
MyIt.Send 
End Sub

Le code ci-dessus va envoyer le document en tant que pièce jointe.
Si vous voulez que votre document soit le corps du message :

Document comme corps du message


Sub EnvoiMail()
Dim oApp As Outlook.Application
Dim MyIt As MailItem
'Dim myAtt As Attachment
Dim stTemp As String
Dim myRange As Range
Set myRange = ActiveDocument.Range
myRange.WholeStory
myRange.Select
stTemp = Selection.Text
 
Set oApp = CreateObject("outlook.application")
Set MyIt = oApp.CreateItem(olMailItem)
'Set myAtt = MyIt.Attachments.Add(ActiveDocument.FullName)
 
MyIt.To = "olivier.lebeau@mil.be"
MyIt.Subject = "Sujet de l'envoi"
MyIt.BodyFormat = olFormatHTML
MyIt.Body = stTemp
 
MyIt.Send

End Sub

Comment utiliser Word avec les autres logiciels de la suite Office ?

[haut]

auteur : Lebeau Olivier

VBA vous permet d'utiliser les librairies des autres logiciels et de cette manière utiliser les fonctionnalités des autres logiciels.

Les principes énoncés ci-dessous sont applicable à Word, mais aussi aux autres logiciels.

Pour pouvoir utiliser Word dans un autre logiciel, vous devez ajouter les références de Word dans votre projet.

Dans la liste, vous devez choisir la librairie qui correspond à la version de Word que vous utilisez.

Si vous ne référencez pas cette librairie, lors de l'utilisation de votre code, vous lèverez une Erreur.

Pour utiliser Word, vous devez déclarer un objet Word et lui affecter une valeur. Il existe plusieurs manières de travailler :

Affectation dès la déclaration


Dim wApp As New Word.Application

Déclaration et ensuite affectation


Dim wApp as Word.Application
Set wApp = CreateObject("Word.Application")

Il existe également une méthode qui ne nécessite pas le référencement de la librairie. Cette méthode est intéressante si vous ne connaissez pas la version de Word qui sera utilisée. Mais, il y a un mais, vous n'aurez pas l'aide à la saisie de votre code, les erreurs de frappe seront plus difficile à détecter.

Sans référencement à la librairie


Dim wApp As Object
Set wApp = CreateObject("Word.Application")

Cette dernière méthode est appelée le Late Binding ou Liaison Tardive, alors que les deux premières sont appelées Early Binding ou liaison précoce.

Consultez les autres F.A.Q's

Les sources présentés sur cette pages sont libre de droits, et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright ©2008 Developpez LLC. Tout droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérets. Cette page est déposée à la SACD.