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

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

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.

31hello.docx (217.45 Ko)

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.)

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

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

Rechercher des sujets similaires à "enr word html envoi mail lien image rompus"