Discussion :

[kiwi01]

Bonjour et bonne année,
Je veux créer sous VBA Excel un mail auto, mon programme marche bien à ceci prêt que je perd le format WORD, plus de gras, plus de texte de couleur etc. et pourtant si je fais CTL+V aprés exécution j'ai bien tout dans le presse papier.... merci d'avance à celui qui peut m'aider.

Quelqu'un peut il m'aider.
voilà mon code :

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
21
22
23
24
25
26
27
28
29
30
31
Sub SendMail_Outlook()
    Dim esss As String
   Dim ol As New Outlook.Application
   Dim olmail As MailItem
   Dim CurrFile As String
   Set ol = New Outlook.Application
   Set olmail = ol.CreateItem(olMailItem)
Dim WordDoc As Word.Document
Dim WordApp As Word.Application
Dim Wb As Workbook
    Set WordApp = New Word.Application
    WordApp.Visible = False
    Set WordDoc = WordApp.Documents.Open("C:\x1.htm", ReadOnly:=True)
    With WordApp
        .Selection.WholeStory
        .Selection.Copy
    End With
With New DataObject
    .GetFromClipboard
    olmail.BodyFormat = olFormatHTML
    olmail.Body = .GetText(1)
End With
 
   With olmail
      .To = "xxxxxxxxxx"
      .Subject = "SSSSSSSS"
      .Display 
 
   End With
 
End Sub

[LeForestier]

Bonjour,
Je ne connaît pas les spécificités de Outlook mais c'est quand même du VBA, essaye sans passer par le DataObjet, en VBA la fonction Paste copie le contenu du presse-papier.
Du genre...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    olmail.Paste

Sans garantie.
A+