[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 :p
 
Dernière édition:

Discussions similaires

  • Question
Microsoft 365 Macro VBA
Réponses
2
Affichages
498

Statistiques des forums

Discussions
314 450
Messages
2 109 729
Membres
110 553
dernier inscrit
loic55