{ my $Transaction = $self->TransactionObj;
return $Transaction->Type eq 'Correspond' && $Transaction->Subject =~ /weekly/; 
  }