Bonjour MarcelG et merci 
Ta page est très intéressante et m'aidera avec la suite du projet.
Par contre je ne vois pas comment intéragir entre excel et mon mail ouvert dans Outlook.
J'ai essayé d'ajouter au code :
1 2
| Dim objOL As Object
Set objOL = CreateObject("Outlook.Application") |
mais ça bloque toujours sur :
Dim Item As Outlook.MailItem
C'est problablement quelque chose de bête, mais je vous avoue ne pas trouver (faut dire que je démarre aussi et l'adaptation de bout de code ne me réussie pas)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Sub Test()
Dim objOL As Object
Set objOL = CreateObject("Outlook.Application")
Dim Item As Outlook.MailItem
Dim oInspector As Inspector
Set oInspector = Application.ActiveInspector
If oInspector Is Nothing Then
Set Item = Application.ActiveExplorer.Selection.Item(1)
Item.Display 'Force the po-up
Set oInspector = Application.ActiveInspector 'Reassign oInpsector and Item again
Set Item = oInspector.CurrentItem
Else
Set Item = oInspector.CurrentItem
Item.To = "test@mail.com"
End If
End Sub |
Partager