Envoyer un mail avec VBA

Bonjour,

je souhaite envoyer des mail via excel mais étant très débutant en VBA y a certaine chose que je n'arrive pas a faire...

j'aimerais :

- envoyer le mail avec accuse de réception et accusé de lecture.
-envoyer le mail avec importance HAUTE

-et finalement le plus important envoyer depuis une messageries bien distingue. (car j'ai deux boite aux lettre sur outlook)

voici mon code :

Private Sub envoie_mail()

    Dim lemail As Variant
    Set lemail = CreateObject("outlook.Application")

    With lemail.CreateItem(olMailItem)
        .Subject = "sujet importante"
        .To = "destinataire@outlook.fr"
        .Body = "Bonjour c'est le corps"
        .Display
    End With

End Sub

est-ce que quelqu'un peux m'aider s'il vous plait?

Bonjour harilenoob et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum

Vous pourriez trouverez certainement votre bonheur dans les discussions similaires (bouton en bas de cette page)

Sinon, voici le code à tester

Option Explicit

Const olImportanceLow As Integer = 0
Const olImportanceNormal As Integer = 1
Const olImportanceHigh As Integer = 2

Private Sub envoie_mail()
    Dim lemail As Variant
    Set lemail = CreateObject("outlook.Application")

    With lemail.CreateItem(olMailItem)
      .Importance = olImportanceHigh
      .SendUsingAccount = "moncompte@fai.fr"
      .Subject = "sujet importante"
      .To = "destinataire@outlook.fr"
      .Body = "Bonjour c'est le corps"
      .Display
    End With
End Sub

Merci de votre participation

Cordialement

Bonjour Bruno,

merci beaucoup pour votre réponse qui m'as permis de débloquer mon plus grand soucis.
j'ai lu le règlement du forum et je vais rédiger un post sous le sujet présentation.

pour ce qui se pose la question pour avoir l'accusé de réception & de lecture voici le code :

      .ReadReceiptRequested = True
      .OriginatorDeliveryReportRequested = True

je colature le sujet.

merci encore Bruno.