Discussion :

[redalinho]

bonjour les amis

J'ai lu cette discussion.
SVP dans me cas je cherche le code qui renomme la p-j selon l’expéditeur, merci de m'aider afin que je puisse intégrer le code nécessaire dans le programme ci-dessous;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub SaveAttachment()
 
'Declaration
Dim myItems, myItem, myAttachments, myAttachment As Object
Dim myOrt As String
Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim i As Integer
 
'Boîte de dialogue simple pour le chemin de sauvegarde
myOrt = InputBox("Destination", "Save Attachments", "C:\CdeDELL\Facture\")
 
On Error Resume Next
 
'Actions sur les objets sélectionnés
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
 
'boucle
For Each myItem In myOlSel
Set myAttachments = myItem.Attachments
If myAttachments.Count > 0 Then
'Ajoute une remarque dans le corps du message
myItem.Body = myItem.Body & vbCrLf & _
"pièce jointe enlevée:" & vbCrLf
 
'for all attachments do...
For i = 1 To myAttachments.Count
 
'save them to destination
myAttachments(i).SaveAsFile myOrt & _
myAttachments(i).DisplayName
myItem.Body = myItem.Body & _
"File: " & myOrt & _
myAttachments(i).DisplayName & vbCrLf
 
Next i
 
End If
 
Next
 
Set myItems = Nothing
Set myItem = Nothing
Set myAttachments = Nothing
Set myAttachment = Nothing
Set myOlApp = Nothing
Set myOlExp = Nothing
Set myOlSel = Nothing
 
End Sub

[joe.levrai]

Bonjour,

regarde du côté des propriétés Sender, SenderEmailAddress et SenderName de l'objet mailitem pour récupérer l'expéditeur

et ensuite, comme tu n'expliques pas comment tu veux gérer ta popotte ... ben je dois m'arrêter là !

[kiki29]

Salut, @redalinho : Balise ton code

[redalinho]

Salut, @redalinho : Balise ton code

salut kiki, c'est a dire baliser ?, je suis débutant sur VBA

[redalinho]

Bonjour,

regarde du côté des propriétés Sender, SenderEmailAddress et SenderName de l'objet mailitem pour récupérer l'expéditeur

et ensuite, comme tu n'expliques pas comment tu veux gérer ta popotte ... ben je dois m'arrêter là !

merci joe, je ne sais vraiment pas ou cherché, mais d’après la discutions en haut de la page, le code que je dois modifier dans m'as macro est le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myOrt = InputBox("Destination", "Save Attachments", "C:\CdeDELL\Facture\")

[joe.levrai]

comme tu n'expliques pas comment tu veux gérer ta popotte ... ben je dois m'arrêter là !