Accueil > > > OUTLOOK : ENVOI DE MAIL ET AJOUT, MODIFICATION ET SUPRRESION DES RENDEZ-VOUS DANS LE CALENDRIER
OUTLOOK : ENVOI DE MAIL ET AJOUT, MODIFICATION ET SUPRRESION DES RENDEZ-VOUS DANS LE CALENDRIER
Information sur la source
Description
J'ai eu un mal fou à trouver comment faire tout ça, alors je me suis dit que cela pourrait aider de faire une source permettant la MAJ du calendrier Outlook ainsi que l'envoi de mail.
Source
- 'Envoie de mail
-
- Dim objOutlook as New Outlook.Application
- Dim objOutlookMsg as Outlook.MailItem
-
- Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
- With objOutlookMsg
- .To = "Adresse@Destinataire"
- .Subject = "Objet du message"
- .Body = "Texte du message"
- .Send
- End With
- Set objOutlookMsg = Nothing
-
- 'Ajout d'un rdv au calendrier
-
- Dim objOutlook as New Outlook.Application
- Dim objOutlookAppt as Outlook.AppointmentItem
-
- Set objOutlookAppt = objOutlook.CreateItem(olAppointmentItem)
- With objOutlookAppt
- .Start = "jj/mm/aaaa hh:mm"
- .Duration = x 'En minute
- .Subject = "Description du rendez-vous"
- .Save
- End With
-
- 'Modifier/Supprimer un rdv du calendrier
-
- Dim objOutlook as New Outlook.Application
- Dim objOutlookAppt as Outlook.AppointmentItem
- Dim objOutlookCalendar as Outlook.Items
- Dim objOutlookNameSpace as Outlook.NameSpace
- Dim DateDebut as String, DateFin as String
-
- Set objOutlookNameSpace = objOutlook.GetNameSpace("MAPI")
- Set objOutlookCalendar = objOutlookNameSpace.GetDefaultFolder(olFolderCalendar).Items
- objOutlookCalendar.Sort "[Start]"
- objOutlookCalendar.IncludeReccurrences = True
-
- DateDebut = "jj/mm/aaaa hh:mm"
- DateFin = "jj/mm/aaaa hh:mm"
-
- Set objOutlookAppt = objOutlookCalendar.Find("[Start] >= " " " & DateDebut & " " " and [Start] <= " " " & DateFin & " " " ")
- While TypeName(objOutlookAppt) <> "Nothing"
- If objOutlookAppt.Subject = "RDV recherché pour etre modifié" then
- objOutlookAppt.Subject = "Nouveau sujet"
- objOutlookAppt.Save
- Exit Sub
- End If
-
- If objOutlookAppt.Subject = "RDV recherché pour supprimé" then
- objOutlookAppt.Delete
- Exit Sub
- End If
- Set objOutlookAppt = objOutlookCalendar.FindNext
- Wend
'Envoie de mail
Dim objOutlook as New Outlook.Application
Dim objOutlookMsg as Outlook.MailItem
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
.To = "Adresse@Destinataire"
.Subject = "Objet du message"
.Body = "Texte du message"
.Send
End With
Set objOutlookMsg = Nothing
'Ajout d'un rdv au calendrier
Dim objOutlook as New Outlook.Application
Dim objOutlookAppt as Outlook.AppointmentItem
Set objOutlookAppt = objOutlook.CreateItem(olAppointmentItem)
With objOutlookAppt
.Start = "jj/mm/aaaa hh:mm"
.Duration = x 'En minute
.Subject = "Description du rendez-vous"
.Save
End With
'Modifier/Supprimer un rdv du calendrier
Dim objOutlook as New Outlook.Application
Dim objOutlookAppt as Outlook.AppointmentItem
Dim objOutlookCalendar as Outlook.Items
Dim objOutlookNameSpace as Outlook.NameSpace
Dim DateDebut as String, DateFin as String
Set objOutlookNameSpace = objOutlook.GetNameSpace("MAPI")
Set objOutlookCalendar = objOutlookNameSpace.GetDefaultFolder(olFolderCalendar).Items
objOutlookCalendar.Sort "[Start]"
objOutlookCalendar.IncludeReccurrences = True
DateDebut = "jj/mm/aaaa hh:mm"
DateFin = "jj/mm/aaaa hh:mm"
Set objOutlookAppt = objOutlookCalendar.Find("[Start] >= " " " & DateDebut & " " " and [Start] <= " " " & DateFin & " " " ")
While TypeName(objOutlookAppt) <> "Nothing"
If objOutlookAppt.Subject = "RDV recherché pour etre modifié" then
objOutlookAppt.Subject = "Nouveau sujet"
objOutlookAppt.Save
Exit Sub
End If
If objOutlookAppt.Subject = "RDV recherché pour supprimé" then
objOutlookAppt.Delete
Exit Sub
End If
Set objOutlookAppt = objOutlookCalendar.FindNext
Wend
Conclusion
Une petite précision au sujet des dates : peu importe dans l'ajout, mais dans le objOutlookCalendar.Find(), il ne faut pas mettre les secondes dans les dates sinon il deboguera.
Point Important : rien ne marche... si vous n'avez pas cocher Microsoft Outlook x.0 Object Library dans Projet/Références, alors n'oubliez pas ;-)
Vérifié bien que Outlook est bien configuré, sinon, même si le code est bon, Outlook vous causera des problèmes.
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
[MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA[MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA par cyril
Le deuxième keynote du mix fut très riche en contenu. Internet Explorer 9 Juste un après le lancement de Internet Explorer 8, Microsoft a dévoilé les nouveautés de Internet Explorer 9. Désormais, IE supportera HTML5, SVG et CSS3. L'élément ...
Cliquez pour lire la suite de l'article par cyril CERTIFICATIONS BETA .NET 4CERTIFICATIONS BETA .NET 4 par KooKiz
Les inscriptions pour les certifications beta .NET 4 ont commencé. L'inscription est offerte pour les examens suivants : - 71-511, TS: Windows Applications Development with Microsoft .NET Framework 4 - 71-515, TS: Web Applications Development with...
Cliquez pour lire la suite de l'article par KooKiz [MIX 2010] - MICROSOFT TRANSLATOR TECHNOLOGY PREVIEW V2[MIX 2010] - MICROSOFT TRANSLATOR TECHNOLOGY PREVIEW V2 par redo
J'imagine que la plupart d'entre vous connaissent bien et utilisent le service de traduction de Google, mais connaissez-vous celui de Microsoft . Microsoft Translator ? Effectivement, Microsoft nous annoncé le lancement version 2 de la Technologie Preview...
Cliquez pour lire la suite de l'article par redo LANCEMENT EN PREVIEW DE CYCLONE LORS DES TECHDAYS 2010!LANCEMENT EN PREVIEW DE CYCLONE LORS DES TECHDAYS 2010! par MPOWARE
Toutes les vidéos de ce lancement sont en ligne!
Partie I - Intro
http://www.youtube.com/watch?v=LkQzTQ8T6CA
Partie II - Démo 1
http://www.youtube.com/watch?v=drAhYQ7lqvo
Partie III - Démo 2
http://www.youtube.com/watch?v=c8KM_1Gqybc...
Cliquez pour lire la suite de l'article par MPOWARE
Forum
RE : LIRE MP3RE : LIRE MP3 par nassima2010Developpement
Cliquez pour lire la suite par nassima2010Developpement
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|