Surtout,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Public Sub EnvoiMessage() Dim OutApp As New Outlook.Application Dim oMsg As MailItem Dim destinataire As String Dim sujet As String Dim corps As String destinataire = "destinataire@developpez.com" sujet = "test de message" corps = ActiveDocument.Content Set oMsg = OutApp.CreateItem(olMailItem) With oMsg .To = destinataire .Subject = sujet .Body = corps .BodyFormat = olFormatRichText .Attachments.Add "c:\temp\doc.docx" End With oMsg.Send
Ne pas oublier d'activer Outlook dans les références.
Partager