Microsoft 365 completer un formulaire outlook avec VBA excel

[naf naf]

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

 

[naf naf]

pas possible le contenu du mail contient des liens hypertext , des images et une mise en page particuliere.
Bref trop complique avec VBA.
je voudrai juste le recuperer et modifier les destinataires ainsi que la date comme dans mon exemple et fini

 

[Staple1600]

Re

=>naf naf
Tu poses une question sur XLD et demande aide et conseil.

pas possible le contenu du mail contient des liens hypertext , des images et une mise en page particuliere.
Bref trop complique avec VBA.

Mais tu ne tiens pas compte des réponses données...

Rien n'est compliqué en VBA.
Le code fait ce qu'on lui demande de faire
(quand cela est possible de le faire)