Discussion :

[Flodelarab]

Bonjour,

Je me place dans Outlook avec une macro VBA. Je voudrais sélectionner un mail reçu et le reproduire à l'identique pour l'envoyer.
Malheureusement,

• Si j'utilise MailItem.Copy, j'ai la copie d'un mail reçu. Donc je ne peux que répondre et transférer.
• Si j'utilise MailItem.Forward, j'ai un mail parfait pour être envoyé mais avec des entêtes disgracieuses. J'ai abandonné l'idée de les enlever du code html.
• Si je fabrique un nouveau mail, je n'arrive pas à ré-attacher les anciennes pièces jointes.

Je perds patience.

Comment joint-on les pièces jointes d'un autre mail ?
OU
Comment réenvoie-t-on un courrier ? (le pire, c'est que cette fonctionnalité simple existe dans outlook mais pas simple en VBA... à moins que vous sachiez ...)


Merci de votre attention.

[Oliv-]

Salut,
Sans programme ou complément additionnel, il me semble qu'il y a 2 méthodes possibles.

La première, tu enregistres dans un dossier windows toutes les PJ puis tu les ajoutes à ton Nouvel Email.

La seconde, tu transfères le Mail et corrige les éléments nécessaires. voici un exemple de cette méthode

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub MsgRenvoi(myMail As MailItem)
'---------------------------------------------------------------------------------------
' Procedure : MsgRenvoi
' Author    : Oliv'
' Date      : 24/04/2015
' Purpose   : RENVOI
'---------------------------------------------------------------------------------------
'
    Dim LaReponse As Outlook.MailItem
    Dim StrID As String
    Dim olNS As Outlook.NameSpace
    Dim Msg As Outlook.MailItem
    Dim Destinataire, liste
    Dim myRecipient As Outlook.Recipient
    Dim continuer
 
    StrID = myMail.EntryID
    Set olNS = Application.GetNamespace("MAPI")
    Set Msg = olNS.GetItemFromID(StrID)
 
    Set LaReponse = Msg.Forward    ' car ReplyAll ne met pas les PJ
    LaReponse.subject = Msg.subject
        Set myRecipient = LaReponse.Recipients.add(Msg.SenderEmailAddress)
        myRecipient.Resolve
 
    For Each Destinataire In Msg.Recipients
        Set myRecipient = LaReponse.Recipients.add(Destinataire.Address)
        On Error Resume Next
        myRecipient.Type = Destinataire.Type
        myRecipient.Resolve
        On Error GoTo 0
        If Not myRecipient.Resolved Then
            myRecipient.Delete
            Set myRecipient = LaReponse.Recipients.add(Destinataire.Name)
            myRecipient.Type = Destinataire.Type
            myRecipient.Resolve
        End If
    Next Destinataire
 
    Select Case LaReponse.BodyFormat
        'ici on vérifie le format du message HTML OU BRUT ...
 
    Case olFormatHTML:
        LaReponse.HTMLBody=Msg.HTMLBody
 
    Case Else
        ObjCurrentMessage.Body = Msg.body
 
    End Select
    LaReponse.Display
    '    LaReponse.Send
    Set Msg = Nothing
    Set olNS = Nothing
End Sub

[Oliv-]

en fait il y a aussi cette méthode très simple à partir d'un Email Ouvert :

Code :

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

1
2
3
4
5
6
7
8
9
Sub RenvoiEmail()
 
    Dim objMail As Outlook.MailItem
    Set objMail = ActiveInspector.CurrentItem
    'ici on modifie le corps du Mail
    objMail.HTMLBody = "test " & objMail.HTMLBody
    objMail.Send
 
End Sub

[Flodelarab]

C'est bien tout le dilemme. La modification du html n'est pas un ajout mais une suppression. Et détecter les vilaines entêtes dans du code html touffu avec les outils VBA, j'abandonne tout de suite.

Le format du mail n'est pas tout. Car il peut me sortir un mail en html, dont les photos insérées en plein milieu du texte sont changées par le texte alternatif ou un lien cassé.

Pour être franc, pressé par le temps, j'ai changé ma façon de faire. Maintenant, j'utilise la méthode Copy d'un mail enregistré en brouillon. Le titre (sans "Fwd:"), les photos insérées, la capacité d'envoi sont intactes et je peux continuer mon script et l'envoyer.

Merci de t'être penché sur mon problème.

[Oliv-]

... La modification du html n'est pas un ajout mais une suppression. Et détecter les vilaines entêtes dans du code html touffu avec les outils VBA, j'abandonne tout de suite.

Le format du mail n'est pas tout. Car il peut me sortir un mail en html, dont les photos insérées en plein milieu du texte sont changées par le texte alternatif ou un lien cassé.

Qu'est ce que tu entends par "n'est pas un ajout mais une suppression"
dans mon premier exemple je remet le hmtl du message d'origine.

[Flodelarab]

Hum. Pour ne pas dire de bêtise, j'ai re-testé ce matin. Et ça marche.

Hier, il me remplaçait la photo par un texte "photo.jpg".

Bref. Le problème est résolu.

Merci!