[outlook] est-il capable de faire ça ?

Fermé
oufnomore Messages postés 15 Date d'inscription mercredi 20 novembre 2002 Statut Membre Dernière intervention 21 mars 2008 - 20 nov. 2002 à 18:25
oufnomore Messages postés 15 Date d'inscription mercredi 20 novembre 2002 Statut Membre Dernière intervention 21 mars 2008 - 22 nov. 2002 à 10:51
salut à tous

voilà je cherche à faire ça :
sous outlook (2000), à la réception d'un mail avec fichier attaché :

- détacher ce fichier
- lancer un traitement sur ce fichier par le biais d'un autre logiciel
- récupérer le fichier traité pour le retourner à l'émetteur

j'ai besoin d'une réponse assez rapide

merci beaucoup par avance les gars !

1 réponse

oufnomore Messages postés 15 Date d'inscription mercredi 20 novembre 2002 Statut Membre Dernière intervention 21 mars 2008
22 nov. 2002 à 10:51
salut...

vous n'avez pas un pti conseil vba ?
en fait j'ai commencé à fouiller dans l'aide
mais j'ay connais pas grand chose...
je me suis remis à vb que depuis 4 jours...
j'ai créé une macro...

déjà ce que je voudrai c'est que cette macro soit active en "tache de fond".. pour ça j'essaye de capter l'evenement "arrivée d'un nouveau mail dans boite de réception"

j'ai créé un objet outlook.application
j'ai trouvé aussi des infos pour créer l'objet folder

mais là je commence à bloquer...

il faudrai ensuite que je puisse déterminer si le mail contient une pièce jointe, contrôler son type, et la détacher...
je fais :

Set myItem = myOlApp.CreateItem(olMailItem)
Dim myExplorers As Outlook.Explorers
Dim myFolder As Outlook.MAPIFolder
Set myExplorers = myOlApp.Explorers
Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
If myExplorers.Count <> 0 Then
For x = 1 To myExplorers.Count
If myExplorers.Item(x).CurrentFolder.Name = "Boîte de réception" Then
Set myAttachments = myItem.Attachments
end if
end if


bon bah ça ça marche pas trop...

vous avez une idée ?
0