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
 

naf naf

XLDnaute Nouveau
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

XLDnaute Barbatruc
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...:rolleyes:

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

Discussions similaires

Statistiques des forums

Discussions
311 729
Messages
2 081 966
Membres
101 852
dernier inscrit
dthi16088