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
Surtout,

Ne pas oublier d'activer Outlook dans les références.