Envoie mail sur calendrier outlook

VBA
4

Re,

Je pense comprendre un peu mieux votre demande, voici du code

En fait il faut envoyer un genre de RDV à la personne

Option Explicit

Const olAppointmentItem As Long = 1
Const OlMeeting As Long = 1
Const olFormatHTML As Long = 2

Sub RappelOutlook()
' Ajouter un nouveau rendez-vous.
  Dim ObjOl As Object, ObjItem As Object
  Dim Lig As Long, Sujet As String, Détail As String
  Dim DebDate As String, FinDate As String, StrStamp As String
  Dim Rappel As Single
  ' Initalisation
  DebDate = "22/11/2021 08:00"
  FinDate = "27/11/2021 17:00"
  ' Créer l'instance OUTLOOK
  Set ObjOl = CreateObject("outlook.application")
  ' Créer l'instance pour le RDV
  Set ObjItem = ObjOl.CreateItem(olAppointmentItem)
  ' Si tout est OK, on créé un RDV
  With ObjItem
    .Display  ' Pour avoir la signature
    .BodyFormat = olFormatHTML
    .Body = "Bonjour," & vbNewLine _
      & "Voici ma demande de congés pour la période suivante" & Sheets("Feuil1").Range("B12") & vbNewLine _
      & "Cordialement"
    .Start = DebDate
    .End = FinDate
    .Location = "Montargis"
    .ReminderMinutesBeforeStart = 480
    .ReminderSet = True
    .Subject = "Formation"
    .MeetingStatus = OlMeeting
    ' Participant(s) obligatoire(s)
    .RequiredAttendees = "infopassion@free.fr"
    ' participants optionnel à la réunion
    .OptionalAttendees = "optionnel@societe.com"
    .Send
  End With
  ' Libérez la variable objet Outlook.
  Set ObjOl = Nothing: Set ObjItem = Nothing
End Sub

Je n’ai pas creusé pour la signature

A+