Code VBA pour définir SendUsingAccount dans Reply dans Outlook - vba, outlook

Quand je réponds à un email dans la boîte de réception de mon groupe,Outlook envoie par défaut le message au groupe "s. Par conséquent, ce que je fais normalement, c’est de cliquer sur le menu déroulant sous" De "et de choisir" autre adresse e-mail ".

J'ai écrit une petite macro VBA pour avoir Outlook2010 répond aux e-mails dans la boîte de réception de mon groupe en utilisant mon compte au lieu du compte du groupe. Toutefois, pour une raison quelconque, il répond toujours à partir du compte de mon groupe lorsque j’exécute la macro ci-dessous. Toute idée de ce qui ne va pas avec mon VBA macro? Merci

Sub ReplyFromMyAccount()
Dim rpl As Outlook.MailItem
Dim itm As Object
itm = GetCurrentItem()
If Not itm Is Nothing Then
rpl = itm.ReplyAll
rpl.SendUsingAccount = Session.Accounts.Item(1)
rpl.Display()
End If
rpl = Nothing
itm = Nothing
End Sub

Function GetCurrentItem() As Object
Dim objApp As Outlook.Application
objApp = Application
On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
Case "Explorer"
GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
Case "Inspector"
GetCurrentItem = objApp.ActiveInspector.CurrentItem
End Select
objApp = Nothing
End Function

Réponses:

Essayez .SentOnBehalfOfName

Il peut y avoir des anomalies avec ceci, comme décrit ici. Le code Outlook fonctionne lorsqu'il est appelé manuellement, mais génère des problèmes avec Application_ItemSend.