Récupérer les fichiers joints

Signaler
-
Messages postés
202
Date d'inscription
mardi 14 novembre 2006
Statut
Membre
Dernière intervention
10 février 2009
-
J'ai récupérer ce code quelque part, ca permet d'envoyer un mail avec un fichier joint, y a moyen de réutiliser ça pour faire l'inverse, c'est à dire récupérer les fichiers joints des mails que je reçois avec Oultook ?

Public Outlook As Outlook.Application
....
Public Sub CreateNewMail(File As String, Optional MailTo As String, Optional
Subject As String)
Dim Folder As MAPIFolder
Dim MailItem As MailItem
Dim t As Explorer

If Outlook Is Nothing Then
Set Outlook = CreateObject("Outlook.Application")
End If

Set Folder = Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set MailItem = Outlook.CreateItem(olMailItem)

MailItem.Attachments.Add File

MailItem.Subject = Subject
MailItem.To = MailTo
MailItem.Display
End Sub

Merci
Van

1 réponse

Messages postés
202
Date d'inscription
mardi 14 novembre 2006
Statut
Membre
Dernière intervention
10 février 2009

Salut essaye un truc dans le genre

Dim mailitem As Microsoft.Office.Interop.Outlook.MailItem
Dim i As Int32
Dim tot As Int32 = mailitem.Attachments.Count
For i = 0 To tot
   MsgBox(mailitem.Attachments.Item(i).FileName)
Next

je sais pas si ca marche, il faut essayer
<hr size="2" width="100%" />  (^o^) (x_x) (o_o*) (o_o') (O_O) (OoO) (>_<) (=_=)