Bonjour, je souhaiterai intégrer un fichier joint du type "C:\Mes documents\toto.xls" au corps d'un RDV outlook envoyé via VBA
J'ai le script suivant qui envoi très bien ce genre de RDV.
Quelqu'un pourrait-il m'aider à le modifier afin d'intégrer un fichier joint au RDV ?
Par avance merci
HUGS
Sub SendMeetingRequest()
Dim objOL 'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem
Const olAppointmentItem = 1
Const olMeeting = 1
Set objOL = CreateObject("Outlook.Application")
Set objAppt = objOL.CreateItem(olMeeting) 'olAppointmentItem
With objAppt
.Subject = "sujet de la réunion"
.Start = Now + 1
.End = DateAdd("h", 1, .Start)
.Location = "lieu de la réunion"
.Body = "texte du message d'invitation "
.BusyStatus = olFree
.Categories = ""
.ReminderSet = True
.ReminderMinutesBeforeStart = 120 ' rappel 2 heures avant
.ReminderOverrideDefault = True
.ReminderPlaySound = True 'réveil en fanfare
.Importance = olImportanceHigh
' make it a meeting request
.MeetingStatus = olMeeting
.OptionalAttendees = "titi@adm.co.ma" 'participants optionnel à la réunion
.RequiredAttendees = "tata@adm.co.ma;toto@adm.co.ma" 'participant obligatoire
.Send
End With
Set objAppt = Nothing
Set objOL = Nothing
End Sub