Bonjour à tous,
J'ai récupéré un code sur le net pour envoyer un mail très simple depuis excel et j'ai un message d'erreur. Pouvez vous m'aider à comprendre, je vous joins le code ci dessous.
Pour info j'ai bien coché Microsoft Outlook 15.0 Object Library dans les références.
Message d'erreur : Impossible de reconnaitre une ou plusieurs noms
ligne en surbrillance : .send (avant le end with)
Private Sub CommandButton1_Click()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Desti = "toto@gmail.fr ;
tati@gmail.fr"
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.Subject = "Sujet essai"
.Body = "essai de corps de message"
.Recipients.Add Desti
.Send
End With
End Sub
Merci d'avance de votre aide.
Jack