Bonjour,

Quand je veux transférer un mail et que celui d'origine n'étant pas très joli, je souhaite le remettre en forme avant de l'envoyer (remplacer certains champs, police,...)

Voici mon code, mais cela ne fonctionne pas, si vous avez des idées je suis preneur.

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
32
33
34
35
36
37
 
Option Explicit
  Dim Email
  Dim EmailMsg
  Dim olMailItem
  Dim zone_ecran2 As String
  Dim mail_html As String 'pour HTML dans le corps du message
  Dim Rep As Integer ' pour réponse de l'utilisateur
  Dim repmsg As VbMsgBoxResult
  Dim num_ligne As Integer
Sub Macro_modifie_mail()
 
Dim App As Outlook.Application
Dim INSP As Outlook.Inspector
Dim Expl As Outlook.Explorer
Dim OITEM As Object
Dim vntProp As Variant
Set App = Outlook.Application 'désigne Outlook
Set Expl = App.ActiveExplorer 'désigne l'exploreur actif càd la fenêtre des dossiers.
Set INSP = ActiveInspector 'désigne la fenêtre de l'élement actif
 
Set Email = CreateObject("Outlook.Application")
Dim EmailMsg As Object
Set EmailMsg = Email.CreateItem(0)
 
On Error GoTo errorHandler  'Si une erreur survient, on va à la ligne "errorHandler"
 
Dim Itm As Object
Set Itm = ActiveInspector.CurrentItem
Itm.HTMLBody = Replace(Itm, "________________________________________", " ") ' Remplacer les tirets pas jolis par un espace
 
Set EmailMsg = Nothing
Set Email = Nothing
Exit Sub ' SI TOUT EST OK
errorHandler:  MsgBox ("Attention !"), vbCritical, "PAS BON !"
 
End Sub