[OL-2010] Règle pour transferer les mails avec leur adresse

[drissi]

Bonjour à tous,
J'ai réussi à créer une règle Outlook qui permet de transférer mes mails Exchange vers mon adresse Gmail, mais j'ai une question, c'est comment transférer le mail avec l'adresse de l'expéditeur, c'est à dire actuellement, je reçois le mail mais juste avec son nom, pas d'adresse, ce qui me bloque si je veux répondre à partir de mon compte Gmail.
Merci pour votre aide.

[nolliug]

Bonjour
Pourquoi tu ne fais pas ta règle directement dans EXCHANGE plutôt que dans OUTLOCK ?

Sinon passe par le VBA.. voici un exemple de code que j'utilise qui peut-être te mettras sur la voie ...

Code :

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
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
 
Dim MonApp As Outlook.Application
Dim MonMail As Object
Dim MonNameSpace As Outlook.NameSpace
Dim MonDossier As Outlook.Folder
Dim MaPJ As Attachments
Dim Repertoire As String
Dim Dates As Date
 
Set MonApp = Outlook.Application
Set MonNameSpace = MonApp.GetNamespace("MAPI")
Set MonDossier = MonNameSpace.GetDefaultFolder(olFolderInbox)
Set MonMail = Application.Session.GetItemFromID(EntryIDCollection)
Set MaPJ = MonMail.Attachments
 
Repertoire = "c:\Applications\"
 
If MonMail.Subject Like "RE: ECRITURES COMPTABLES CLOTURES" Then
If MonMail.Attachments.Count > 0 Then
For i = 1 To MaPJ.Count
MaPJ(i).SaveAsFile Repertoire & "tag_comptaClot.txt"
Next i
MsgBox ("La saisie comptable des clotures de caisse dans GESTAPPLI a été dévérouillée. Merci")
 
End If

A+
vince