RT Scrip: Autoreply to Whitelisted Domains + Mail Create

gistfile1.pl

my @autoreplyDomains = qw(
    example.com
);

my $transactionType    = $self->TransactionObj->Type;
my $transactionContent = $self->TransactionOnj->Message->First;
my $ticketRequestor    = lc($self->TicketObj->RequestorAddresses);

if ($transactionType eq 'Create' && $transactionContent) {
      if ($transactionContent->GetHeader('Received')) {
          return 1 if grep { $ticketRequestor eq lc($_) } @autoreplyDomains;
      }
}
return 0;