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
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