Antwort auf eine ausgewählte oder geöffnete Mail in Outlook mit Excel-Makro

Question

Ich habe einen Code in Excel erstellt, die eine Mail mit Excel-Umschlag erstellt. Dieser Code erstellt jedoch eine neue E-Mail. Stattdessen möchte ich auf eine bestimmte E-Mail antworten, die in meinem Outlook ausgewählt oder geöffnet wurde. Es gibt kein festes Muster in meinen E-Mails, auf die ich antworten möchte, wie zum Beispiel ein bestimmtes Thema oder ein Absender. Also möchte ich antworten/antwortenalle Mail nur, die ich in Outlook auswähle oder öffne. Wo sollte ich meinen Code ändern? Bitte helfen Sie !! `

'Option Explicit 
Private Sub Generate_Ticket_Email_Click() 

'varCap = Generate_Ticket_Email.Caption 

'Generate_Ticket_Email.Caption = "DiscardMail" 

On Error GoTo ErrHandler 


'SET Outlook APPLICATION OBJECT. 
Dim objOutlook As Object 
Set objOutlook = CreateObject("Outlook.Application") 

' CREATE EMAIL OBJECT. 
Dim objEmail As Object 
Set objEmail = objOutlook.CreateItem(olMailItem) 
    ActiveSheet.Range("B7:D31").Select 

If Generate_Ticket_Email.Caption <> "Generate E-mail" Then 
    Generate_Ticket_Email.Caption = "Generate E-mail" 
    ActiveWorkbook.EnvelopeVisible = False 
    GoTo ErrHandler 
End If 


ActiveWorkbook.EnvelopeVisible = True 
'ActiveWorkbook.EnvelopeVisible = False 
'End If 

With ActiveSheet.MailEnvelope 
    .Item.To = Range("J16") 
    .Item.CC = Range("J17") 
    .Item.Subject = Range("F18") 
End With 


Generate_Ticket_Email.Caption = "Discard E-mail" 

' CLEAR. 
Set objEmail = Nothing: Set objOutlook = Nothing 

ErrHandler: 

' 
End Sub 

Answer 1

die Linie ersetzen

Set objEmail = objOutlook.CreateItem(olMailItem) 

mit

Set objEmail = objOutlook.ActiveExplorer.Selection.Item(1).Reply 

(Fehler ausgelassen Prüfung)