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