Envoi par mail (adresse + objet + message)

Dams7160 à dit:

... Est il possible de ne pas envoyer le classeur mais une plage dans le corp du message ? Ou une plage dans un nouveau classeur ?

Cliquez pour agrandir...

Sub EnvoiBDC_hebdo()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"O:\A Gestion placement\BDC\" & Feuil8.Range("C10") & "" & Feuil8.Range("G6") & " " & Feuil8.Range("H6") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True _

Dim ObjOutlook As New Outlook.Application
Dim ObjOutlookmail As MailItem
Dim NomFichier As String

Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)

With oBjMail

.To = Range("a3").Value
.To = Feuil8.Range("H8") ' le destinataire
.Subject = "Ici c'est l'objet" ' l'objet du mail
.Body = "Ici le texte Blblblbla " 'le corps du mail ..son contenu
.Attachments.Add "O:\A Gestion placement\BDC\" & Feuil8.Range("C10") & "" & Feuil8.Range("G6") & " " & Feuil8.Range("H6") & ".pdf" ' ou Nomfichier
.Send ' Ici on peut mettre '.Display' pour l'envoyer avec vérification sur outlook
End With

ObjOutlook.Quit

End Sub

Cliquez pour agrandir...

Dams7160 à dit:

Un avis, un conseil ? une modif ?

Cliquez pour agrandir...