Enregistrement d'une piece jointe sous outlook dans un dossier reseau
tolb
-
22 oct. 2001 à 16:45
kenshynn Messages postés 2 Date d'inscription mardi 7 octobre 2003 Statut Membre Dernière intervention 8 octobre 2003 - 8 oct. 2003 à 10:56
kenshynn Messages postés 2 Date d'inscription mardi 7 octobre 2003 Statut Membre Dernière intervention 8 octobre 2003 - 8 oct. 2003 à 10:56
A voir également:
- Macro outlook enregistrer pièce jointe
- Tu trouveras en pièce jointe - Forum VB.NET
- Activer macro outlook ✓ - Forum Visual Basic
- Modification de macro par macro sous Outlook - Forum Visual Basic 6
- Mail avec piece jointe ✓ - Forum Delphi / Pascal
- Macro outlook - Forum Visual Basic 6
2 réponses
kenshynn
Messages postés
2
Date d'inscription
mardi 7 octobre 2003
Statut
Membre
Dernière intervention
8 octobre 2003
7 oct. 2003 à 10:17
7 oct. 2003 à 10:17
Je suis à la recherche de la même information. Je vias rechercher de part moi même en attendant :)
Kenshynn
Kenshynn
kenshynn
Messages postés
2
Date d'inscription
mardi 7 octobre 2003
Statut
Membre
Dernière intervention
8 octobre 2003
8 oct. 2003 à 10:56
8 oct. 2003 à 10:56
Après pas mal de recherche sur le net et personnelle, j'ai obtenue une alternative à mon problème. Avoir une macro quand on ouvre un mail permettant d'enregistrer toutes les pièces jointes dans une répertoire indiqué dans la macro.
--------------------------
Sub enregPieceJointe()
Dim i As Integer
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector.CurrentItem
Set myAttachments = myItem.Attachments
If myAttachments.Count > 0 Then
For i = 1 To myAttachments.Count
myAttachments.Item(i).SaveAsFile "P:" & _
myAttachments.Item(i).DisplayName
Next i
End If
End Sub
----------
Kenshynn
--------------------------
Sub enregPieceJointe()
Dim i As Integer
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector.CurrentItem
Set myAttachments = myItem.Attachments
If myAttachments.Count > 0 Then
For i = 1 To myAttachments.Count
myAttachments.Item(i).SaveAsFile "P:" & _
myAttachments.Item(i).DisplayName
Next i
End If
End Sub
----------
Kenshynn