Bonjour la communauté,
Je génère depuis une feuille excel un PDF qui s'insère dans un mail.
Tout fonctionne bien, la pièce jointe en PDF, la liste des destinataires, le texte, ...
Mais impossible d'insérer la signature par défaut qui existe dans OUTLOOK. J'ai parcouru un grand nombre de sujets qui traitent ce sujet mais en vain, rien à faire je ne trouve pas de solution. J'ai un doute sur "OLAPP" et "OLMAIL" qui ne sont peut être pas les meilleurs paramètres.
Autre question, mais là, je ne cherche qu'un lien vers un sujet : je voudrais pouvoir rédiger de façon un peu plus lisible la section HTMLBODY avec du gras, des polices de caractères différentes... Y a t-il un lien qui traite de ce sujet ?
Merci encore pour vos retours
Sub Envoi_CA()
' Nécessite la référence : Microsoft Outlook 1x Object Library
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
CurFile = ThisWorkbook.Path & "\" & "Point CA Magasins.Pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With olMail
.To = ListeTo
.CC = ""
.Subject = "REGION " & [MAGASINS!B5] & " : Résultats Magasins au " & Date & ""
.HTMLBody = "Bonjour à tous, vous trouverez ci-joint les résultats au " & Date & "" & .HTMLBody
.Attachments.Add CurFile
.Display d
End With
' Effacer les variables objets
Set olMail = Nothing
Set olApp = Nothing
'Remonte à la cellule de Sélection du Magasin
Range("A1").Activate
End Sub