Private Const CST_EmailFrom As String = "expediteur@boitemail.fr"
Sub test()
Dim olApp As Outlook.Application, olAcc As Outlook.Account, olMail As Outlook.MailItem, i As Long
'récupérer / créer l'application Outlook
Set olApp = GetObject(, "Outlook.Application")
If olApp Is Nothing Then Set olApp = CreateObject("Outlook.Application")
If olApp Is Nothing Then Stop 'si on s'arrête ici, c'est qu'Outlook n'était pas ouvert et qu'on n'a pas pu l'ouvrir
'récupérer le compte mail correspondant à CST_EmailFrom
For i = 1 To olApp.Session.Accounts.Count
If olApp.Session.Accounts(i).CurrentUser.Address = CST_EmailFrom Then Set olAcc = olApp.Session.Accounts(i)
Next i
If olAcc Is Nothing Then Stop 'si on s'arrête ici, c'est qu'on n'a pas trouvé la boite mail CST_EmailFrom
'créer et envoyer le mail
Set olMail = olApp.CreateItem(olMailItem)
olMail.Sender = olAcc.CurrentUser.AddressEntry
olMail.Subject = "test"
olMail.Body = "bla bla bla"
olMail.To = "destinataire@boitemail.fr"
olMail.Send
Set olMail = Nothing
Set olApp = Nothing
Set olAcc = Nothing
End Sub