Microsoft 365 completer un formulaire outlook avec VBA excel

naf naf

XLDnaute Nouveau
Bonjour,
Je souhaite remplir un formulaire de RDV outlook via VBA sous excel, en repartant d'un modele .oft
J'arrive bien à creer un mail de RDV mais pas a remplir un .oft que j'aurais ouvert.
Voici mon code actuel qui fonctionne mais qui part d'un mail vierge :

Sub CreationReunion()

Dim objOutlook As Outlook.Application
Dim objReunion As Outlook.AppointmentItem
Dim objExplorer As Outlook.Explorer
Dim objSelection As Outlook.Selection
Dim Sujet

Sujet = 0
Set objOutlook = Outlook.Application
Set objExplorer = objOutlook.ActiveExplorer
Set objSelection = objExplorer.Selection
Set objReunion = objOutlook.CreateItem(olAppointmentItem)

'Corp = Range("H5:H13")
Sujet = "RDV "

With objReunion
.MeetingStatus = olMeeting
.Subject = Sujet
.Body = "test corp"

.Recipients.Add (Sheets("Feuil1").Range("B2") & "; " & Sheets("Feuil1").Range("B3"))
.Start = "01/01/2021 14:00"
.Duration = 120
.Display
' .Location = "Mon Bureau"
' .Send
' .Save
'.Close (olSave)
End With

Set objOutlook = Nothing
Set objReunion = Nothing
Set objExplorer = Nothing
Set objSelection = Nothing

End Sub
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil

=>naf naf
Qui dit Outlook, dit section du forum dédiée à Outlook

Suggestion en passant
Utilise les balises BBCode pour rendre tes messages plus agréables à lire
(voir conseils ma signature)

Ce qui donnera comme affichage
VB:
Sub CreationReunion()

Dim objOutlook As Outlook.Application
Dim objReunion As Outlook.AppointmentItem
Dim objExplorer As Outlook.Explorer
Dim objSelection As Outlook.Selection
'[...]
End Sub
 

naf naf

XLDnaute Nouveau
VB:
Sub CreationReunion()

Dim objOutlook As Outlook.Application
Dim objReunion As Outlook.AppointmentItem
Dim objExplorer As Outlook.Explorer
Dim objSelection As Outlook.Selection
Dim Sujet

Sujet = 0
Set objOutlook = Outlook.Application
Set objExplorer = objOutlook.ActiveExplorer
Set objSelection = objExplorer.Selection
Set objReunion = objOutlook.CreateItem(olAppointmentItem)

'Corp = Range("H5:H13")
Sujet = "RDV "

With objReunion
.MeetingStatus = olMeeting
.Subject = Sujet
.Body = "test corp"

.Recipients.Add (Sheets("Feuil1").Range("B2") & "; " & Sheets("Feuil1").Range("B3"))
.Start = "01/01/2021 14:00"
.Duration = 120
.Display
' .Location = "Mon Bureau"
' .Send
' .Save
'.Close (olSave)
End With

Set objOutlook = Nothing
Set objReunion = Nothing
Set objExplorer = Nothing
Set objSelection = Nothing

End Sub
 

Staple1600

XLDnaute Barbatruc
Re

Un modèle de mail sert à créer un nouveau mail vierge.
(On ne modifie pas le fichier *.oft original)
Et apparemment (sauf erreur de ma part), il n'existe pas de modèle de rendez-vous.

Donc le plus simple (à mon sens), c'est de créée le RDV (et son contenu) par code VBA.
Comme dans ton exemple 1
 

Discussions similaires