/ で返信にSendUsingAccountを設定する/ VBAコード - vba、Outlook

Outlookの返信でSendUsingAccountを設定するVBAコード - vba、outlook

グループの受信トレイにあるメールに返信すると、Outlookは、デフォルトでメッセージを送信するグループのアカウントを使用します。そのため、通常は[差出人]の下のドロップダウンメニューをクリックし、[その他の電子メールアドレス]を選択します。

私はOutlookを持つために小さなVBAマクロを書いた2010年は、グループのアカウントではなく自分のアカウントを使用してグループの受信トレイ内の電子メールに返信していますが、何らかの理由で、以下に示すマクロを実行してもまだグループのアカウントから返信しています。 VBAマクロ?ありがとう

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

回答:

回答№1は0

.SentOnBehalfOfNameを試してください。

ここに記述されているようにこれとの異常があるかもしれません。 Outlookのコードは、手動で呼び出されてもApplication_ItemSendから問題が発生している場合は機能しています。