1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Private Sub Button1_Click()
Dim myinspector As Outlook.Inspector
Dim ThisEmail As Outlook.MailItem
Dim FwEmail As Outlook.MailItem
Set myinspector = Outlook.ActiveInspector
Set ThisEmail = myinspector.CurrentItem
Set FwEmail = ThisEmail.Forward
With FwEmail
.Subject = "Subject."
.To = "Destinataires"
.CC = "Destinataires"
.BodyFormat = olFormatHTML
.HTMLBody = "<p><font style='font-family: Arial, Calibri, sans-serif;font-size: 11pt;'>" _
& "Dear all, <br><br>" _
& "Message<br><br>" _
& "Best regards,<br></font></p>"
.Display
InsertSignature FwEmail, "Nom entreprise"
End With
Set objMail = Nothing
Set TemplateMail = Nothing
End Sub |
Partager