Antwort alle mit Ausnahme von E-Mail MacroButton

Question

Der Versuch, ein Makro für die normale Antwort alle Option schreiben, aber ich möchte einen bestimmten Adressaten ausschließen. Ich habe versucht, mich selbst zu tippen, aber ich habe einen Fehler "Objekt erforderlich". Ich habe über das Internet gesucht und Code für die Standardoption (öffentliches Sub) gefunden. Ich muss es auf die separate Taste

Dim oReply As MailItem 
    Set oReply = oItem.ReplyAll 
    Dim recips As Outlook.Recipients 
    Dim i As Long 
Set recips = oReply.Recipients 
For i = recips.Count To 1 Step -1 
    If LCase(recips.Item(i).Address) = "alias@slipstick.com" Then 
recips.Remove i 
End If 
Next 

oReply.Display 


Set oItem = Nothing 
End Sub 

Answer 1

Sieht zugewiesen werden, wie Sie den oItem im Code zuerst zuweisen müssen. Zum Beispiel für die aktuellen Inspektor-Fenster können Sie den folgenden Code verwenden:

Public Sub Test() 
Dim inspector as Outlook.Inspector 

Set inspector = Application.ActiveInspector() 
Set oItem = inspector.CurrentItem 

Dim oReply As MailItem 
Set oReply = oItem.ReplyAll 
Dim recips As Outlook.Recipients 
Dim i As Long 
Set recips = oReply.Recipients 
For i = recips.Count To 1 Step -1 
    If LCase(recips.Item(i).Address) = "alias@slipstick.com" Then 
    recips.Remove i 
    End If 
Next 
oReply.Save 
oReply.Display 
Set oItem = Nothing 
End Sub 

Bei Auswahl des Forschers Sie die Selection Eigenschaft der Explorer-Klasse verwenden müssen, die ein Selection Objekt zurückgibt, das das Element oder die Elemente enthält, die werden im Explorer-Fenster ausgewählt.