Création de tâche Outlook avec Access

**oyonyx** · 29/09/2015, 10h48

Bonjour,

Je sollicite votre aide car je rencontre une difficulté dont je ne trouve pas la solution malgré plusieurs recherches.
Je suis en train d'écrire un code permettant de créer automatiquement une tâche Outlook suite à une action dans Access, mais je bloque sur le formatage du texte.
Je voudrais pouvoir formater le texte à l'intérieur de la tâche créée comme je le fais dans les e-mails mais le HTMLBody n'est pas disponible pour les tâches.

Comme parade, j'utilise des "chr(10)" pour avoir une mise en forme mais je voudrais pouvoir ajouter du texte en gras et de la couleur sur certaines lignes.

Voici un extrait de mon code Vba :

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
55
56
57
58
59
60
61
62
63
64
65
66
 
'créer une tâche avec outlook
Private Sub cmdcreerTache_Click()
Dim oApp As Outlook.Application
Dim myTsk As TaskItem
Dim strobject As String
Dim strbody As String
Dim strfintache As String
 
Set oApp = Outlook.Application
Set myTsk = oApp.CreateItem(olTaskItem)
 
If MsgBox("voulez vous créer une tache ? ", vbYesNo) = vbYes Then
strfintache = "En cas de KO sur le contrôle :" & Chr(10) & _
                "action 1" & Chr(10) & _
                "action 2" & Chr(10) & _
                "action 3" & Chr(10)
 
Select Case Me.TypeOst
        Case "cas1"
        strobject = Me.champ1 & " " & "ID " & Me.champ2
        strbody = "VERIFICATIONS PRÉALABLES AU CONTÔLE" & Chr(10) & _
        "vérif1 :" & Chr(10) & _
        "verif2" & Chr(10) & _
        "POINTS DE CONTRÔLE" & Chr(10) & _
        "controle1" & Chr(10) & _
        "controle2" & Chr(10) & _
        "controle3" & Chr(10) & _
        Chr(10) & Chr(10) & strfintache
        GoTo tache_
        Case Else
        strobject = Me.champ1 & " " & "ID " & Me.champ2 & " A COMPLETER "
        strbody = Chr(10) & _
        Chr(9) & " ajouter les points de contrôle correspondants " & Chr(10) & _
        " ajouter les points de contrôle correspondants "  & _
        " ajouter les points de contrôle correspondants "
 
 
End Select
Else: GoTo fin_
 
End If
 
 
tache_:
With myTsk
    .Subject = strobject
    .Body = strbody
    .Recipients.Add ("BG XYZ")
    .DueDate = DateAdd("n", 5, Now)
    .Save 'sauvegarde la tâche dans le repertoire personnel
    .Display
End With
 strobject = ""
 strbody = ""
Exit Sub
 
fin_:
MsgBox "pas de tâche créée"
'vider les variables
 strobject = ""
 strbody = ""
 strfintache = ""
Exit Sub
 
End Sub

Avez-vous des idées ?

Merci d'avance

Christophe

**Thierry_PALLIER** · 30/09/2015, 11h40

Bonjour oyonyx

Code :

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

1
2
3
With myTsk
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><H2>The body of this message will appear in HTML.</H2><BODY>Enter the message text here. </BODY></HTML>"

la ligne ".BodyFormat" n'est peut etre pas necessaire.
Et la touche F1 .....

Cdlt

**oyonyx** · 30/09/2015, 13h41

Bonjour Thierry_PALLIER,

merci d'avoir pris le temps de me répondre.
malheureusement, ça ne fonctionne pas avec HTMLBody, j'ai une erreur '438' Propriété ou méthode non gérée par cet objet.
Cela fonctionne très bien quand il s'agit d'e-mail mais visiblement pour les tâches, ils ont fait les choses autrement

.

**Thierry_PALLIER** · 30/09/2015, 15h07

Apparement celà n'est donc pas possible .
Une réponse de Dmitry Streblechenko

Keep in mind that Outlook tasks, appointments and tasks work with RTF, not HTML. hence TaksItem, ContactItem and AppointmentItem objects only expose the RtfBody property, but not HTMLBody (like MailItem does).

You will need to either convert HTML to RTF (you can try the Word Object Model for that) or use Redemption: unlike Outlook Object Model, it exposes the RDOTaskItem.HTMLBody property and dynamically converts HTML to the native (for tasks) RTF when that property is set.
http://stackoverflow.com/questions/2...sks-from-email

**oyonyx** · 30/09/2015, 15h20

Thank you

Malheureusement cela confirme ce que je pensais...
Tans pis pour la jolie mise en forme

Bon après-midi

Création de tâche Outlook avec Access

VBA Access

Discussions similaires

Partager

Partager