Bonjour à tous,
Je rencontre un problème avec la macro suivante.
Je souhaiterais par le biais de cette macro m'envoyer en pièce jointe le classeur sur lequel je travaille en indiquant mon adresse outlook en destinataire.
Sauf que lorsque je lance la macro en utilisant ".Display" et non pas ".Send" (voir dernier 'commentaire dans le code ci-dessous) alors la macro fonctionne. Dès lors, que je remplace ".Display"" par ".Send" afin de m'envoyer directement alors la macro bug et affiche l'erreur #287.
Pourriez-vous m'expliquer pourquoi l'objet .Send fait planter ma macro, s'il vous plaît ?
Sub send_email_complete()
Dim OlApp As Object
Dim NewMail As Object
Dim source_file, to_emails, cc_emails As String
Set OlApp = CreateObject("Outlook.Application")
Set NewMail = OlApp.CreateItem(0)
to_emails = "monmail@domaine.com"
' cc_emails = cc_emails & Cells(i, 2) & ";"
'ActiveWorkbook.Save
'source_file = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name
' NewMail.Attachments.Add source_file
ThisWorkbook.Save
source_file = ThisWorkbook.FullName
With NewMail
'myMail.CC = cc_emails
.To = to_emails
.Subject = "Fichier du Jour"
.Body = " "
.Attachments.Add source_file
.Send 'ici quand je remplace par .Display la macro fonctionne sans souci
End With
End Sub
Merci par avance pour votre aide.
Bonne journée!