Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[Code Réunions Outlook] Résolu

Lone-wolf

XLDnaute Barbatruc
Code:
Sub Reunions()
Dim olApp As Outlook.Application
Dim rns As Outlook.AppointmentItem
Dim objRecip As Outlook.Recipient
Dim Name As String

On Error Resume Next
Name = Nouveau.Prénom.Value & " " & Nouveau.Nom.Value & " " & Nouveau.Email.Value

Set olApp = Outlook.Application
Set rns = olApp.CreateItem(olAppointmentItem)
Set objRecip = rns.Recipients.Add(Name)
With rns
    .Recipients.Add (Name) - 1      ' - 1 évite d'avoir 2 fois la même adresse
    .MeetingStatus = olMeeting
    .Importance = olImportanceNormal
    .Subject = ""
    .Body = ""
    .Location = ""
    .Start = Now
    .Duration = 0
    .Categories = ""
    .Display
End With
Set olApp = Nothing
Set rns = Nothing
End Sub

Merci beaucoup pour vos réponses
 
Dernière édition:
C

Compte Supprimé 979

Guest
Re : [Code Réunions Outlook] Résolu

Salut Lone-Wolf

Merci de nous avoir mis le code final

En revanche tu aurais dû le mettre sur ton précédent fil

Au plaisir
 

Discussions similaires

  • Question
Microsoft 365 Macro VBA
Réponses
2
Affichages
428
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…