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

 

[Staple1600]

Bonjour le fil

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

Autres applications

Pour vos questions concernant Power BI, Access, Word, Power point, Outlook, Microsoft project,... et les tableurs alternatifs tels que Google Sheets et LibreOffice Calc

www.excel-downloads.com

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

Ce qui donnera comme affichage

Sub CreationReunion()

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

 

[Staple1600]

Re

Et pour ta question, tu as déjà une piste dans ton précédent fil, non?
Set objReunion = objOutlook.CreateItem(olAppointmentItem)
Tu sais le code où je parle de Template

 

[naf naf]

Re

Et pour ta question, tu as déjà une piste dans ton précédent fil, non?
Set objReunion = objOutlook.CreateItem(olAppointmentItem)
Tu sais le code où je parle de Template

oui justement j'essaye d'adapter l'un dans l'autre mais objOutlook.CreateItemTemplate il me met en erreur

 

[Staple1600]

Re

Pour infos
La balise idoine c'est
[CODE=vb]texte macro VBA[/CODE]
et non pas [ICODE]

 

[naf naf]

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]

Re

Sinon pour ta question, tu as consulté l'aide en ligne de Microsot
(voir aide en ligne)

 

[naf naf]

Outlook_Mod = ThisWorkbook.Path & "\modele3.oft"
Set objReunion = Outlook.Application("Outlook.Application").CreateItemFromTemplate(Outlook_Mod)[/ICODE]

 

[Staple1600]

Re

=>naf naf
Y a ton browser qui beugue
Heureusement, tu peux supprimer les messages surnuméraires.

 

[naf naf]

voila mdr ...
j'ai essayé cette ligne mais il veut pas de la deuxieme ligne

 

[Staple1600]

Re

=>naf naf
Tu as cliqué sur le lien dans le message#8 ?

 

[naf naf]

Re

=>naf naf
Tu as cliqué sur le lien dans le message#8 ?

oui je cherche je fais des essais, mais pour le moment ca fonctionne pas

 

[Staple1600]

Re

De ce que j'ai lu olAppointmentItem est un objet différent d'un objet olMailItem

Le plus simple est de créer ton RDV de A à Z sans passer par un modèle.

 

[naf naf]

j'ai essayé mais c'est trop compliqué le contenu du mail est trop compliqué a refaire , d'ou le modèle enregistrer. Plus qu'à changé les valeurs de destinataire est c'est bon

 

[Staple1600]

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