[AC-2007] Export d'état au format html

[rominous41]

bonjour,

voici la fonction ( que j'ai pris sur le net) qui m'exporte mes états dans le corps de mail dans Outlook

Code :

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
 
Public Function SendReportHTML(NomEtat As String, _
                          Destinataire As String, _
                          Sujet As String, _
                          EditMessage As Boolean, _
                          Optional PieceJointe As String) As Boolean
    '/ Déclaration des variables
    Dim NbFichiers As Integer
    Dim i As Integer
    Dim LeFichier As String
    Dim txtLine As String
    Dim F As Integer
    Dim CorpsHTML As String
    '/ Nécessite le référence Microsoft Outlook
    Dim Ol_App As New Outlook.Application
    Dim Ol_Nspace As Outlook.Namespace
    Dim Ol_Item As Outlook.MailItem
    '
    '/ Nécessite la référence Microsoft Scripting Runtime
    Dim FSO As Scripting.FileSystemObject
    Dim scrFolder As Scripting.Folder
    Dim fileItem As Scripting.File
    '
    Set FSO = New Scripting.FileSystemObject
    Set scrFolder = FSO.GetFolder(CurDir)
    Set Ol_Nspace = Ol_App.GetNamespace("MAPI")
    '
    DoCmd.Hourglass True
    '
    With scrFolder.Files
        NbFichiers = .Count
        LeFichier = "P:\RESO44\STRUCTURE\Dossiers salariés\romain\"
        LeFichier = LeFichier & NomEtat
        LeFichier = LeFichier & ".htm"
        '/ Export de l'état au format HTML
        DoCmd.OutputTo acOutputReport, _
                       NomEtat, acFormatHTML, _
                       LeFichier, False
        NbFichiers = (.Count - NbFichiers)
    End With
    '
    F = FreeFile
    '
    For i = 1 To NbFichiers
        If i > 1 Then
            LeFichier = "P:\RESO44\STRUCTURE\Dossiers salariés\romain" & "\" & NomEtat _
                      & "Page" & i & ".htm"
        End If
        '/ Affichage la progression dans la barre d'état
        SysCmd acSysCmdInitMeter, "Intégration de " _
                                & LeFichier, NbFichiers
        SysCmd acSysCmdUpdateMeter, i
        '/ Lire le contenu des fichiers HTML
        Open LeFichier For Input As #F
        Do While Not EOF(F)
            Line Input #F, txtLine
            CorpsHTML = CorpsHTML & txtLine
        Loop
        Close #F
        Kill LeFichier
    Next i
    '
    SysCmd acSysCmdClearStatus
    Set Ol_Item = Ol_App.CreateItem(olMailItem)
    '/ Si Outlook non démarré
    If Not Ol_Nspace Is Nothing Then
        Ol_Nspace.Logon , , True, False
    End If
    '/ Construction du message
    With Ol_Item
        .To = Destinataire
        .Subject = Sujet
        .HTMLBody = CorpsHTML
        If PieceJointe <> "" Then
            .Attachments.Add PieceJointe
        End If
        .Save
        If EditMessage = True Then
            .Display
        Else
            .Send
        End If
    End With
    '/ Libération
    Ol_Nspace.Logoff
    Set Ol_Item = Nothing
    Set Ol_App = Nothing
    Set FSO = Nothing
    Set scrFolder = Nothing
    DoCmd.Hourglass False
    SendReportHTML = True
End Function

le problème c'est que j'ai un logo mais qui n’apparaît pas dans le corps de mail
et je ne sais pas pourquoi

cette commande ne fonctionne pas je crois

Code :

1
2
3
4
 
 DoCmd.OutputTo acOutputReport, _
                       NomEtat, acFormatHTML, _
                       LeFichier, False

car quand je vais voir un mail au format html dans mon répertoire le logo n’apparaît pas

si vous avez une idée merci d'avance

[Simplifi]

Hello
j'ai pas la solution mais j'ai testé et le problème ne vient pas du mail
puisque si j'exporte une facture avec mon logo en HTML le résultat n'a pas de logo
c'est la raison pour laquelle j'exporte en PDF pour avoir une image exacte de la facture
en même temps, je ne sais pas mettre un pdf en corps de message
peut être, faut il en savoir un peu plus que moi sur le HTML pour insérer l'image après l'exportation....

[rominous41]

comment puis je exporter mon état en pdf et l'integré a mon mail alors ??
merci pour ta réponse

[Simplifi]

Hello
voici l'exemple de l'envoi d'un mail avec un pdf joint

Code :

1
2
3
4
5
6
7
DoCmd.SendObject acSendReport, "Devis" _
                             , acFormatPDF _
                             , DLookup("mail_contact", "contacts", "N°_contact = " & Forms!Devis_en_tete!Contact) _
                             , "", "" _
                             , Objet _
                             , Corps _
                             , True, ""

le dlookup est juste là pour aller chercher le mail du contact désigné dans l'en tête du devis
objet et corps sont des variables dans lesquelles j'ai constuit les chaines de texte personnalisées

[rominous41]

je te remercie simplifi mais je ne veux pas que mon fichier soit en pièce jointe je souhaite qu'il soit le corps de mail .

Est ce qu'il y aurait un moyen de d'intégré directement le fichier pdf dans le corps de mail ??

merci encore

[Simplifi]

Hello
si tu arrive à intéger un PDF directement dans le corps de mail, je te serais très reconnaissant de m'envoyer un MP pour me signaler la solution
je n'ai pas trouvé, peut être par manque de pugnacité dans la recherche.....

il reste donc à retravailler l'export Html pour lui donner l'aspect que tu désires vraiment:
tu peux, pour ça créer le fichier Html Parfait constitué d'un export et des rajouts de logos, de mise en page, etc
ensuite, en utilisant le bloc note ou un autre éditeur de texte, comparer les deux versions, et donc en déduire les chaines de caractères qu'il faut ajouter.
ce qui pourra s'automatiser en VBA en ouvrant le fichier, en navigant dans les texte jusqu'à touver le point d'insertion, et enfin en écrivant le 'string' à insérer.
je dois pouvoir te mettre le VBA d'un prog un peu similaire qui recherche dans le Html la chaine <--NOM--> pour la remplacer par le contenu du champ NOM de l'enregistrement en cours de traitement si ça peut t'aider (juste pout montrer la possibilité de bricolage du Html à partir de VBA)

[rominous41]

et bien en bricolant ma fonction et en faisant un export en pdf de mon état il s'écrit sa dans mon mail

Code :

1
2
 
%PDF-1.5%µµµµ1 0 obj<<>>>endobj2 0 obj<>endobj3 0 obj<<</Font<>/XObject<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/MediaBox[ 0 0 595.35 841.78] /Contents 4 0 R/Group<>/Tabs/S>>endobj4 0 obj<>streamxœµ�a�Þ6rÇß ðwx€Ã »‡³"R”(½«‹¸MŠä®›º-ŠCQ8ÎÚçC²‰×qŠ~«~-|‹›!g(R"‡¢ž  6ëÝÙÑèÏ ¤HÎóþé e»y6 kÇÎN—q\:3]ÌÜ©i¸<Þ?}òŸ¸<<}Òw ~Ûwó¨àëbÆËã[÷•Ë8¹¿�çËÜ �Õ  ?4³ûÛ7xúäîé“÷`¹L�U ;›N_´5h¨çnÐñEþñåÓ'Ÿý“º ÛùòòüÙ¥‡ÿà'‹í&{±‹éF}yù  ¤!”•üÍ??}ò—›/þüòÅW—ç•Ï†›¯¿üæùW•ÿ}yù/OŸ¼xÉQ˜yêú Üô D¸¨nPËEMÝ0M¹0àF—1‰c´ª3 Ö2vãàãp?G1üw߸H¾ûøöãý‡ÛgãÍëïß=hüæ¬nŸé›¬ñ»ÇWøõáí=þ¯{óx2̾›–IÙËÿÆ—†ÿýíò$„ j/ ˆr²S§ þÁ÷OŸü›»– ЀãAC#ÂEíE©¡ƒÖ…F´ã

donc j'y suis pas encore

ta réponse précédente m’intéresse. je pourrais peut être intégré un logo car je crois qu'il ne s'insère pas a l'export de fichier html

mais j'ai pas compris comment faire par exemple mois je veux integrer un logo en haut a gauche de mon mail

merci

[Simplifi]

Hello
pour ajouter la bonne image au bon endroit, rien de tel que d'utiliser un logiciel (word par exemple) pour insérer visuellement l'image. et ensuite visualiser le code html produit par cette insertion avec le bloc note ou autre option du texte source
la différence entre le Html de départ et le Html d'arrivée donne des trucs du genre

<img width="512" height="331" alt="" src="http://www.mon_site.com/images/image.png" />

genre de texte qu'on peut tout à fait insérer en VBA

NB il faut d'abord avoir testé tout ça en mode manuel avant d'imaginer le faire en automatique:
générer le bon fichier Html
le mettre dans le corps d'un message
se l'envoyer à soi-même pour vérifier ce qui arrive (avec différents navigateurs si possible)
vérifier que les images sont bien présentes à l'arrivée....

[rominous41]

ok une dernière question alors comment je fais pour parcourir mon fichier et inserer l'image ?

merci

[Simplifi]

Hello
voilà comment j'ai fait pour trouver mes pseudo balises et les remplacer par le contenu des champs

Code :

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
Private Sub Envoi_Click()
Dim Rst_Mail As DAO.Recordset
Dim MotClé As DAO.Recordset
Dim Rst_Contact As DAO.Recordset
Dim Emetteur As String
Dim Serveur As String
Dim Objet As String
Dim Corps_message As String
Dim Txt_Sql As String
Dim Enregistrement As String * 1
Dim Enregistrements As String
Dim Message As New CDO.Message
 
' Ouvre la ligne des caractéristiques du mail dans la table "mails"
Set Rst_Mail = CurrentDb.OpenRecordset("select * from mails where N°_mailling = " & N°_mailling)
' Ouvre la table mots_clefs comme recordset sur les mots à remplacer
Set MotClé = CurrentDb.OpenRecordset("select *  from Mots_Clefs where N°_mailling = " & N°_mailling)
' Ouvre la table_mails
Set Rst_Contact = CurrentDb.OpenRecordset("table_mails")
' récupère le serveur d'émission
Serveur = DLookup("texte", "parametres", "Variable = 'SMTP'")
' récupère le nom de l'émetteur
Emetteur = DLookup("texte", "parametres", "Variable = 'Emetteur'")
' récupère la nécessité d'envoyer une copie à l'émetteur
Copie_Emetteur = DLookup("valeur", "parametres", "Variable = 'Emetteur'")
' récupère l'adresse à laquelle on envoie la copie
Mail_copie = DLookup("texte", "parametres", "Champ_concerné = 'Adress_mail_test'")
 
 
DoCmd.OpenForm "Historique"
DoCmd.GoToRecord acDataForm, "Historique", acNewRec
 
Do Until Rst_Contact.EOF
    If Rst_Contact("choisir") Then      ' case cochée
    Set Message = CreateObject("CDO.Message")
    'initialisation et configuration de la connexion
        Message.Configuration("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        Message.Configuration("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Serveur
        Message.Configuration("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
        Message.Configuration("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mailling"
        Message.Configuration.Fields.Update
    With Message
    'recherche de personnalisation dans le Objet et dans le corps de message
        Objet = Nz(Rst_Mail("Objet"), "  ")
        Corps_message = Nz(Rst_Mail("Corps_message"), "  ")
        On Error Resume Next
        MotClé.MoveFirst
        Do Until MotClé.EOF                     'recherche de la concordance avec les mots clef recherchés
            Objet = Replace(Objet, MotClé("mot_clé"), Nz(Rst_Contact(MotClé("Variable")), " ")) 'remplacement
            Corps_message = Replace(Corps_message, MotClé("mot_clé"), Nz(Rst_Contact(MotClé("Variable")), " ")) 'remplacement
            MotClé.MoveNext
        Loop
             .From = Emetteur
            .TextBody = Corps_message
            .Subject = Objet
            .To = Rst_Contact("Mail_contact")
            Select Case Code_d_envoi
                Case 1
                'ouverture de l'état, sauvegarde en PDF et fermeture
                    DoCmd.OpenReport Rst_Mail("Nom_état"), acViewPreview, , "Mail_contact = '" & Rst_Contact("Mail_contact") & "'", acHidden
                    DoCmd.OutputTo acOutputReport, Rst_Mail("Nom_état"), "PDFFormat(*.pdf) ", Rst_Mail("Fichier_incorporé")
                    DoCmd.Close acReport, Rst_Mail("Nom_état")
 
                    .AddAttachment Rst_Mail("Fichier_incorporé")
                 Case 2
                'envoi du mail avec pièce jointe
                    .AddAttachment Rst_Mail("Fichier_joint")
                Case 3
                'envoi du mail avec HTML incorporé dans le corps du mail
                    .CreateMHTMLBody Fichier_à_incorporer
                Case 4
                'envoi du mail avec HTML personnalisé incorporé dans le corps du mail
Open Fichier_à_incorporer For Random As #1 Len = Len(Enregistrement)
Open Fichier_incorporé For Random As #2 Len = Len(Enregistrement)
    For i = 1 To 10000000
        If EOF(1) Then Exit For
        Get #1, i, Enregistrement
        If Enregistrement = "<" Then                'lecture du contenu entre deux <>
            Enregistrements = Enregistrement
            For j = 1 To 30000
                Get #1, i + j, Enregistrement
                Enregistrements = Enregistrements & Enregistrement
                If Enregistrement = ">" Then Exit For
            Next j
            Do Until MotClé.EOF                     'recherche de la concordance avec les mots clef recherchés
                If Enregistrements = MotClé(1) Then
                    Enregistrements = Rst_Contact(MotClé(2))    'remplacement
                    Exit Do                                 ' fin de la boucle, on ne peut avoir qu'une seule correspondance
                End If
                MotClé.MoveNext
            Loop
            MotClé.MoveFirst                                'rembobinage des mots clef
            For k = 1 To Len(Enregistrements)               'écriture du contenu à l'identique ou modifié
                Enregistrement = Mid(Enregistrements, k, 1)
                Put #2, , Enregistrement
            Next k
            i = i + j
        Else
            Put #2, , Enregistrement                        ' pour le contenu hors <> les CfLf entre autre
        End If
    Next i
Close #1                                                    'fermeture de fichiers
Close #2
                'envoi du mail avec HTML personnalisé incorporé dans le corps du mail
                    .CreateMHTMLBody Fichier_incorporé
 
            End Select
           'Envoi du mail
           .Send
           ' copie à l'émetteur
           If Copie_Emetteur Then
               .Subject = "envoyé à " & Rst_Contact("Mail_contact")
               .To = Mail_copie
               .Send
           End If
 
           Forms!historique!envoyé = True
            End With
            Set Message = Nothing
        Else
           Forms!historique!envoyé = False
        End If
        Forms!historique!N°_mailling = N°_mailling
        Forms!historique!Adresse_mail = Rst_Contact("Mail_contact")
        On Error Resume Next
        Forms!historique!Pays = Rst_Contact("pays")
        Error.Clear
        On Error Resume Next
        Forms!historique!Profil = Rst_Contact("profil")
        Error.Clear
        On Error Resume Next
        Forms!historique!Représentant = Rst_Contact("Représentant")
        Error.Clear
        Rst_Contact.MoveNext
        DoCmd.GoToRecord acDataForm, "Historique", acNewRec
Loop
Rst_Mail.Close
Set Rst_Mail = Nothing
MotClé.Close
Set MotClé = Nothing
Rst_Contact.Close
Set Rst_Contact = Nothing
Donner_un_Nom.Enabled = True
DoCmd.Close acForm, "Historique"
End Sub

Effectivement, pour un fois, c'est pas simpliste

c'est à adapter pour chercher le bon endroit d'insertion et pour effectuer l'insertion

[rominous41]

autre petite question : peut on inserer une image au format bmp dans une page html car quand je lui met

Code :

1
2
 
src = "P:\RESO44\STRUCTURE\Dossiers salariés\romain\logo.bmp"

il me dit qu'il ne trouve pas le fichier pourtant quand je tape cette adresse dans l'explorateur de fichier il m'ouvre directement l'image

je ne vois pas ou est le problème quoi

merci d'avance

[Simplifi]

Hello
apparement, pour insérer des images, il faut qu'elles soient accessibles sur le net
en effet le lecteur p: n'est visible que pour toi

[rominous41]

ah ben si moi sa marche maintenant mon image décale tout le texte vers le bas

[Simplifi]

Hello
apparement, pour que les choses soient bien en place, les fichiers Html sont souvent constitués de tableaux

[rominous41]

en effet c'est le cas chez moi, comment puis-je faire pour contourner le problème ??

merci

[Simplifi]

Hello
je pense que ça dépasse le sujet de ce forum et surtout, je suis creux dans ce domaine
j'ai regardé le html issu d'une manipulation de fichier html par word et le résultat est particulièrement lourd.
Il me semble que dreamweaver fabrique des fichiers plus légers mais je ne maîtrise pas. il faut peut être chercher d'autres éditeurs de page web pour pouvoir éditer l'export html d'Access et le transformer confortablement et visuellement avant de passer l'examen du code html et de pouvoir espérer le faire en VBA