Bonjour,
Voila j'ai fait une application qui va lire un mail outlook et copie le contenu de ce mail dans une page bloc note...
Ensuite le contenu et copier dans la page excel de base mais je n'arrive pas a supprimer le fichier texte que je créé...
Auriez vous une idée ????
 
Le code est :
 
Dim OLapp As Outlook.Application
Dim OLspace As Outlook.NameSpace
Dim OLinbox As Outlook.MAPIFolder
Dim OLfolder As Outlook.MAPIFolder
Dim OLmail As Outlook.MailItem
Dim OLpj As Outlook.Attachment
   
Private Sub TransfertMailsDansFichierTexte()
Dim OLbody As String
Dim Cible As Integer
Dim i As Byte
 
Set OLapp = CreateObject("Outlook.application" )
Set OLspace = OLapp.GetNamespace("MAPI" )
Set OLinbox = OLspace.GetDefaultFolder(olFolderInbox)
 
For Each OLmail In OLinbox.Items
If OLmail.SenderName = "Moine Laurent" Then
OLbody = OLmail.Body
i = i + 1
Cible = FreeFile
 
'Adapter chemin fichier de suivi sur le reseau
 
Open "K:\et\ET01LICI\et01proserpi\3Lici\Domaine d'application\Netgear.txt" For Append As #Cible
Print #1, OLbody
Close #Cible
 
End If
Next
Set OLapp = Nothing
Set OLspace = Nothing
Set OLinbox = Nothing
 
End sub
 
 

Je ne vois pas où tu détruis ton fichier?
De plus, il est préférable de l'ouvrir avant la boucle For Each, puisqu'il est ouvert en mode append, écrire dans la boucle et le fermer après la boucle. Tu gagnerais du temps...

ben justement la il le referme juste....
et je veut le supprimer mais je sais aps comment faire ????

kill "K:\et\ET01LICI\et01proserpi\3Lici\Domaine d'application\Netgear.txt"

Yeah ca amrche merci beaucoup