Sujet: VBS Outlook
04/05/2007 @ 23:58:29: etik: VBS Outlook
Bonsoir la foule,

Voila mon idee du jour, je voudrai faire un auto-reply avec le msg suivant "merci pour votre email, vous etes le 301eme dans la file" 300 etant le nombre d'email encore non lu recu avant.

Marre des emails urgents, par definition ca n'existe pas, si c'est urgent suffit de telephoner ou d'ouvrir un call au service desk... ha les users :crazy:

Donc j'avais envie de faire un truc marrant a repondre a tout mes emails... genre 300emails avant vous donc reponse estimee dans 1mois... :grin:

Evidement le top serait de pouvoir filtre sur le domaine, auto-reply si seulement personnel de ma societe...

Voila, je commence mes recherches et je mets ce post a jour... je me suis dis que ca pourrais surement servir a d'autre IT :oh:
05/05/2007 @ 00:13:56: etik: VBS Outlook
c'est jouable...

etape 1 - nombre de msg non lu

Code:
  1. Public Sub MyUnreadMessages() 
  2.     Dim Inbox As Outlook.MAPIFolder 
  3.     Set Inbox = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 
  4.     Dim nUnreadMessages As Integer 
  5.     nUnreadMessages = CountUnreadMessagesInFolder(Inbox) 
  6.     Set Inbox = Nothing 
  7.     If nUnreadMessages > 0 Then 
  8.        ' SEND THE AUTO-REPLY 
  9.     End If 
  10. Exit Sub 
  13. Private Function CountUnreadMessages(oFolder As Outlook.MAPIFolder) As Integer 
  14.     Dim i As Integer 
  15.     Dim unreadMails As Integer 
  16.     For i = 1 To oFolder.Items.count 
  17.         If oFolder.Items(i).UnRead Then unreadMails = unreadMails + 1 
  18.     Next i 
  19.     CountUnreadMessages = unreadMails 
  20. End Function
05/05/2007 @ 02:25:21: cauet: VBS Outlook
Langage de barbare :oh:
05/05/2007 @ 10:02:38: Keeper: VBS Outlook
langage au combien pratique

l'appréciation sur le langage vient du fait qu'on l'ignore en générale.
05/05/2007 @ 11:44:02: etik: VBS Outlook
etape 2 event capture
Code:
  1. Private WithEvents olInboxItems As Items 
  3. Private Sub Application_Startup() 
  4.   Dim objNS As NameSpace 
  5.   Set objNS = Application.GetNamespace("MAPI") 
  6.   Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items 
  7.   Set objNS = Nothing 
  8. End Sub 
  10. Private Sub olInboxItems_ItemAdd(ByVal Item As Object) 
  11.   On Error Resume Next 
  12.   ' SEND MSG BACK 
  13. End Sub
05/05/2007 @ 16:06:50: ovh: VBS Outlook
Citation de: cauet
Langage de barbare :oh:

Bien indenté splus facile à lire aussi :joce:

Et sinon ici on voit pas trop le langage (normal, pour ce qu'il y a à voir :joce: ), mais surtout l'architecture objet de l'environnement :spamafote:
05/05/2007 @ 16:15:36: Jean-Christophe: VBS Outlook
laisse ové, c'est un language propre à MS et donc, ca sent l'ours des montagnes :oh:


C'est dommage de se fermer à certaines choses par principe...
05/05/2007 @ 18:01:09: Keeper: VBS Outlook
J-C +1

j'iame pas n"cessairement le VB dans tous ses aspects, mais il a des côtés très pratiques
05/05/2007 @ 18:18:41: ndub: VBS Outlook
:petruscupra: Sans parler de sa portabilité :topicalacon:
05/05/2007 @ 19:13:52: Keeper: VBS Outlook
pourquoi vouloir porter du script VBS ?

tu porterais du scriptshell toi ?
05/05/2007 @ 19:36:01: philfr: VBS Outlook
C'est pas de vouloir porter ce langage qu'il est question, c'est de choisir un langage qui est portable.
Perl, python, bash, javascript et tant d'autres langages existent et sont portables. Si python était intégré à toutes les applis MS plutôt que VBS (ou est-ce VBA ?), ce serait tellement plus productif, mais moins captif pour MS.
05/05/2007 @ 19:37:31: Keeper: VBS Outlook
oui ça c'est sûr, mais MS n'est pas plus bête qu'un autre.

Pourquoi intègré un langage qui faciliterait le portage ? bénéfice nul voir négatif
05/05/2007 @ 20:37:19: cauet: VBS Outlook
Désolé mais entre le Pascal (Delphi) et le VB.. y'a un monde.. Pour moi le Delphi me semble de loin supérieur.
05/05/2007 @ 20:40:43: ndub: VBS Outlook
c'est vrai que le partage portage snul :oh:
Ce sont des idées visiblement appréciées chez Krosoft... </troll>
05/05/2007 @ 20:41:58: didix: VBS Outlook
C'est aussi un peu un autre objectif entre du script et du code compilé...
05/05/2007 @ 20:56:43: Keeper: VBS Outlook
+1 didix
05/05/2007 @ 22:04:55: Jean-Christophe: VBS Outlook
ben oui, quel serait l'avantage de pouvoir manipuler l'objet outlook sous linux? Ici, on manipule une application existante. On pourrait faire un batch "portable" qui se connecterait à un pop3 pour vérifier le nombre de mail non lus. Ce serait portable, mais c'est pas le but ici :spamafote:
18/10/2007 @ 09:25:50: sircam: VBS Outlook
C'est pour le cas d'espèce tellement pratique. De fait, l'ignorer par principe ne serait pas judicieux.

Mais ça n'en reste pas moins parfaitement infâme comme langage! :oh:

No silver bullet, toussa. Ce n'est qu'une question d'adéquation entre les moyens et le but recherché, mais quand les moyens sentent mauvais, c'est moins marrant...
Retour