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
Partager