Prb pour appeler la fonction

Question

Bonjour à tous !

J'ai effectué le programme suivant (dans un tuto):

Private Sub Application_NewMail()
    Dim myOlApp As New Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myInbox As Outlook.Folder
    Dim myDestFolder As Outlook.Folder
    Dim myItems As Outlook.Items
    Dim myItem As Object
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox)
    Set myItems = myInbox.Items
    Set myDestFolder = myInbox.Folders("Temp")
    Dim strName As String
    
    For Each myItem In myInbox.Items
    
        strName = myItem.EntryID
      myItem.SaveAs "C:\Temp" & strName & ".txt", olTXT
        myItem.Move myDestFolder
        Set myItem = myItems.GetNext
        
    Next myItem
End Sub

Selon le tuto, ce code s'exécute lors de chaque arrivée de message dans la boîte de réception. Les actions qui vont être exécutées sont :
[*] Sauvegarde en fichier txt du message dans le dossier c:	emp
[*] Transfert du message dans un dossier temporaire situé dans le dossier Boîte de réception.

Le soucis c'est que le fichier ne se créer pas, est-il nécessaire d'appeler la fonction ?       

Merci pour votre aide.

cs_Jack · Answer

Salut
Quelle version de Outlook ?
Cette fonction, tu l'as bien collée dans Projet1 + Microsoft Office Outlook Objects + ThisOulookSession ?
Chez moi, en 2003, une demande de compilation bloque sur les définitions :
    Dim myInbox As Outlook.Folder
    Dim myDestFolder As Outlook.FolderDéfinition-méthode à revoir

Apparemment, d'après l'aide, il faut utiliser Outlook.MAPIFolder

et ça fonctionne (juste un peu de boulot de mon côté pour virer les 803 fichiers générés)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Jack · Answer

ATTENTION :

Ne jouez pas trop avec ce code.
Je l'ai bêtement (j'avoue) lancé sans trop me soucier.
Il m'a bien déplacé les mails dans un répertoire Temp placé dans la boîte de réception
MAIS
lorsque j'ai voulu remettre les mails au bon endroit, il leur a attribué la date présente : j'ai perdu les dates des mails movés.

On va rappeler la sauvegarde ...

ucfoutu · Answer

Bonjour, Jack,
Je ne suis pas tombé dans ce double piège :
1) sauvegarder
2) transférer
J'en rigole encore 

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

ptitemeuh · Answer

Mercii !! Bonne journée !!

Prb pour appeler la fonction

4 réponses

Votre réponse

Discussions similaires