Mail HTML & Lien hypertext

**ltdan** · 08/04/2024, 08h11

Bonjour à tous,

J'ai réalisé du code VBA (inspiré de différents post) pour générer un mail en HTML.

Je rencontre 2 difficultés :
- Lors de l'execution, il me génère une erreur 462 que je n'arrive pas à résoudre (cela vient-il de la déclaration "Const htmlTOP" ?)
- Le lien (entouré en bleu dans l'image ci-dessous) reste inactif (le 2ème fonctionne correctement). Ce lien est récupéré à partir d'un contrôle sur un formulaire ouvert.

Merci d'avance pour vos éclairages.

Nom : Image 1.png
Affichages : 95
Taille : 7,2 Ko

Nom : Image 1.png
Affichages : 95
Taille : 7,2 Ko

Nom : Image2.png
Affichages : 84
Taille : 20,1 Ko

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
 
    Dim olApp As Outlook.Application
    Dim objMail As MailItem
    Dim strHTML As String
    Dim strMessage As String
    Dim VarTest1 As String
 
    Const htmlTOP = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">" & vbCrLf & _
    "<HTML><HEAD><META http-equiv=Content-Type content=""text/html; charset=iso-8859-1"">" & vbCrLf & _
    "<META content=""MSHTML 6.00.2900.5921"" name=GENERATOR></HEAD><BODY>" & vbCrLf & _
    "<DIV style=""FONT-SIZE: 11pt; FONT-FAMILY: Calibri Light"">" & vbCrLf
 
    Const HtmlEND = "</DIV></BODY></HTML>"
 
    Set olApp = Outlook.Application
    Set objMail = olApp.CreateItem(olMailItem)
 
    If IsNull(Forms![AI Mission Detail]![RE_EnvoiRapDraft_date]) Or Forms![AI Mission Detail]![RE_EnvoiRapDraft_date] = "" Then
        VarTest1 = "*** [Date à définir JJ/MM/AAAA] ***"
    Else
        VarTest1 = Forms![AI Mission Detail]![RE_EnvoiRapDraft_date]
    End If
 
    objMail.To = ""
    objMail.Subject = Forms![AI Mission Detail]![Libelle_auditInt] & " - Audit Opérationnel N°" & Forms![AI Mission Detail]![Num_mission] & " ... Rapport de mission DEFINITIF"
 
    strMessage = "Bonjour" & vbCrLf & _
            vbCrLf & _
            "Nous vous remercions de vos retours sur le rapport de mission provisoire que nous vous avions fait parvenir le " & VarTest1 & " pour relecture." & vbCrLf & _
            vbCrLf & _
            "Nous avons pris bonne note de vos remarques et après corrections faites, nous vous proposons d'accéder au rapport définitif de l'audit effectué sur le site " & Forms![AI Mission Detail]![Libelle_auditInt] & " du " & Forms![AI Mission Detail]![Date_auditInt_debut] & " au " & Forms![AI Mission Detail]![Date_auditInt_fin] & " à partir du lien suivant : " & "<a href="" & Forms![AI Mission Detail]![lien_sharepoint_rapport]"">lien</a>" & vbCrLf & _
            vbCrLf & _
            "Vous pourrez également trouver l'ensemble des rapports des missions historiques de votre périmètre sur l'application EASYPRO à partir du lien suivant : " & _
            "<a href=""https://areas.toucantoco.com/easypro/49923530?stage=staging&view=AREAS_France"">lien</a>" & vbCrLf & _
            vbCrLf & _
            "Nous restons à votre entière disposition pour tout complément d'information" & vbCrLf & _
            vbCrLf & _
            "Cordialement."
 
    'remplace les sauts de lignes par l'équivalent en html <br>
    strHTML = Replace(strMessage, vbCrLf, "<br>" & vbCrLf)
 
        objMail.BodyFormat = olFormatHTML
        objMail.HTMLBody = _
            htmlTOP & _
            strHTML & _
            HtmlEND
 
        objMail.Display
 
    Set oApp = Nothing

**loufab** · 08/04/2024, 09h30

Bonjour,

Je doute qu'une constante puisse émettre un 462.

Vérifie en faisant du pas à pas.

Cordialement,

**ltdan** · 08/04/2024, 11h17

Merci pour votre réponse.

C'est le code suivant qui pose problème mais je ne comprends pas pourquoi. D'autant plus, qu'une fois l'erreur généré par Access, lorsque je relance le code .... tout s'exécute normalement sans erreur.

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

Set objMail = olApp.CreateItem(olMailItem)

Cordialement,

**loufab** · 08/04/2024, 14h44

C'est donc un problème vba outlook. Je transfère dans la bonne rubrique. Ici c'est Access et IHM donc ni l'un ni l'autre.

**ltdan** · 16/04/2024, 11h55

Bonjour,

J'ai remarqué que l'erreur se produit pas à la première exécution mais lorsque je relance une deuxième fois l'exécution. C'est comme il avait laissé "ouvert" quelques chose lors de la première exécution.

Cordialement,

Mail HTML & Lien hypertext

VBA Outlook

Discussions similaires

Partager

Partager