[Code Réunions Outlook] Résolu

[Lone-wolf]

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 😛

 

[Compte Supprimé 979]

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

 

[Lone-wolf]

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

Salut Bruno,

Il n'y a pas de quoi.


Sais-tu comment déplacer par VBA, la fenêtre Notes de Outlook?


A+