Excel VBA : Envoyer un mail Outlook depuis Excel

Sub EnvoyerMail()

Dim OutlookApp As Object
Dim MailItem As Object

' Vérifier si Outlook est ouvert
On Error Resume Next
Set OutlookApp = GetObject(, "Outlook.Application")
On Error GoTo 0

' Si Outlook n'est pas ouvert, ouvrir une nouvelle instance
If OutlookApp Is Nothing Then
Set OutlookApp = CreateObject("Outlook.Application")
End If

' Créer un nouvel e-mail
Set MailItem = OutlookApp.CreateItem(0)

' Remplir les détails de l'e-mail
With MailItem
.To = Range("c2")
.Subject = Range("c3")
.Body = Range("c4")
' Ajouter des pièces jointes si nécessaire
' .Attachments.Add "chemin_de_la_piece_jointe"
' Envoyer l'e-mail
.Send
End With

' Libérer les objets
Set MailItem = Nothing
Set OutlookApp = Nothing

End Sub

Видео Excel VBA : Envoyer un mail Outlook depuis Excel канала Alex NILLY