Discussion :

[julius870]

Bonjour,
Dans le cadre professionnel, je dois gérer les rendez-vous de mon supérieur; nous disposons tous les deux de deux adresses courriels exchange.
J'ai partagé le calendrier de mon supérieur, je dispose de tous les droits (écriture, lecture, ajout, suppression...)
J'ai paramétré son téléphone afin qu'il puisse avoir accès à ses courriels et calendrier en temps réel.
Je souhaiterai que pour chaque modification (ajout, suppression, modification) d'un rendez-vous sur le calendrier de mon supérieur, qu'un courriel soit envoyé directement sur les deux adresses, pensez vous que c'est possible à travers du code VBA.
Naturellement le code vba serait sur mon poste où Outlook reste ouvert en permanence.
Je reste preneur de toutes informations.
Cordialement.
Julius870

[Oliv-]

Bonjour,

Dans ton outlook, dans ThisOutlookSession

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim WithEvents colRDVItems As items

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Application_Startup()
'By Oliv ' 2014-04-07
        Dim ns As Outlook.NameSpace
        Set ns = Application.GetNamespace("MAPI")
        Set colRDVItems = ns.Folders("MON BOSS").Folders("Calendrier").items
        Set ns = Nothing
        'fin section
    End Sub
 
 
Private Sub colRDVItems_ItemAdd(ByVal Item As Object)
'By Oliv ' 2014-04-07
    If Item.Class = olAppointment Then
        Dim myRdv As Outlook.AppointmentItem
        Set myRdv = Item
        Set myMail = myRdv.ForwardAsVcal
        myMail.To = "toto@toto.fr;titi@toto.fr"
        myMail.Send
    End If
End Sub
 
Private Sub colRDVItems_ItemChange(ByVal Item As Object)
'By Oliv ' 2014-04-07
    If Item.Class = olAppointment Then
        Dim myRdv As Outlook.AppointmentItem
        Set myRdv = Item
        Set myMail = myRdv.ForwardAsVcal
        myMail.To = "toto@toto.fr;titi@toto.fr"
        myMail.Send
    End If
End Sub

[slvie]

Bonjour à tous ,
Je suis nouveau sur ce forum et débutant en Vba .
Je suis tombé su la macro d'Oliv (que je remercie )elle m’intéresse mais je n'arrive pas à l'utilisé .
J 'ai réussi à change les adresses mail pour l'envoie du mail mais pour les autres paramètres je n'y comprend rien (MAPI ,MON BOSS).
Qu'un peut il m’éclairer ?

Merci d'avance .

Outlook 2013

[Oliv-]

Bonjour,
il faut juste changer MON BOSS par le nom de la personne concernée par ce calendrier.

[slvie]

Bonjour Oliv

Merci pour ton aide .
Bon je dois être vraiment mauvais .

J'ai tenté avec mon "nom prénom" et "prénom nom" mais ce ne marche pas
j'ai tenté avec mon adresse mail et là: 245 mails en quelques minutes .


En relisant bien je me dis :peut être que le fonctionnement que je cherche n'est pas tout à fait le même.

Je suis propriétaire d un calendrier exchange partagé .J' ai des collaboratrices qui sont amenées à me prendre des rendez ou à en modifier .
Je souhaiterai être informé par un mail de toute modifications ou ajouts sans intervenir sur leur poste.
Du coup dans ta macro c'est le collaborateur qui envoi le mail .Je me trompre,

Je joins le code .

Dim WithEvents colRDVItems As Items
Private Sub Application_Startup()
'By Oliv ' 2014-04-07
Dim ns As Outlook.NameSpace
Set ns = Application.GetNamespace("MAPI")
Set colRDVItems = ns.Folders("xxxxxxxx@xxxxxx.fr").Folders("Calendrier").Items
Set ns = Nothing
'fin section
End Sub


Private Sub colRDVItems_ItemAdd(ByVal Item As Object)
'By Oliv ' 2014-04-07
If Item.Class = olAppointment Then
Dim myRdv As Outlook.AppointmentItem
Set myRdv = Item
Set myMail = myRdv.ForwardAsVcal
myMail.To = "xxxxxx@xxxx.fr"
myMail.Send
End If
End Sub

Private Sub colRDVItems_ItemChange(ByVal Item As Object)
'By Oliv ' 2014-04-07
If Item.Class = olAppointment Then
Dim myRdv As Outlook.AppointmentItem
Set myRdv = Item
Set myMail = myRdv.ForwardAsVcal
myMail.To = "xxxxxxx@xxxxxx.fr"
myMail.Send
End If
End Sub

Merci

[Oliv-]

A la place de MON BOSS c'est le nom exact du calendrier PARTAGE (BAL)
il faut pouvoir voir le dossier dans "COURRIER" quand on clique sur liste des dossier (icone en bas du volet de navigation) et que l'on déroule cette BAL