Enr. Word en HTML pour envoi mail : lien image Rompus

Word, PowerPoint, Outlook, Access et tous les autres logiciels de la suite Office (sauf Excel)
T
Thihii
Membre fidèle
Membre fidèle
Messages : 155
Inscrit le : 16 août 2016
Version d'Excel : 2010

Message par Thihii » 30 août 2017, 00:59

Bonsoir,

Après avoir relu les propositions, voici une idée que j'adopterais, évoqué par Steelson, à voir si elle vous conviendrait.
Principe de la macro : ouvrir le document Word, l'enregistrer en .pdf, fermer Word, envoyer le fichier PdF en pièce jointe.
Envoie du mail avec le CDO (pas besoin d'identifiant ni MdP, juste les paramètres de votre 'box')

dans l'exemple ci-dessous, box Bouygue,
- sendusing= 2,
- smtpserver =smtp.bbox.fr,
- smtpserverport = 25
un lien sur d'autres fournisseurs
http://www.commentcamarche.net/faq/893- ... cipaux-fai

Le code
Sub envoie_mail()
    Dim mMessage As Object
    Dim mConfig As Object
    Dim mChps
    Dim wordapp As Object
    Dim fichier
    fichier = ThisWorkbook.Path & "\la piece.pdf"
    Set wordapp = CreateObject("word.Application")
    With wordapp
        .Visible = True
        .Documents.Open ThisWorkbook.Path & "\" & "Hello.docx"
        .Selection.WholeStory
        .ActiveDocument.ExportAsFixedFormat OutputFileName:=fichier, _
            ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
            wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
            Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
            CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
            BitmapMissingFonts:=True, UseISO19005_1:=False
            .ActiveDocument.Close False
            .Application.Quit False
    End With
    Set mConfig = CreateObject("CDO.Configuration")
    mConfig.Load -1
    Set mChps = mConfig.Fields
    With mChps
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.bbox.fr"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
    End With
    Set mMessage = CreateObject("CDO.Message")
    With mMessage
    Set .Configuration = mConfig
        .To = Cells(3, 2)
        .From = Cells(4, 2)
        .Cc = Cells(5, 2)
        .Subject = Cells(6, 2)
        .TextBody = Cells(7, 2) & vbCrLf & Cells(8, 2) & vbCrLf & Cells(9, 2) & vbCrLf & _
         Cells(10, 2) & vbCrLf & Cells(11, 2) & vbCrLf & Cells(12, 2) & vbCrLf & Cells(13, 2) & _
         vbCrLf & Cells(14, 2) & vbCrLf & Cells(15, 2)
        .AddAttachment fichier
        .Send
    End With
    Set mConfig = Nothing
    Set mChps = Nothing
End Sub
les fichiers à enregistrer dans le même répertoire.
Hello.docx
(217.45 Kio) Téléchargé 14 fois
Test envoie doc word mail vba.xlsm
(21.66 Kio) Téléchargé 17 fois
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'411
Appréciations reçues : 495
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR

Message par Steelson » 30 août 2017, 08:26

J'ai horreur des fichiers attachés, perte de temps à les ouvrir etc.
Mais ici, tu as raison Thihii, en matière de RH certains diffusions en PJ sont à privilégier (cosignes à afficher, modifications substantielles des contrats de travail après signature, calcul et diffusion du planning des RTT, etc.)

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
l
lexxor
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 9 novembre 2015
Version d'Excel : 2010

Message par lexxor » 30 août 2017, 13:31

Bonjour,

Merci de votre aide, les RH utilisent aussi les pièces jointes mais pour ce mail, elles ont vraiment besoin d'insérer les images dans le mail.

Sur 15 mails types envoyés pour l'arrivée/départ des collaborateurs, seul un requiert de joindre des images. En dépit d'une solution automatisé, j'ai trouvé pour solution de les laisser faire : clic droit sur l'emplacement de l'image et cliquer sur remplacer l'image (en manuel bien-sûr).

Je vous souhaite une bonne journée et vous remercie encore pour votre aide.

Cordialement,
ALexandre
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'411
Appréciations reçues : 495
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR

Message par Steelson » 30 août 2017, 16:23

Bonjour,

Une question quand même pour ma culture car je n'ai pas accès en ce moment à outlook. Est-ce que
1- en spécifiant le destinataire le focus est-il sur la zone texte et auquel cas la solution de copie de word marche-t-elle ?
2- sinon as-tu (re-)testé le sendkeys TAB avec true ?

Merci d'avance

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message