copie des pieces jointes en mails depuis excel VBA

Re : copie des pieces jointes en mails depuis excel VBA

Voici le code sous outlook:

Sub exportPiecesJointes_BoiteReception()
Dim OutlookApp As New Outlook.Application
Dim olSpace As Outlook.NameSpace
Dim olInbox As Outlook.MAPIFolder
Dim pceJointe As Outlook.Attachment
Dim j As Integer, i As Integer, x As Integer

Set OutlookApp = CreateObject("Outlook.Application")
Set olSpace = OutlookApp.GetNamespace("MAPI")
Set olInbox = olSpace.GetDefaultFolder(olFolderInbox)

'boucle sur tous les messages de la boite de réception
For j = 1 To olInbox.Items.Count

If Not olInbox.Items.Item(j).Attachments.Count = 0 Then

For i = 1 To olInbox.Items.Item(j).Attachments.Count
Set pceJointe = olInbox.Items.Item(j).Attachments(i)

If pceJointe.FileName = "10-11-08-22_00-stats_inter_detaillee_ATFAI.xls" Or pceJointe.FileName = "ANOHSTRD.xls" Then
x = x + 1
pceJointe.SaveAsFile "D:\10-11-08-22_00-stats_inter_detaillee_ATFAI.xls"
End If

Set pceJointe = Nothing
Next i

End If
Next j

End Sub

Re : copie des pieces jointes en mails depuis excel VBA

Bonjour,

Depuis excel, normalement le code ne change pas, il suffit d'aller dans les référence du vba, et choisir "Mircrosoft Outlook 11.0 object Library".

J'ai juste un doute sur le "New Outlook.application" sur Excel.

Sur mes codes utilisant Outlook depuis Excel je n'ai pas mis de "New",

Dim OutlookApp As Outlook.Application

devrait suffir.

Cordialement

smotty