Discussion :

[Luke53]

Bonjour,

Je suis débutant en VBA d'outlook (et dans les discussions sur des forums ;-) ).
Voilà mon soucis : mes utilisateurs ont 2 boites mails office 365 : une perso et une partagée.
Quand on ouvre un nouveau message, si on a 2 boites mails normales (non partagées), l'expéditeur se met bien à celui de la boite en cours. Mais à cause de la boite partagée, il met toujours l'expéditeur perso.

J'aimerai créer un bouton, comme le bouton "Nouveau message électronique" de l'onglet accueil d'Outlook, qui ouvre un nouveau message, mais avec le nom d'expéditeur de la boite sur laquelle il se trouve.

En lisant vos discussions, j'ai réussi à créer un bouton avec le code ci-dessous :
<code>
Sub nouveau_message()

Dim Contact As Outlook.ContactItem

Dim Explorer As Outlook.Explorer
Dim CurrentItem As Object
Dim Sender As Outlook.AddressEntry
Dim myolApp As Outlook.Application
Dim myItem As Outlook.MailItem

' On récupère le mail sélectionné dans Outlook
Set Explorer = Application.ActiveExplorer
Set CurrentItem = Explorer.Selection(1)

' On crée un mail
Set myolApp = CreateObject("Outlook.Application")
Set myItem = myolApp.CreateItem(olMailItem)

' Si l'objet sélectionné est un mail
If CurrentItem.Class = olMail Then
' on récupère l'expéditeur de l'objet sélectionné, que l'on met dans l'objet de type adresse
Set Sender = CurrentItem.Sender

' on met dans l'adresse d'expéditeur du mail créé l'objet de type adresse
myItem.Sender = Sender

' on montre l'email créé
myItem.Display
End If

End Sub
</code>

Ce code récupère bien l'expéditeur du mail sélectionné dans Outlook.

Voici mes 2 questions :
- 1°) Comment faire pour mettre le destinataire du mail sélectionné à la place de l'expéditeur ? Car mes utilisateurs sont la plupart du temps dans leur boite de réception.
Cela doit être du type
Set Sender = CurrentItem.To,
à la place de
Set Sender = CurrentItem.Sender
mais cela ne fonctionne pas et j'aimerai comprendre pourquoi.

- 2°) Comment savoir si on est dans le répertoire des "éléments envoyés", pour récupérer l'expéditeur du mail sélectionné. (comme le code ci-dessus) ?

En vous remerciant par avance

Cordialement

[Oliv-]

Bonjour,

Est-ce que le nom de la ou les boites en question , est bien équivalent à une adresse Email valide ? ou à un utilisateur existant ?

Si oui tu peux récupérer le nom comme cela :

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
Function De_boite_encours() As Recipient
    Dim FolderPath As String
    Dim balName As String
    Dim myRecipient As Outlook.Recipient
Set fd = ActiveExplorer.CurrentFolder
 
While TypeName(fd.Parent) = "MAPIFolder"
Set fd = fd.Parent
 
Wend
 
    FolderPath = fd.FolderPath
    FolderPath = Replace(FolderPath, "\\", "")
    balName = fd.Name
    Set myRecipient = Application.Session.CreateRecipient(balName)
    myRecipient.Resolve
    If myRecipient.Resolved Then
 
        Set De_boite_encours = Application.Session.CreateRecipient(balName)
    Else
        Set De_boite_encours = Session.CurrentUser
    End If
End Function
 
 
Sub exemple()
    Dim Item As Outlook.MailItem
    Set Item = CreateItem(olMailItem)
    With Item
        .SentOnBehalfOfName = De_boite_encours
        .Recipients.ResolveAll
        .Display
    End With
End Sub

[Luke53]

Bonjour Oliv-,

Cela fait plusieurs jours que je lis vos interventions et je suis très content que vous m'ayez accordé un peu de votre temps.

Et le résultat est tout simplement génial !!
Je vous remercie vraiment pour le code qui fonctionne parfaitement !

Je ne mets pas encore cette discussion comme RESOLU car demain, je vais me pencher sur votre code pour essayer de le comprendre exactement. Puis-je me permettre de vous poser une ou deux petites questions si je n'ai pas tout compris ?

En tout cas merci encore pour votre rapidité et votre solution.

Cordialement

[Luke53]

Bonjour Oliv-,

Macro mise en place. Et cela fonctionne très bien.

Mais j'ai 2 petites questions :
1°) Les 2 lignes
FolderPath = fd.FolderPath
FolderPath = Replace(FolderPath, "\\", "")

servent-elles seulement si le "Set myRecipient = Application.Session.CreateRecipient(balName)" ne fonctionnait pas pour remplacer le balName par FolderPath ?

Sinon je ne comprend pas pourquoi il faut remplir le FolderPath ?

2°) On n'est pas obligé de déclarer fd, du type
Dim fd As Outlook.????? ?
Il le défini directement comme un objet du même type que ActiveExplorer.CurrentFolder ?

Merci encore


[CODE]
Pour info, je recopie votre code avec mes annotations pour vous montrer comment j'ai compris votre code et si cela est correct.

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
53
54
55
56
57
58
59
60
61
62
63
 
Function De_boite_encours() As Recipient
	' Fonction qui récupère le nom de la personne du répertoire Outlook en cours d'utilisation
 
	Dim FolderPath As String
	Dim balName As String
	Dim myRecipient As Outlook.Recipient
 
	' Met le dossier en cours dans fd
	Set fd = ActiveExplorer.CurrentFolder
 
	' On recherche le dossier racine
	' Tant que le dossier parent n'est pas "MAPIFolder"
	While TypeName(fd.Parent) = "MAPIFolder"
		' fd devient le dossier Parent
		Set fd = fd.Parent
	Wend
 
	' On récupère le chemin du dossier racine
	FolderPath = fd.FolderPath
	' On enlève les \ du début 
	FolderPath = Replace(FolderPath, "\\", "")
	' On rempli dans balName le nom de la boite aux lettres
	balName = fd.Name
	' On crée un expéditeur avec le nom de l'expéditeur en cours
	Set myRecipient = Application.Session.CreateRecipient(balName)
	' On vérifie que cet expéditeur est correct
	myRecipient.Resolve
 
	If myRecipient.Resolved Then
 		' si l'expéditeur est correct
		' la fonction est l'expéditeur balName
 		Set De_boite_encours = Application.Session.CreateRecipient(balName)
 	Else
		' si l'expéditeur n'est pas correct
		' on garde l'utilisateur courant
        	Set De_boite_encours = Session.CurrentUser
	End If
 
End Function
 
 
Sub Nouveau_Message()
	' Procédure qui crée un mail avec l'expéditeur du dossier courant
 
	' Item est un objet de type mail
	Dim Item As Outlook.MailItem
 
	' On crée un mail
	Set Item = CreateItem(olMailItem)
 
	With Item
		' on rempli le nom d'expéditeur
        	.SentOnBehalfOfName = De_boite_encours
 
		' l'expéditeur doit être correct
		.Recipients.ResolveAll
 
		' on montre le mail
	        .Display
	End With
 
End Sub

[Oliv-]

Effectivement

Code :

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

1
2
FolderPath = fd.FolderPath
    FolderPath = Replace(FolderPath, "\\", "")

ne servent à rien je m'en étais servi pour retrouver la racine d'une autre façon en utilisant split(), puis j'ai changé .


tu peux mettre

Code :

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

dim fd

ou

Code :

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

dim fd as outlook.folder

il y a des cas ou on va mettre dim fd as OBJECT
sans définir le type d'objet car il peut être différent, par exemple si on parcours des éléments de la boite de réception, on peut bien sûr tomber sur les Emails, ce qui est le plus courant mais aussi sur des demandes de réunion, des ar , etc

dans ce cas on mettrai

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
Sub Classe_Prestations()
 
    Dim Item As Object
    Dim LeMail As Outlook.MailItem
    Dim LesMails As Object
 
    Set LesMails = ActiveExplorer.Selection
       For Each Item In LesMails
        If Item.Class = olMail Then
            Set LeMail = Item
 
            ' ici le traitement avec Lemail
        End If
    Next
fin:
End Sub

[Luke53]

Bonjour Oliv-,

Tes précisions répondent parfaitement à mes interrogations.

Super boulot et je vais pouvoir mettre cette discussion comme résolue

Bonne continuation et merci encore

Cordialement