VBS Outlook - Informaticien.be

VBS Outlook

Publié le 04/05/2007 @ 23:58:29,

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:

etik

VBS Outlook

Publié le 05/05/2007 @ 00:13:56,

Par etik

c'est jouable...

etape 1 - nombre de msg non lu

Code:

Public Sub MyUnreadMessages()
Dim Inbox As Outlook.MAPIFolder
Set Inbox = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Dim nUnreadMessages As Integer
nUnreadMessages = CountUnreadMessagesInFolder(Inbox)
Set Inbox = Nothing
If nUnreadMessages > 0 Then
' SEND THE AUTO-REPLY
End If
Exit Sub
Private Function CountUnreadMessages(oFolder As Outlook.MAPIFolder) As Integer
Dim i As Integer
Dim unreadMails As Integer
For i = 1 To oFolder.Items.count
If oFolder.Items(i).UnRead Then unreadMails = unreadMails + 1
Next i
CountUnreadMessages = unreadMails
End Function

Dernière édition: 05/05/2007 @ 16:06:16

cauet

VBS Outlook

Publié le 05/05/2007 @ 02:25:21,

Par cauet

Langage de barbare :oh:

Keeper

VBS Outlook

Publié le 05/05/2007 @ 10:02:38,

Par Keeper

langage au combien pratique

l'appréciation sur le langage vient du fait qu'on l'ignore en générale.

etik

VBS Outlook

Publié le 05/05/2007 @ 11:44:02,

Par etik

etape 2 event capture

Code:

Private WithEvents olInboxItems As Items
Private Sub Application_Startup()
Dim objNS As NameSpace
Set objNS = Application.GetNamespace("MAPI")
Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
Set objNS = Nothing
End Sub
Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
On Error Resume Next
' SEND MSG BACK
End Sub

Dernière édition: 05/05/2007 @ 12:37:39

ovh

VBS Outlook

Publié le 05/05/2007 @ 16:06:50,

Par ovh

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:

Dernière édition: 05/05/2007 @ 16:07:53

Je n'ai rien à voir avec www.ovh.com

Jean-Christophe

VBS Outlook

Publié le 05/05/2007 @ 16:15:36,

Par Jean-Christophe

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...

Keeper

VBS Outlook

Publié le 05/05/2007 @ 18:01:09,

Par Keeper

J-C +1

j'iame pas n"cessairement le VB dans tous ses aspects, mais il a des côtés très pratiques

ndub

VBS Outlook

Publié le 05/05/2007 @ 18:18:41,

Par ndub

Sans parler de sa portabilité :topicalacon:

Quoi que vous fassiez sera insignifiant, mais c'est très important que vous le fassiez. - Mahatma Gandhi

Keeper

VBS Outlook

Publié le 05/05/2007 @ 19:13:52,

Par Keeper

pourquoi vouloir porter du script VBS ?

tu porterais du scriptshell toi ?

philfr

VBS Outlook

Publié le 05/05/2007 @ 19:36:01,

Par philfr

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.

Keeper

VBS Outlook

Publié le 05/05/2007 @ 19:37:31,

Par Keeper

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

cauet

VBS Outlook

Publié le 05/05/2007 @ 20:37:19,

Par cauet

Désolé mais entre le Pascal (Delphi) et le VB.. y'a un monde.. Pour moi le Delphi me semble de loin supérieur.

ndub

VBS Outlook

Publié le 05/05/2007 @ 20:40:43,

Par ndub

c'est vrai que le partage portage snul :oh:

Ce sont des idées visiblement appréciées chez Krosoft... </troll>

Quoi que vous fassiez sera insignifiant, mais c'est très important que vous le fassiez. - Mahatma Gandhi

didix

VBS Outlook

Publié le 05/05/2007 @ 20:41:58,

Par didix

C'est aussi un peu un autre objectif entre du script et du code compilé...

Keeper

VBS Outlook

Publié le 05/05/2007 @ 20:56:43,

Par Keeper

+1 didix

Jean-Christophe

VBS Outlook

Publié le 05/05/2007 @ 22:04:55,

Par Jean-Christophe

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:

sircam

VBS Outlook

Publié le 18/10/2007 @ 09:25:50,

Par sircam

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...