Modifier le format du courrier

**Daejung** · 12/01/2009, 19h21

Bonjour,

J'envoie des mails par Oultook 2003 à partir d'Excel 2003 et je me suis aperçu que le texte des mails était ignoré quand les options "Utiliser Microsoft Office Word 2003 pour ..." étaient cochées.

http://cjoint.com/data/bmueXTzprm.htm

Comment les décocher au début de ma procédure et le remettre dans l'état initial en fin de procédure ?

Merci

**Oliv-** · 21/01/2009, 14h55

Salut,
quel est ton code à partir d'excel qu'on n'y voit un peu plus clair ?

**Daejung** · 21/01/2009, 19h57

C'est

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
Private Function EnvoiMail_HTML(Adresse As String, Objet As String, Corps As 
String, Optional Pièce As String, Optional Cc As String, Optional Bcc As 
String, Optional Envoyer_Mail As Boolean)
 
    Dim MonAppliOutlook As Outlook.Application
    Dim MonMail As Outlook.MailItem
    Dim MaPièce As Outlook.Attachments
    Dim olInspector As Outlook.Inspector
 
    Set MonAppliOutlook = CreateObject("Outlook.Application")
    Set MonMail = MonAppliOutlook.CreateItem(olMailItem)
    Set olInspector = MonMail.GetInspector
 
    On Error Resume Next
    With MonMail
        If Affichage = True Then .Display Else 
.GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute
        .To = Adresse
        If Not IsNull(Cc) Then .Cc = Cc
        If Not IsNull(Bcc) Then .Bcc = Bcc
        .Subject = Objet
        If Not IsNull(Pièce) Then
            Set MaPièce = .Attachments
            T = Split(Pièce, ";")
            For i = 0 To UBound(T)
                MaPièce.Add T(i), olByValue
            Next i
         End If
        .BodyFormat = olFormatHTML
        .HTMLBody = Corps & .HTMLBody
        If Envoyer_Mail = True Then .Send
    End With
 
    Set MonAppliOutlook = Nothing
    Set MonMail = Nothing
 
 
End Function

Merci

**Oliv-** · 22/01/2009, 10h38

Bonjour,
chez moi cela fonctionne

Code :

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

1
2
3
Sub test()
EnvoiMail_HTML "test@test.fr", "test", "<html><font style='font-family: Tahoma ;font-size: 8pt ;color:#808080;font-style: italic;'><p>Ceci est du texte en HTML.</p></font></html>", , , , True
End Sub

et n'as tu pas de message de sécurité ?
dois tu conserver une copie de ce mail dans outlook ?

**Daejung** · 22/01/2009, 20h14

Le mail est conservé dans Outlook
Il y a un message de sécurité pour chaque mail et un premier message demandant l'autorisation d'accéder à Outlook pendant 1 à 10 minutes

**Oliv-** · 23/01/2009, 14h10

SAlut,
regarde ici tout en bas
http://www.developpez.net/forums/d65...ataires-copie/
une solution avec sendkeys contre ce message de sécu.

**Daejung** · 23/01/2009, 19h15

???? Je ne cherche pas à éviter le message de sécurité.

Ce n'était pas mon problème

**Oliv-** · 23/01/2009, 19h28

Envoyé par Daejung

???? Je ne cherche pas à éviter le message de sécurité.

ok c'est cadeau bonus

Ce n'était pas mon problème

comme dit précédemment ton code ne pose pas ce problème chez moi ???

**Daejung** · 11/02/2009, 19h48

Aucune solution à ce problème alors?

J'ai également noté depuis que lorsqu'un destinataire avait coché cette option et qu'il répondait au mail reçu ou le transférait, le texte de mon message disparaissait de son mail de réponse et de transfert, seule ma signature restant.

**Oliv-** · 11/02/2009, 20h24

Salut,
Ton code à la base ne semble pas poser de pb.
Mets tu bien du html dans ton paramètre "Corps" ?

**Daejung** · 21/02/2009, 17h17

oui j'avais bien mis du html dans la variable "corps" mais j'avais oublié la balise d'en-tête et de corps

J'ai remplacé

Code :

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

        .HTMLBody = Corps & .HTMLBody

par

Code :

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

1
2
3
        .HTMLBody = "<!DOCTYPE HTML PUBLIC " & Chr(34) & _
        "-//W3C//DTD HTML 4.0 Transitional//EN" & Chr(34) & _
        "><HTML><HEAD></HEAD><BODY>" & Corps & .HTMLBody & "</BODY></HTML>"

et ca marche parfaitement maintenant, que word editor soit activé ou pas

Modifier le format du courrier

VBA Outlook

Discussions similaires

Partager

Partager