Microsoft 365 completer un formulaire outlook avec VBA excel

naf naf · 17 Janvier 2021

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 · 17 Janvier 2021

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

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

Staple1600 · 17 Janvier 2021

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 · 17 Janvier 2021

Staple1600 à dit:
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 · 17 Janvier 2021

Re

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

naf naf · 17 Janvier 2021

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 · 17 Janvier 2021

Re

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

naf naf · 17 Janvier 2021

VB:

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

Staple1600 · 17 Janvier 2021

Re

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

naf naf · 17 Janvier 2021

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

Staple1600 · 17 Janvier 2021

Re

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

naf naf · 17 Janvier 2021

Staple1600 à dit:
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 · 17 Janvier 2021

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 · 17 Janvier 2021

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 · 17 Janvier 2021

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

Microsoft 365 completer un formulaire outlook avec VBA excel

naf naf

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Autres applications

Staple1600

XLDnaute Barbatruc

naf naf

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

naf naf

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

naf naf

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

naf naf

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

naf naf

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

naf naf

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires