Accueil
Accueil Le Club Delphi Kylix C C++ Java J2EE DotNET & C# Visual Basic Access Pascal Dev Web PHP ASP XML UML SQLSGBD Windows Linux Autres
logo

precedent    sommaire    suivant   


Comment envoyer un document par mail ?
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 ?
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.


precedent    sommaire    suivant   

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.

Vos questions techniques : forum d'entraide Accueil - Publiez vos articles, tutoriels, cours et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones. Nous contacter - Copyright 2000..2005 www.developpez.com