Discussion :

[legacydark871]

Bonjour

Je dois réaliser un script pour le travail; N'ayant pas touché à du VB depuis pas mal d'années je patauge un peu... A vrai dire je ne suis pas tout à fait sûr que ce que je veux faire soit réalisable. Je travaille sur Outlook 2007.

L'idée est que le client affiche le champs FROM, pour pouvoir envoyer des mails depuis une autre adresse. Si il envoie un mail depuis sa boîte principale (champs FROM vide), le mail se retrouve dans ses éléments envoyés, pas de problème avec ça.

Il faudrait que quand le client saisit une autre adresse dans FROM (par exemple user1@mydomain.tld), l'email se retrouve dans les éléments envoyés du compte user1.

Actuellement j'essaie de simplement récupérer le contenu de ce champs FROM depuis l'évènement ItemSend, mais sans succès...

Code :

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

MsgBox ("Envoye depuis ") & Item.SendUsingAccount

Si quelqu'un avait un peu de temps à perdre pour m'aider, je lui en saurais gré

Merci, et bonne journée

legacy

[Jean-Philippe André]

salut,
n'est-ce pas au niveau du SenderEmailAddress que tu cherches a faire des tests ?
L'exemple de l'aide en ligne semble correspondre a ton objectif en terme de traitement des mails :

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
Sub SetFlagIcon()
 Dim myOlApp As Outlook.Application
 Dim mpfInbox As Outlook.MAPIFolder
 Dim obj As Outlook.MailItem
 Dim i As Integer
 Set myOlApp = CreateObject("Outlook.Application")
 Set mpfInbox = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("Test")
 ' Loop all items in the Inbox\Test Folder
 For i = 1 To mpfInbox.Items.Count
  If mpfInbox.Items(i).Class = olMail Then  
   Set obj = mpfInbox.Items.Item(i)
    If obj.SenderEmailAddress = "someone@example.com" Then
    'Set the yellow flag icon
    obj.FlagIcon = olYellowFlagIcon
    obj.Save
   End If
  End If
 Next
End Sub