Bonjour à tous,
je me permets de vous solliciter suite à recherche infructueuse sur le forum.
Je souhaite envoyer par mail (outlook) des "icalendar" à mes collaborateurs.
Ces derniers seraient générés sous Excel.
La macro ci dessous le crée, le charge bien dans mon calendrier outlook sans problème, et l'enregistre sur le réseau en ".ics"
Lorsque j'attache ce fichier .ics dans un mail, que je l'envoi et que je l'ouvre pour l'ajouter à un calendrier, j'ai l'erreur suivante qui s'affiche : "Echec de l'opération".
Une idée?
Merci d'avance pour votre aide!
Bon we à tous
/////////////////////////////////////////////
Sub RdvIcs()
'Requires reference to Microsoft Outlook Object Library
Dim olApp As Outlook.Application
Dim olApt As AppointmentItem
VlecteurReseau = "H:\"
Set olApp = New Outlook.Application
Set olApt = olApp.CreateItem(olAppointmentItem)
With olApt
.Start = "0:00 AM" & Format("18/11/2017")
.End = .Start + 2 'TimeValue("00:30:00")
.Subject = "Interim de Severine xxx assuré par Guillaume xxx jusqu'au 19/11/2017 inclu"
.Location = "N/A"
.Body = "INTERIM Chef de laboratoire"
.BusyStatus = olFree
.ReminderMinutesBeforeStart = 960 '16h avant minuit=8h du mat la veille
.ReminderSet = True
.Display
'Save the iCalendar file in a known folder
.SaveAs VlecteurReseau & "InterimChefDeLabo.ics"
'Use Close to retain the new appointment within the Outlook Calendar, or Delete to delete it.
'Both options keep the just-created .ics file
.Close False
'.Delete
End With
Set olApt = Nothing
Set olApp = Nothing
End Sub
///////////////////////////////////////////////////////////////////////////
je me permets de vous solliciter suite à recherche infructueuse sur le forum.
Je souhaite envoyer par mail (outlook) des "icalendar" à mes collaborateurs.
Ces derniers seraient générés sous Excel.
La macro ci dessous le crée, le charge bien dans mon calendrier outlook sans problème, et l'enregistre sur le réseau en ".ics"
Lorsque j'attache ce fichier .ics dans un mail, que je l'envoi et que je l'ouvre pour l'ajouter à un calendrier, j'ai l'erreur suivante qui s'affiche : "Echec de l'opération".
Une idée?
Merci d'avance pour votre aide!
Bon we à tous
/////////////////////////////////////////////
Sub RdvIcs()
'Requires reference to Microsoft Outlook Object Library
Dim olApp As Outlook.Application
Dim olApt As AppointmentItem
VlecteurReseau = "H:\"
Set olApp = New Outlook.Application
Set olApt = olApp.CreateItem(olAppointmentItem)
With olApt
.Start = "0:00 AM" & Format("18/11/2017")
.End = .Start + 2 'TimeValue("00:30:00")
.Subject = "Interim de Severine xxx assuré par Guillaume xxx jusqu'au 19/11/2017 inclu"
.Location = "N/A"
.Body = "INTERIM Chef de laboratoire"
.BusyStatus = olFree
.ReminderMinutesBeforeStart = 960 '16h avant minuit=8h du mat la veille
.ReminderSet = True
.Display
'Save the iCalendar file in a known folder
.SaveAs VlecteurReseau & "InterimChefDeLabo.ics"
'Use Close to retain the new appointment within the Outlook Calendar, or Delete to delete it.
'Both options keep the just-created .ics file
.Close False
'.Delete
End With
Set olApt = Nothing
Set olApp = Nothing
End Sub
///////////////////////////////////////////////////////////////////////////