Discussion :

[fazpedro]

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

[Oliv-]

Bonjour,

J'ai fait le ménage,beaucoup de choses qui ne servent à rien

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
 
Option Explicit
 
Sub Macro_modifie_mail()
 
'On Error GoTo errorHandler  'Si une erreur survient, on va à la ligne "errorHandler"
'vaut mieux avoir l'erreur lors du développement
 
Dim Itm As Object
Set Itm = ActiveInspector.CurrentItem
Itm.HTMLBody = Replace(Itm.HTMLBody, "________________________________________", " ") ' Remplacer les tirets pas jolis par un espace
 
Exit Sub ' SI TOUT EST OK
errorHandler:  MsgBox ("Attention !"), vbCritical, "PAS BON !"
 
End Sub

[fazpedro]

Super, cela fonctionne bien pour les remplacements !

Petite question pour la mise en forme : je voulais remplacer la police existante mais le code ci-dessous efface tout...

Code :

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

Itm.HTMLBody = "<font style='font-family:Arial;font-size:11pt;color:#000000;font-style:normal;'></font>"

J'ai essayé ainsi mais j'ai un message d'erreur : Argument non facultatif

Code :

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

Itm.HTMLBody = Replace(Itm.HTMLBody, "<font style='font-family:Arial;font-size:11pt;color:#000000;font-style:normal;'></font>")

Merci

[Oliv-]

Bonjour,
JE pense que cela va être très difficile en utilisant la modification du code HTML, il serait préférable d'utiliser l'objet WORDEDITOR , qui permet de traiter la mail comme un document WORD et d'utiliser les "macros" WORD

https://www.developpez.net/forums/d1...tionnent-word/

[fazpedro]

Génial, cela fonctionne bien !

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
Sub Macro_modifie_mail()
 
' Dimensions
Dim Itm As Object
Dim outlookwordeditor
Dim appOutlook As Outlook.Application
Dim oMail
Dim ObjwdSelection
' Paramètres
Set Itm = ActiveInspector.CurrentItem ' mail actif
Set appOutlook = Application
Set oMail = appOutlook.ActiveInspector.CurrentItem
Set outlookwordeditor = oMail.GetInspector.WordEditor
Set ObjwdSelection = outlookwordeditor.Application.Selection    ' on utilise les intructions WORD précédée de outlookwordeditor
 
 
ObjwdSelection.WholeStory ' Sélection totale
With ObjwdSelection.Font ' Format de police
    .Name = "Arial"
    .Size = 12
End With