Bonjour à tous,
Je cherche un moyen d'envoyer à partir de mon fichier Excel par mail mon fichier en PJ et de copier / coller comme une image une selection de cellules dans le corps de mon mail, tout en pouvant ecrire un texte au dessus et au dessous de l'image.
J'utilisais jusqu'à aujourd'hui la macro ci-dessous mais je ne sais pas comment insérer l'image au milieu de mmon texte :
Sub EnvoiMailAuDR()
Dim OutlookApp As New Outlook.Application
Dim NewMail As Outlook.MailItem
Set NewMail = OutlookApp.CreateItem(olMailItem)
'Liste des destinataires
With NewMail
.Recipients.Add (Sheets("FICHIERS TXT").Range("Y1").Value)
'Sujet :
.Subject = "Detail - " & " " & Sheets("FICHIERS TXT ").Range("X1").Value
'Corps du mail :
.Body = "Bonjour," & vbCrLf _
& vbCrLf _
& "Vous trouverez ci joint le détail" & vbCrLf _
& vbCrLf _
& "Cordialement" & vbCrLf _
& vbCrLf & vbCrLf _
& "GUI"
.Attachments.Add ActiveWorkbook.FullName
.Display
'Envoi :
.Send
End With
End Sub
Merci à vous par avance
Je cherche un moyen d'envoyer à partir de mon fichier Excel par mail mon fichier en PJ et de copier / coller comme une image une selection de cellules dans le corps de mon mail, tout en pouvant ecrire un texte au dessus et au dessous de l'image.
J'utilisais jusqu'à aujourd'hui la macro ci-dessous mais je ne sais pas comment insérer l'image au milieu de mmon texte :
Sub EnvoiMailAuDR()
Dim OutlookApp As New Outlook.Application
Dim NewMail As Outlook.MailItem
Set NewMail = OutlookApp.CreateItem(olMailItem)
'Liste des destinataires
With NewMail
.Recipients.Add (Sheets("FICHIERS TXT").Range("Y1").Value)
'Sujet :
.Subject = "Detail - " & " " & Sheets("FICHIERS TXT ").Range("X1").Value
'Corps du mail :
.Body = "Bonjour," & vbCrLf _
& vbCrLf _
& "Vous trouverez ci joint le détail" & vbCrLf _
& vbCrLf _
& "Cordialement" & vbCrLf _
& vbCrLf & vbCrLf _
& "GUI"
.Attachments.Add ActiveWorkbook.FullName
.Display
'Envoi :
.Send
End With
End Sub
Merci à vous par avance