IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Outlook Discussion :

Transférer prise de RDV automatiquement vers un autre agenda [OL-2010]


Sujet :

VBA Outlook

  1. #1
    Candidat au Club
    Femme Profil pro
    Responsable d'un service administratif
    Inscrit en
    octobre 2016
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 48
    Localisation : France, Indre et Loire (Centre)

    Informations professionnelles :
    Activité : Responsable d'un service administratif

    Informations forums :
    Inscription : octobre 2016
    Messages : 2
    Points : 3
    Points
    3
    Par défaut Transférer prise de RDV automatiquement vers un autre agenda
    Bonjour,

    lorsqu'un partenaire extérieur m'envoie un RDV et que j'accepte ce dernier, cela crée automatiquement ce même RDV dans mon agenda personnel (google agenda). Par contre, lorsque je crée moi-même un RDV dans mon agenda outlook professionnel, si je ne m'invite pas à l'accepter avec mon adresse mail perso (gmail), ce dernier n'apparait que sur mon mail professionnel. J'aimerai avoir le code VB qui me permette de transférer automatiquement tout RDV créé sur mon agenda professionnel vers mon agenda google personnel.
    le service informatique sèche... et si je maitrise globalement le VBA, je ne l'ai encore jamais utilisé pour Outlook. J'ai donc besoin d'un peu d'aide !
    Merci d'avance.

  2. #2
    Candidat au Club
    Femme Profil pro
    Responsable d'un service administratif
    Inscrit en
    octobre 2016
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 48
    Localisation : France, Indre et Loire (Centre)

    Informations professionnelles :
    Activité : Responsable d'un service administratif

    Informations forums :
    Inscription : octobre 2016
    Messages : 2
    Points : 3
    Points
    3
    Par défaut
    A force de bidouiller et de chercher partout sur le net j'ai concocté ceci. Si ça peut servir à quelqu'un d'autre...

    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
    Sub CreateAppt()
    'sur création par macro d'un RDV dans l'agenda
    'transmission automatique de ce RDV vers une adresse mail
     Dim myItem As Object
     Dim myRequiredAttendee, myOptionalAttendee, myResourceAttendee As Outlook.Recipient
     
     Set myItem = Application.CreateItem(olAppointmentItem)
     myItem.MeetingStatus = olMeeting
     myItem.Subject = InputBox(" Saisir l'objet de la réunion ")
    If MsgBox("La réunion a t-elle lieu au bureau ?", vbYesNo) = vbYes Then
    myItem.Location = "mon bureau"
    Else
    myItem.Location = InputBox("Saisir le lieu de la réunion")
    End If
     
    pdate = CDate(InputBox(" Saisir la date "))
    pheure = InputBox(" Saisir l'heure ")
    myItem.Start = pdate & " " & pheure
     
     myItem.Duration = InputBox("Saisir la durée estimée de la réunion en minutes (30;60;90...)")
     
     Set myRequiredAttendee = myItem.Recipients.Add("adresseMailVersLaquelleEnvoyer@...")
     myRequiredAttendee.Type = olRequired
     
     myItem.Display
     myItem.Send
    End Sub

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 0
    Dernier message: 13/05/2018, 19h21
  2. Réponses: 4
    Dernier message: 06/01/2016, 17h21
  3. transferer un mail automatiquement vers une autre adresse
    Par cornu33 dans le forum VBA Outlook
    Réponses: 1
    Dernier message: 22/12/2012, 16h54
  4. Transférer champs d'une table vers une autre
    Par misscricri dans le forum MS SQL Server
    Réponses: 3
    Dernier message: 21/03/2012, 13h57
  5. [AC-2007] Transférer une feuille Excel automatiquement vers table Access déjà créée
    Par Debutant10 dans le forum VBA Access
    Réponses: 5
    Dernier message: 17/04/2011, 23h29

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo